Nouveau SUMPRODUCT à critères multiples

[anber]

Bonsoir le Forum,

Une nouvelle demande avec plusieurs critères dont le résultat est le cumul de colonnes non adjacentes.
Quel en serait le code VBA ?

J'envisage le résultat avec SUMPRODUCT, mais tout autre code rapide peut aller

Merci par avance [file name=Testsumprod1.zip size=9910]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Testsumprod1.zip[/file]

 

[porcinet82]

Salut Anber,

Une petite solution par macro puisque je ne suis pas familier des formules, et je te signla au passage que le resultat que tu proposes dans ton fichier est faux 😉.

Sub test()
Dim i As Byte, x As Integer, y As Integer

Application.Goto Sheets('PG2006').Range('A1')
For i = 7 To Range('a65536').End(xlUp).Row
    If Cells(i, 1).Value = 'Curatif' Then
        If Cells(i, 2).Value = 'Z1' Or Cells(i, 2).Value = 'Z2' Or Cells(i, 2).Value = 'Z3' Then
            For j = 8 To 12 Step 2
                x = x + Cells(i, j).Value
            Next j
            For k = 9 To 13 Step 2
                y = y + Cells(i, k).Value
            Next k
        End If
    End If
Next i
Sheets('B').Cells(2, 1).Value = x
Sheets('B').Cells(2, 2).Value = y
End Sub

@+

 

[anber]

Bonsoir porcinet82

Merci pour ta réponse.
Je n'avais pas vérifié le résultat, c'est celui du code qui était déjà en place mais sans toutes les condition

Cordialement

 

[Monique]

Re,

Macro, je ne sais pas,
mais tu as des formules dans ton fichier

Et il n'y a pas de Si(EstErreur())
(je suis à peine têtue) [file name=SommeProdAnberV3.zip size=7517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SommeProdAnberV3.zip[/file]

 

[jp14]

Bonsoir Anber, Porcinet82

Ci joint une autre solution par macro avec mise à jour automatique.

JP [file name=Testsumprod1_20060316191753.zip size=13945]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Testsumprod1_20060316191753.zip[/file]

 

[anber]

Bonsoir Monique, Jp14, porcinet82

Merci pour vos réponses, c'est parfait, il n'y a plus qu'a choisir

Cordialement