XL 2013 Somme conditionnelle sur 2 colonnes en vba

[fb62840]

Bonjour,

Je suis embarrassé car je dois faire une somme conditionnelle en vérifiant sur toutes les feuilles d'un classeur (avec plus de 100 feuilles qui ont la même structure) si les cellules en colonne C et en colonne F contiennent, pour la Colonne C la valeur "ROSE" et pour la colonne F la valeur "HYB" et, si c'est le cas alors valoriser à 1 et faire la somme des 1 pour toutes les cellules qui en colonne C et en colonne F contiennent les valeurs critères dans toutes les feuilles à l'exception de la feuille "CONSO".

Je n'y arrive pas avec un dénombrement conditionnel par formule (trop nombreux onglets) et il me faudrait alors votre aide pour obtenir une solution en vba.

Merci beaucoup

 

[Lolote83]

Re bonjour ChTi160,
Voir post#14, je pense que cela répond à ta question
@+ Lolote83

 

[fb62840]

Re bonjour à tous.
Bien vu ChTi160,
Voici donc le code corrigé

Sub Compte2()
    Dim N%: R = 0
    For Each F In Worksheets
        If F.Name <> "CONSO" Then
            R = R + Sheets(F.Name).Evaluate("=SUMPRODUCT((C2:C1000=""ROSE"")*(F2:F1000=""HYB""))")
        End If
    Next F
    [A1] = R
End Sub

@+ Lolote83

Un énorme merci, il semble bien désormais que ça fonctionne, merci à vous deux pour votre aide,
bonne journée

 

[ChTi160]

Re
Juste de la curiosité j'avais bien vu ta solution#14
Mais pourrait on mettre un truc du genre

=SUMPRODUCT((F!C2:C1000=""ROSE"")*(F!F2:F1000=""HYB""))")

Jean marie

 

[Lolote83]

Re bonjour,
Effectivement, après des tests, il semble que si on met dans la formule le nom de l'onglet cela fonctionne

    R = R + Evaluate("=SUMPRODUCT((" & F.Name & "!C2:C1000=""ROSE"")*(" & F.Name & "!F2:F1000=""HYB""))")

@+ Lolote83

 

[ChTi160]

Re
Merci
Bonne journée
Jean marie