Recherche de la fin d'une liste en VBA

Bonjour,

Ci-joint un fichier pour illustrer mon problème.

Je cherche à me positionner à la fin d'une liste de cellules remplies (de prénoms dans mon exemple), dans le cas où des formules existent dans les lignes suivantes (zone grisée dans mon exemple, mais ne renvoyant rien).

La fonction bien connue - Range("A1").End(xlDown).Row - ne marche pas dans ce cas là.

Ainsi, je voudrais que la macro renvoie 24 et non 29...

Une façon serait de me positionner en A1 et de faire une boucle pour parcourir les cellules unes à unes jusqu'à la première vide...mais pour des grandes listes, ça risque de prendre du temps. Et je souhaiterais obtenir cette valeur rapidement au début d'un programme...

Avez-vous une solution à ce problème ?

Merci d'avance.

Dadams51

SALUT

Essayer ca

Sub Bouton1_Cliquer()
Dim Ligne As Long
Ligne = Columns("A:A").Find("*", , , , xlByColumns, xlPrevious).Row
 MsgBox "Numéro de la dernière ligne : " & Ligne
End Sub

Si ton probleme est resolut n oublier pas de cocher Resolut

Bonjour à tous

Tu peux aussi essayer ça :

derligne = Range("A:A").SpecialCells(xlCellTypeConstants, 23).Count

Bye !

Bonjour,

La ligne de code de GMB fonctionne !

Merci et à bientôt

Dadams51