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

fb62840 · 24 Juin 2021

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 · 24 Juin 2021

Bonjour FB,
Un essai en PJ à adapter avec :

VB:

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

sylvanu · 24 Juin 2021

Bonjour FB,
Un essai en PJ à adapter avec :

VB:

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 · 25 Juin 2021

sylvanu à dit:
Bonjour FB,
Un essai en PJ à adapter avec :

VB:

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

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

fb62840

XLDnaute Impliqué

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

fb62840

XLDnaute Impliqué

Discussions similaires