Compter lignes dans une plage

[Aladin]

Bonjour le forum
Comment compter en VBA le nbre de ligne compris dans une plage.
1 Compter le nombre de lignes vides ou pas vides entre deux titres dans une colonnes
2 renvoie par Msgbox du résultat
3 La plage bn' est pas fixe
Merci pour toute aide qui sera la bienvenue
Aladin

 

[Pierrot93]

Re : Compter lignes dans une plage

Bonjour

il me semble que tu as déjà un fil sur ce sujet...

https://www.excel-downloads.com/threads/variable-et-suppression-ou-ajout-ligne.80436/

auquel tu n'as pas répondu sur la dernière solution d'ailleurs...

 

[Aladin]

Re : Compter lignes dans une plage

Bonjour Pierrot et le forum
celui ci est plus simple car il n' y a pas d' insertion. l' autre sujet est plus complexe car je n' ai pas eu une entiere satisfaction.il me semble que j' ai répondu, mais je vais vérifier .
Aladin

 

[Pierrot93]

Re : Compter lignes dans une plage

Re

je t'avais dans ce même post, donné un code pour compter le nombre de lignes d'une plage...

 

[Aladin]

Re : Compter lignes dans une plage

Oui mais la il faut passer les titres en parametres
Aladin

 

[Pierrot93]

Re : Compter lignes dans une plage

Re

passer quoi en paramètres ? Si tu as bien lu, je te donnais le code ci dessous :

Dim x as Integer
x = Range("A2:A" & Range("A65536").End(xlUp).Row).Rows.Count

renvoie dans x le nombre de lignes de la cellulues A2 jusqu'à la dernière cellule renseignée, si tu considéres ces cellules (A2 et la dernière) comme des titres, tu retranches 2 au résultat ou modifie le code comme suit :

Dim x as Integer
x = Range("A2:A" & Range("A65536").End(xlUp).Row).Rows.Count - 2

 

[Pierrot93]

Re : Compter lignes dans une plage

Re

si A2, n'est pas la 1ère ligne de titre :

Dim x As Integer
x = Range("A" & Range("A1").End(xlDown).Offset(1, 0).Row & _
    ":A" & Range("A65536").End(xlUp).Offset(-1, 0).Row).Rows.Count

 

[Aladin]

Re : Compter lignes dans une plage

Re
j' ai mis en pratique ton code et c' est parfait, donc il n' y a pas besoin de prendre en parametres la ligne de titre.
Je reprendrai bientot mon ancien post pour cpntinuer sur l' ancien sujet
Merci Pierrot et a bientot
Aladin