Calcul nombre d'occurences

S

STéphane

Guest

• 20 Novembre 2002

• #2

bonjour


Function Compterlesfruits(rg As Range, tx) As Integer
Compterlesfruits = Application.CountIf(rg, tx)
End Function
Sub djdjd()
MsgBox Compterlesfruits([A1:A4], "poire")
End Sub


il y a des messages sur ce forum qui traitent de cela, tu peux les rechercher, il y a une fonction pour cela.

bye
Stéphane

 

Vote positif 0 Vote négatif

P

Philoo

Guest

• 20 Novembre 2002

• #3

sinon, sans parler de fonction perso, tu dois pouvoir t'en sortir avec une fonction du genre
somme.si(ta_plage,"*Poire*",une_autre_plage), où "un_autre_plage" ne contient que des 1 (pour compter le nb d'occurences)
Voilà, à tester...
Philoo

 

Vote positif 0 Vote négatif

J

Jacky

Guest

• 20 Novembre 2002

• #4

Bonsoir

Il y a la fonction NB SI

=NB.SI(A1:A4;"poire")

c'est plus simple
A+ Jacky

 

Vote positif 0 Vote négatif

P

Philoo

Guest

• 20 Novembre 2002

• #5

effectivement ça marche aussi mais faut pas oublier les * :
nb.si(plage;"*poire*")

 

Vote positif 0 Vote négatif

J

Jacky

Guest

• 20 Novembre 2002

• #6

Bonsoir


S'il n'y a que le mot" poire" dans la cellule il n'y a pas besoin de mettre
les * *

A+
Jacky

 

Vote positif 0 Vote négatif

J

J&B

Guest

• 21 Novembre 2002

• #7

Non seulement, il n'y a pas que le mot poire dans la cellule, mais en plus il peut être présent plusieurs fois. Et dans ce cas la NB.SI ne compte qu'une seule occurence par cellule, ce n'st donc pas encore exactement ce dont j'ai besoin.

En ce qui concerne le message de Stephane je n'ai pas compris cette histoire de CountIf.

 

Vote positif 0 Vote négatif