Compter les lignes...

[Hulk]

Hello tout le monde 😀

Question apparemment simple, mais je n'y arrive pas 😛

Comment avoir (par exemple dans un MsgBox) le numéro de la dernière ligne pleine d'un tableau ?

Voyez plutôt le fichier joint pour mieux comprendre ce que je souhaite obtenir.

Merci pour votre aide !

 

[kjin]

Re : Compter les lignes...

Bonjour Hulk 🙂,

MsgBox ActiveSheet.Cells.SpecialCells(xlLastCell).Row

Entr'autres
A+
kjin

 

[tototiti2008]

Re : Compter les lignes...

Bonjour Hulk,

un essai

Sub test()
    MsgBox ActiveSheet.UsedRange.Range("A1").Row + ActiveSheet.UsedRange.Rows.Count - 1
End Sub

 

[laetitia90]

Re : Compter les lignes...

bonjour Hulk kjin tototiti2008 le forum
un autre code

MsgBox Cells.Find("*", , , , , xlPrevious).Row

 

[Hulk]

Re : Compter les lignes...

Re,

Impec merci infiniment !

Petite question subsidiaire...

Avec le tien Kjin, il y a le sablier pendant l'affichage de la MsgBox, alors qu'avec celui de Tototiti pas de sablier ??

Merci pour vos lumières...

 

[tototiti2008]

Re : Compter les lignes...

Re,
Bonjour kjin, Bonjour laetitia,

Quand tu affiches une Msgbox, si le pointeur est en-dehors il y a un sablier, mais je n'ai pas observé de différences notables entre les 3 propositions