XL 2013 Se rendre à la dernière ligne non vide

[maval]

Bonjour

Je recherche le code pour me rendre à la dernière ligne non vide de ma colonne "H"

Je vous remercie

Max

 

[JBARBE]

Bonjour à tous,

If Range("H2") = "" And Range("H1") <> "" Then
Range("H2").Select
Else
Range("H1").End(xlDown).Select
End If

bonne journée !

 

[maval]

Bonjour

J'ai trouvé

Sub DernierLigne()
Range("H65536").End(xlUp).Offset(1, 0).Select
End Sub

Bonne journ,ée

 

[maval]

Merci JBARBE

 

[JBARBE]

Re,
En effet, xlup est plus adapté que xldown pour cette demande !
Cela ne demande pas une condition comme je l'ai démontré !
Mais pour avoir mis :
Offset(1, 0)
avec ceci la dernière cellule non vide est sélectionnée !

Range("H65536").End(xlUp).Select

Bonne journée !

 

[kaozuin]

Salut !
Sinon moi j’utilise presque tout le temps cette macro

    Range("H1").Select
         Dim DerniereLigne1 As Long
             DerniereLigne1 = Range("H" & Rows.Count).End(xlUp).Row
    Range("H"& DerniereLigne1).Select