Discussion :

[jojo86]

Bonjour,

J'aimerais savoir comment faire pour trouver la derniere ligne d'un range???

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("G11:O49").End(xlDown).Row

Mais si mon tableau est vide, j'ai la valeur : 65536

Merci de votre aide !

[aalex_38]

Bonjour,

Avec ce code tu trouves la premiere ligne renseignée, un peu comme si tu faisait CTRL + Fleche du bas dans excel.
La méthode utilisée en géneral est de partir du bas pour aller vers le haut.

La réponse se trouve ici


Edit : un exemple dernière ligne de la colonne G :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NumLig = Cells(Feuil1.Rows.Count, 7).End(xlUp).Row

[jojo86]

Merci,

Mais je ne veux pas trouver la derniere ligne de la colone G, mais la dernière ligne d'une plage bien définie...

[jojo86]

Ca ne fonctionne pas...

Je veux trouver la derniere ligne d'une plage précise...

Entre le range G10 et O41, J'aimerais connaitre la derniere ligne ecrite de cette "selection".

Merci beaucoup.

[aalex_38]

Alors ce code ci pourrait te convenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
x = Split(Range("G11:O49").CurrentRegion.Address, "$")
MsgBox "La derniere ligne de la selection est la ligne : " & x(4)

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
x = Split(Range("G11:O49").CurrentRegion.Address, "$")(4)
MsgBox "La derniere ligne de la selection est la ligne : " & x

edit : attention toutefois avec currentregion, les cellules adjacentes peuvent etre prises en compte.

edit2 : peut etre en ajoutant un test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If x > 49 Then x = 49

edit3 : si d'autres avis eclaires, ils sont les bienvenus