Compter des cellules

[David--21]

Bonjoir à tous,

je cherche une solution pour compter le nombre de cellules non vide et ne contenant pas de formule dans une plage.
par exemple :
A1 : 10
A2 : 14
A3 :
A4 :=somme(A1:A3)
A5 : je veux obtenir 2 sur la plage A1:A4

Avez-vous une petite idée?

 

[Samantha]

Re : Compter des cellules

Bonsoir,

La lumière se trouve du côté de la fonction NB.SI

=NB.SI(A1:A7;"<>0")

A te lire


Sam

 

[David--21]

Re : Compter des cellules

Merci Samantha, mais ca ne marche pas comme je veux!
je mets un fichier en exemple.

 

[Samantha]

Re : Compter des cellules

re :

=NBVAL(A1: D1) compte toutes les cellules dans les quelles il y a des données chiffrées donc la formule comprise

je continue de chercher car là tu me poses un pb 😉

Sam

 

[Moa]

Re : Compter des cellules

Salut Sam, Dave !

Une petite macro, en passant :

Option Explicit
Sub CompterVal()
Dim Compteur As Integer
Dim Cell As Range
Compteur = 4
For Each Cell In Range("A1😀1")
If Cell = "" Or Cell.HasFormula Then Compteur = Compteur - 1
Range("F1") = Compteur
Next Cell
End Sub


Bonne nuit et bon dimanche à vous deux.

@ +++

ChrisOne

 

[Gorfael]

Re : Compter des cellules

Salut à tous

Sub CompterVal()
Dim Compteur As Integer
Dim Cell As Range

Compteur = 0
For Each Cell In Range("A1:D1")
If not(Cell = "" Or Cell.HasFormula) Then Compteur = Compteur + 1
Range("F1") = Compteur
Next Cell
End Sub

Non j'ai pas copié sur Moa, c'est qu'une menteuserie 😀

A+

 

[andré]

Re : Compter des cellules

Salut,

A essayer : =SOMMEPROD((A1:A4<>"")*1)

Bon dimanche.

Â+

 

[JeanMarie]

Re : Compter des cellules

Bonjour Tout le monde

André, pas besoin de passer par SOMMEPROD, NB.SI(A1:A4;"<>") fonctionne très bien.

Ma solution, tout comme la tienne, ne résout pas le problème de David. Les formules de base d'Excel ne peuvent résoudre ce cas. La seule façon viable est de passer par le VBA, mais pour le fun, en utilisant la fonction LIRE.CELLULE des anciennes macros commande, il est possible de résoudre ce problème.

Voir le fichier joint, pour accéder à la formule nommée, il faut cliquer sur le menu Insertion/Nom/Définir...

NOTA : LIRE.CELLULE ne peut être utilisée directement dans une cellule, je n'ai pas encore trouvé le moyen de passer une plage de cellule à cette fonction... Il est donc obligatoire de passer par une ligne supplémentaire pour calculer le total.

@+Jean-Marie