dernière ligne ayant une cellule non vide pas en A

[JOjo]

Bonjour,

je recherhe une manière rapide de retrouver la dernière ligne renseignée d'un tableau non complétement renseigné.
Exemple la ligne 4 est la dernière ligne : A4 est vide, B4 est renseigné.
Merci

 

[andré]

Salut,

Lorsque tu dis 'retrouver', est-ce sa réference (par exemple A4), ou bien te déplacer sur cette cellule, ou encore récupérer sa valeur ?


Ândré.

 

[JOjo]

Juste retrouver le n° de la ligne : exemple 4 ( si cellule la plus basse est B4)

 

[Robert]

Bonsoir Jojo, Ândré, bonsoir le forum,

Un peu tiré par les cheveux :

Dim li As Long
li = Range('A1').CurrentRegion.Rows.Count

 

[Gael]

Bonjour Jojo,

Je ne sais pas si ça répond à la demande mais une simple formule ligne associé à une liste variable donne le dernier numéro utilisé ou le premier disponible en enlevant le '-1':

=LIGNE(DECALER(A1;NBVAL(A:A)-1;)

@+

Gael

 

[romfret]

Re tout le monde,

tiens essai ca :

Sub forJoJo()

Dim val
val = Cells.Find(What:='*', After:=[A1], SearchDirection:=xlPrevious).Row

MsgBox val

End Sub

Normalement c'est ok

@mic@lement, ormfret