Arrêt fonction Application. ou worksheetfunction.

Version imprimable

Bonjour,

J'ai un petit problème. J'utilise la fonction somme.si ci-dessous qui marche très bien mais après le premier résultat, les autres gardent le résultat de la première. J'ai tenté de mettre chaque résultat dans une variable et aussi de faire Application.false empty etc. mais rien à faire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 '_______1 Sheets("BNP3").Range("N5") = "Somme col. A si OK" Range("N6") = Application.SumIf(Range("L2:L10000"), "OK", Range("B2:B10000")) '_______2 Sheets("SG2").Range("N5") = "Somme col. A si OK" Range("N6") = Application.SumIf(Range("L2:L10000"), "OK", Range("B2:B10000")) '_______3 Sheets("CCP").Range("N5") = "Somme col. A si OK" Range("N6") = Application.SumIf(Range("L2:L10000"), "OK", Range("B2:B10000")) End Sub
Voilà! Merci

Bonjour,

Je verrais bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    '_______1
    With Sheets("BNP3")
        .Range("N5") = "Somme col. A si OK"
        .Range("N6") = Application.SumIf(.Range("L2:L10000"), "OK", .Range("B2:B10000"))
    End With
    '_______2
    With Sheets("SG2")
        .Range("N5") = "Somme col. A si OK"
        .Range("N6") = Application.SumIf(.Range("L2:L10000"), "OK", .Range("B2:B10000"))
    End With
    '_______3
    With Sheets("CCP")
        .Range("N5") = "Somme col. A si OK"
        .Range("N6") = Application.SumIf(.Range("L2:L10000"), "OK", .Range("B2:B10000"))
    End With

Cordialement.

Bien vu !

Tel quel, le calcul s'effectue uniquement sur la feuille active car aucune référence de feuille y est présente …

Cela va encore avec trois feuilles mais s'il y en a plus, faudrait simplifier via une boucle sur une matrice :
Code:

1 2 3 4 5 6 For Each Feuille In [{"BNP3","SG2","CCP"}] With Worksheets(Feuille) .[N5] = "Somme col. A si OK" .[N6] = Application.SumIf(.[L2:L10000], "OK", .[B2:B10000]) End With Next
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …