XL 2013 Pouvez-vous m'aider pour un équivalent nb.si sur plusieurs feuilles ?

[fb62840]

Bonjour à tous,

J'ai cherché sans succès une solution pour obtenir ceci en VBA :
Calculer sur toutes les feuilles, à l'exception de la feuille nommée CONSO le nombre de cellules de la plage de C2 à C1000 où l'on peut trouver la valeur "Fleur" sur toutes les autres feuilles du classeur.
J'ai essayé avec la fonction nb.si mais j'ai trop de feuilles et ça ne marche pas.

Merci beaucoup pour votre aide.

 

[sylvanu]

Bonjour FB,
Un essai en PJ à adapter avec :

Sub Compte()
Dim N%: N = 0
For Each F In Worksheets
    If F.Name <> "CONSO" Then
        N = N + Application.CountIf(F.[C2:C1000], "Fleur")
    End If
Next F
[C5] = N
End Sub

 

[fb62840]

Bonjour FB,
Un essai en PJ à adapter avec :

Sub Compte()
Dim N%: N = 0
For Each F In Worksheets
    If F.Name <> "CONSO" Then
        N = N + Application.CountIf(F.[C2:C1000], "Fleur")
    End If
Next F
[C5] = N
End Sub

Merci beaucoup pour votre aide ça fonctionne très bien.
Belle journée à vous