Discussion :

[fuyo2004]

Bonjour,

je cherche un moyen simple de compter dans une macro le nombre d'occurences d'un mot présent sur plusieurs feuilles, toujours dans la même colonne B.

J'ai des problèmes même en essayant de compter feuille après feuille, car la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("donnees1").Select
nb = NB.SI(B:B;"mot")

me renvoit une erreur de compilation (séparateur de liste attendu à la place du : )

Quelqu'un a une idée pour résoudre mon problème ?

Merci d'avance.

[sabzzz]

bonjour fuyo2004,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each f In Sheets
x = x + Application.CountIf(Sheets(f.Name).Range("B:B"), "mot")
Next

[fuyo2004]

Merci sabzzz juste ce qu'il me fallait !

[fuyo2004]

Pour pinailler un petit peu : comment faire maintenant pour compter le nombre d'occurences d'une certaine chaîne de caractères à l'intérieur des chaînes de caractères de ma colonne ?

La commande ci-dessus donne le nombre d'occurence de "mot", mais moi j'aimerais également que soient comptabilisés "48mot", "motard", mlqkmotqsds" par exemple.

[sabzzz]

bonjour,

ça risque d'être un peu plus long,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
MotÀcompter = "mot"
For Each f In Worksheets
 For Each c In Sheets(f.Name).Range("A1:C5")
   x = x + (Len(c) - Len(Application.Substitute(c, MotÀcompter, ""))) / Len(MotÀcompter)
 Next
Next
MsgBox x
End Sub

[fuyo2004]

Merci.