Calculer le nombre de cellule remplie

voila un petit code vb qui marche

Dim celluleremplie As Integer
Dim compteur As Integer
compteur = 0
For ligne = 6 To 25

If Cells(ligne, 1) = "" Then
compteur = compteur + 1
End If

Next ligne

'au maximum tout est remplie je compte donc les cellule vide et je soustrait sur ta plage
celluleremplie = 25 - 6 - compteur + 1


'resultat dans A1
Cells(1, 1) = celluleremplie

Heurvy

End Sub

ou la la c'est trop compliqué pour moi, y a pas plus simple

Salut,

Puisque personne n'a trouvé plus simple, tu pourrais peut-être exploiter l'approche suivante :

=NB.SI(A6:A25;">0")

Si tu as aussi des nombres négatifs : =NB.SI(A6:A25;">0")+NB.SI(A6:A25;"<0")

J'ai esayé de mettre la double condition ("<>0") dans une seule formule, mais cela ne marche pas.

Par contre la formule : =SOMMEPROD(A6:A25<>0)*1) fonctionne très bien.
Je te conseille donc cette dernière.

Ândré.