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

JBARBE

XLDnaute Barbatruc

• 6 Juin 2019

• #2

Bonjour à tous,

Code:

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

bonne journée !

 

Dernière édition: 6 Juin 2019

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Juin 2019

• #3

Bonjour

J'ai trouvé

VB:

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

Bonne journ,ée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Juin 2019

• #4

Merci JBARBE

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Juin 2019

• #5

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 !

VB:

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

Bonne journée !

 

Vote positif 0 Vote négatif

K

kaozuin

XLDnaute Nouveau

• 6 Juin 2019

• #6

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

VB:

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

 

Vote positif 0 Vote négatif