Compter les lignes...

K

kjin

XLDnaute Barbatruc

• 6 Juillet 2010

• #2

Re : Compter les lignes...

Bonjour Hulk 🙂,

Code:

MsgBox ActiveSheet.Cells.SpecialCells(xlLastCell).Row

Entr'autres
A+
kjin

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Juillet 2010

• #3

Re : Compter les lignes...

Bonjour Hulk,

un essai

Code:

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 6 Juillet 2010

• #4

Re : Compter les lignes...

bonjour Hulk kjin tototiti2008 le forum
un autre code

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 6 Juillet 2010

• #5

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...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Juillet 2010

• #6

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

 

Vote positif 0 Vote négatif