Discussion :

[ARTETA13]

Bonjour,

voici mon problème:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Ashireon]

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

[ARTETA13]

Voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim ZONE1 As String
Dim ZONE2 As String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ARTETA13]

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