PB: fonction sumproduct

Bonjour,

voici mon problème:

je souhaiterai utiliser la fonction sumproduct sur en définissant des plages sur 3 onglets différent:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

With ThisWorkbook.Sheets("Feuil1") Set ZONE1 = .Range("D3:G3") Set MOIS = .Range("A4:A368") Set JOUR = .Range("B4:B368") Set ZONET = .Range("D4:G368") End With   rng1 = ThisWorkbook.Sheets("Feuil3").Range("S" & i) rng2 = ThisWorkbook.Sheets("Feuil2").Range("A" & j) rng3 = ThisWorkbook.Sheets("Feuil2").Range("B" & j)   TefJ = Evaluate("SumProduct((" & ZONE1.Address & " = " & rng1 & ") * (" & MOIS.Address & " = " & rng2 & ") * (" & JOUR.Address & " = " & rng3 & ")* (" & ZONET.Address & "))")

---

Le problème est que la plage pour chaque zone est correct mais il n'arrive pas à repérer l'onglet qui appartient à la plage selectionné.

Merci pour votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim i As Integer Dim j As Integer Dim LastRow As Long Dim LastRow2 As Long Dim ZONE1 As String Dim ZONE2 As String Dim ZONET As String Dim ZONET2 As String Dim MOIS As String Dim JOUR As String   Dim rng1 As String Dim rng2 As String Dim rng3 As String Dim rng4 As String     LastRow = Sheets("Feuil3").Range("Q" & Rows.Count).End(xlUp).Row LastRow2 = Sheets("Feuil2").Range("C" & Rows.Count).End(xlUp).Row LastRow3 = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row   ARTETA13 est actuellement connecté Envoyer un message privé Modifier/Supprimer le message

---