Excel VBA : dans une colonne, compter le nombre de 'toto' parmi les cellules visibles

[azerty6767]

Bonjour,

En fait, je souhaite faire quelque chose d'à priori simple.

--> Dans la colonne H qui contient des données dont des 'toto' sur des cellules non masquées et masquées
--> je souhaite compter le nombre de cellules (cellules visibles uniquement, pas celles masquées !!) où est écrit "toto"

--> avec CountIf, j'arrive à compter tous les 'toto' dans les cellules visibles et masquées
--> en ajoutant "SpecialCells(xlCellTypeVisible)" à mon code , j'ai un message d'erreur

Quelqu'un pourrait m'éclairer et peut-être m'aider ?

Ci-joint un exemple !

Merci d'avance,


Olivier

 

[R@chid]

Re : Excel VBA : dans une colonne, compter le nombre de 'toto' parmi les cellules vis

Bonjour,
un essai par formule,

=SOMMEPROD(SOUS.TOTAL(103;DECALER(H1;LIGNE(INDIRECT("1:"&LIGNES(H2:H23)));))*(H2:H23="toto"))

@ +

 

[azerty6767]

Re : Excel VBA : dans une colonne, compter le nombre de 'toto' parmi les cellules vis

Merci, cela fonctionne bien !

Et en version VBA, quelqu'un aurait-il une piste..?!!


Olivier,

 

[kjin]

Re : Excel VBA : dans une colonne, compter le nombre de 'toto' parmi les cellules vis

Bonsoir,

Private Sub CommandButton2_Click()
Dim reponse%
Set monrange = Worksheets("Feuil1").Range("H2:H14").SpecialCells(xlCellTypeVisible)
For i = 1 To monrange.Areas.Count
reponse = reponse + Application.CountIf(monrange.Areas(i), "toto")
Next
MsgBox reponse
End Sub

A+
kjin

 

[azerty6767]

Re : Excel VBA : dans une colonne, compter le nombre de 'toto' parmi les cellules vis

Super ça fonctionne
merci beaucoup!