Compteur

[yoyo13]

Bonjour,

je souhaite utiliser une fonction du sytle compteur mais qui ne comptabilise pas les 0 est les cellules vides

Merci

 

[_Thierry]

Re : Compteur

Bonjour Yoyo13, le Forum

Je ne sais pas si une telle Fonction existe déjà toute prête...

Donc voici une Fonction Personnalisée à mettre dans un Module Standard de VBE (Module1 par exemple)

[COLOR=blue]Option Explicit[/COLOR]

[COLOR=blue]Function[/COLOR] COMPTEUR([COLOR=blue]ByVal[/COLOR] Plage [COLOR=blue]As [/COLOR]Range) [COLOR=blue]As Integer
[/COLOR][COLOR=blue]Dim[/COLOR] Cell [COLOR=blue]As[/COLOR] Range
[COLOR=blue]Dim[/COLOR] i [COLOR=blue]As[/COLOR] Integer
 
Application.Volatile
    [COLOR=blue]For Each[/COLOR] Cell [COLOR=blue]In[/COLOR] Plage
        [COLOR=blue]If[/COLOR] Cell <> "" [COLOR=blue]And[/COLOR] Cell <> 0 [COLOR=blue]Then[/COLOR]
            i = i + 1
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] Cell
COMPTEUR = i
[COLOR=blue]End Function[/COLOR]

Pour l'exploiter il suffit de l'employer directement par une Formule dans la Feuille comme ceci :

=COMPTEUR(A1:A20)

Bonne fin de journée

@+Thierry
​

 

[andré]

Re : Compteur

Salut yoyo13, salut l'ami _Thierry, salut le forum,

Pas une fonction mais une formule :
=SOMMEPROD((A1:A10<>"")*(A1:A10<>0))

Â+

 

[yoyo13]

Re : Compteur

Rebonjour,

Un grand merci pour vos explications
je vais essayer vos differentes propositions

Bonne fin d'apres midi à tous