Address
bonne journée
@+
#6
une formule que j'avais trouvé sur ce site (merci à l'auteur: peut-être Monique)
=MAX(SI(ESTNA(EQUIV(9^9;A:A));"";EQUIV(9^9;A:A));SI(ESTNA(EQUIV("zz";A:A));"";EQUIV("zz";A:A)))
a+
#7
Salut
Si... VBA, peut-être ainsi? Option Explicit
'dans le module de la feuille, à adapter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application. EnableEvents = False
Dim Ou As String, Dli As Long
Ou = Selection. SpecialCells(xlCellTypeConstants). Address
Dli = Right(Ou, Len(Ou) - InStrRev(Ou, "$"))
MsgBox Dli 'pour voir
Application. EnableEvents = True
End Sub
#8
merci à vous 4 pour avoir pris de votre temps pour m'apporter des éléments de réponse. Rechercher et sélectionner la première ligne vide (ou colonne) avec Excel VBA. Je précise à l'attention de CHALET53 que je veux faire ça en VB... Sinon pour les autres, j'essaie de comprendre ce que vous m'avez proposé, et c'est pas évident vu mon niveau en VB... Mais je m'accroche. J'avoue quand même que si l'utilisation de Find permet de résoudre mon problème, ça a l'ar plus simple.
Vba Trouver La Dernière Ligne Non Vide 2
#2
Re: Trouver la dernière cellule non vide en VBA
Bonjour Djorge84
Tu as essayé:
#3
Bonjour 13GIBE59,
oui essayé également. Le problème est le même car il ne "voit" pas les cellules sans valeur comme vide du fait de la formule Excel qui leur impose "" sous certaines conditions...
#4
Bonjour. À essayer:
VB:
Function PlageÀPartirDe(ByVal PlageDép As Range) As Range
Dim F As Worksheet, LDéb As Long, CDéb As Long, LMax As Long, CMax As Long, Plg As Range
Set F = PlageDéheet: LDéb = PlageDé CDéb = PlageDé
With edRange: LMax = + - 1: CMax = +.
Vba Trouver La Dernière Ligne Non Vide.Fr
La propriété Offset utilise l'index de colonne ou de ligne pour déterminer la modification par rapport au point de référence. Par exemple, l'instruction suivante active la cellule A2 car le décalage déplacera la sélection d'une ligne:
Range("A1")(1, 0)
L'instruction suivante active la cellule C4, car les index de ligne et de colonne seront modifiés de la cellule active par trois lignes et deux colonnes:
Range("A1")(3, 2)
En composant tous ces mécanismes ensemble, nous pouvons créer une macro marquant la première ligne vierge (ou colonne). La macro suivante sélectionne la première ligne vide:
Sub RechercherSelectionnerLigneVide()
'Étape 1: Déclaration de la variable
Dim DerniereLigne As Long
'Étape 2: Téléchargez le dernier numéro de ligne utilisé
DerniereLigne = Cells(, 1)(xlUp)
'Étape 3: Sélectionnez la ligne suivante ci-dessous
Cells(DerniereLigne, 1)(1, 0)
End Sub
Commentaires
1. Vba trouver la dernière ligne non vide 2. À la première étape, une variable nommée DerniereLigne est déclarée. Elle contient le numéro de la dernière ligne utilisée.
Quelqu'un aurait une idée? #13
modifie peut être ainsi:
If Sheets("Feuille1")(k, 6) = vbNullString Then
#14
Bonjour
Range(Cells(k, 6)) Cherche à représenter une plage dont la référence ou le nom est contenu dans la valeur de la cellule ligne k, colonne 6. Enlevez le Range(.. ) autour. Mais dois-je en comprendre que ma procédure ne marche pas? Alors, s'il vous plait, dites moi pourquoi car je veux la mettre au point. #15
Merci! Vba trouver la dernière ligne non vide son sac. le code suivant fonctionne donc:
For k = 0 To 10
If Sheets("Fiche Panier")(10 + k, 6) = vbNullString Then
i = (10 + k) - 1
Je vous remercie tous pour m'avoir filer un coup de main depuis hier! Bonne journée