compter nbre de cellules contenant quelque chose en VBA

[Bruno]

Bonjour,

pour compter le nombre de cellules qui contiennent quelque chose dans une colonne, j'utilise le code suivant :

j = 1
Do Until Cells(j, 1) = ""
j = j + 1
Loop
NbLignes = j - 1

(les cellules qui contiennent quelque chose se suivent et partent de la ligne 1)

Le problème, c'est que cela fonctionne très bien sous Excel 97 et 2000. mais sous XP, j'obtiens un ligne de plus.
ca boucle une fois de plus, pourtant la cellule est vide !

Est-ce que quelqu'un aurait un code qui marche à tous les coups ?

 

[Minick]

Salut,

tu remplace tout ton code par ca:

j = Range("A65536").End(xlUp).Row

@+

Minick

 

[Valérie]

Salut Bruno et Minnick

Minnick ta solution fonctionne a condition que toutes les lignes soient remplies sinon il te donne la dernière ligne et c'est tout. Il y a cette solution avec la fonction CountA qui compte le nombre de valeurs :

j=WorksheetFunction.CountA(Range("A1:A" & Range("A65536").End(xlUp).Row))

et le tour est joué

@+ tard
Valérie