Fonction sumproduct (multi-onglets)

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.

J'ai pourtant déclaré le classeur et l'onglet.
J'ai toujours une erreur.

Merci pour votre retour.

Hello
Peux tu noux montrer comment tu declares zone 1 et 2 etc
Utilises les balises pour du code

Voici:

Code:

---

1 2	Dim ZONE1 As String Dim ZONE2 As String

---

Code:

---

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

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

---

La réponse n'est pas évidente...