VBA-E comptage de valeurs

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

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

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"

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:

---

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

---

Le 'c' te retournera le nombre de cellules qui a le mot "blocage" :)

Il suffit de faire la meme chose pour ton autre champ :)

Merci je vais tester.

Bjr,
J'ai testé, mais vbtextecompare est toujours à 1 quelle que soit la chaîne
recherchée.

c'est plutot bon signe pour une constante

Toutes mes excuses, je n'avais pas compris son rôle.
Merci à vous