Bonjour à tous
Le test1 fonctionne .
Sub test1()
MsgBox Evaluate("=SUMPRODUCT((c7:c19 = g7)*(d7:d19) ) ")
End Sub
2/ le test2 ne fonctionne pas
Je souhaiterais remplacer les termes par des variables
Sub test2()
Dim plage1 As Range, plage2 As Range, y$
Set plage1 = Range("c7:c19")
Set plage2 = Range("d7:d19")
y = "T3P3"
MsgBox Evaluate("=SUMPRODUCT((" & plage1 & " = " & y & ")*(" & plage2 & ") ) ")
End Sub
Merci à vous de bien vouloir corriger ce bout de code.
Je n'ai pas réussi à trouver la réponse sur le forum
En vous remerciant par avance
Bonne soirée
Goufra
Le test1 fonctionne .
Sub test1()
MsgBox Evaluate("=SUMPRODUCT((c7:c19 = g7)*(d7:d19) ) ")
End Sub
2/ le test2 ne fonctionne pas
Je souhaiterais remplacer les termes par des variables
Sub test2()
Dim plage1 As Range, plage2 As Range, y$
Set plage1 = Range("c7:c19")
Set plage2 = Range("d7:d19")
y = "T3P3"
MsgBox Evaluate("=SUMPRODUCT((" & plage1 & " = " & y & ")*(" & plage2 & ") ) ")
End Sub
Merci à vous de bien vouloir corriger ce bout de code.
Je n'ai pas réussi à trouver la réponse sur le forum
En vous remerciant par avance
Bonne soirée
Goufra