VBA-E comptage de valeurs

**bernard38** · 17/10/2006, 09h05

Bjr,

Existe-t-il un moyen simple de compter dans une macro le nombre de cellules
qui contiennent une chaine précise.
Pour l'instant je fais une recherche de ces cellules,je les copie dans une autre feuille et je fais un NBVAL, mais c'est un peu lourd.
Cdt

**bidou** · 17/10/2006, 10h53

ca peut être plus ou moins simple selon que les cellules contiennent exactement ou en partie le texte.

**bernard38** · 17/10/2006, 11h35

En fait elles contiennent un truc du style

Message blocage facture 6399733 Date éch: 01-SEP-2006 EDG NTR - A -

ou

Message BAP facture 6421976 Date éch: 09-SEP-2006 EDG WBC - A -

et je cherche à compter celles qui contiennent la chaîne "blocage" et
celles qui contiennent la chaîne "BAP"

**illight** · 17/10/2006, 13h16

en faisant un parcours de tes cellules et en disant que c'est dans ta première colonne qu'il y a tes noms que tu as mis au dessus :

Code vb :

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

1
2
3
4
5
6
 
c = 0
For i = 1 To Range("A1").End(xlDown).Row
If InStr(1, Cells(i, 1).Value, "blocage", vbTextCompare) <> 0 Then
          c = c + 1
End If