[XL-2007] boucle jusqu'a la derniere cellule non vide

[Mimosa777]

Salut a tous,

ca peut sembler simple pour plusieurs d'entre vous mais pour moi, j'arrive juste pas a trouver.

voila, j'utilise une boucle FOR pour parcourir la liste des donnees jusqu'a la derniere ligne dans ma colonne A comme ceci :

Code :

1
2
3
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
---blablabla ---
Next

Maintenant, il se peut que dans les donnees de la colonne A, j'ai une cellule vide.
J'aimerais donc que ma boucle se rende a la derniere ligne avant la cellule vide et s'arrete la. Comment faire svp ? Car ma boucle actuelle continue toujours jusqu'a la denriere ligne du fichier.

merci de votre aide

[Mimosa777]

Bon ben decidemment, j'ai trouve une alternative. En meetant une condition que si ma colonne A est vide, juste sort de la boucle for, ca marches... S'il ya un autre option plus elegante, faites le moi savoir. sinon merci tout de meme

[gFZT82]

Bonjour,

Tu peux utiliser le code suivant

Code :

1
2
3
4
5
6
7
Sub test()
Dim DerLig As Long
    With Worksheets("Feuil1") 'A adapter
        DerLig = .Range("A1").End(xlDown).Row
        MsgBox "Numéro de la dernière ligne : " & DerLig
    End With
End Sub

La cellule A1 étant dans ce cas la première cellule renseignée, DerLig va indiquer le numéro de la dernière ligne renseignée avant la cellule vide.

Rq : pour visualiser ce que réalise Range.End(xlDown), tu te positionnes sur la cellule A1 et que tu effectues la combinaison de touches FIN+BAS.

Cordialement.