Calculer le nombre de cellule remplie

[Johan]

Bonjour,

Je souhaite créer une formule qui permet de calculer le nombre de cellule remplie, pour le moment j’utilise cette formule

=NB(A6 :A25) ou
=NBVAL(A6:A25)

Malheureusement cette formule considère comme remplie, les cellules avec des formules

Merci de votre aide

 

[heurvy]

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

 

[Johan]

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

 

[andré]

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