Discussion :

[maymou27]

Bonjour,

Dans une cellule j'ai cette formule :

Code :

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

SOMMEPROD((Data!AZ$2:AZ$9989=$I$10)*(Data!BA$2:BA$9989=$E$2)*(Data!BB$2:BB$9989=$E$5)*(Data!AY$2:AY$9989=ANALYSIS!$E$6)*(Data!AH$2:AH$9989=ANALYSIS!B11)*1)

Je voudrais pouvoir la convertir en VBA afin de l'exécuter à partir d'un bouton.

Comment faire SVP ?

[jfontaine]

Bonjour,

Une solution avec Evaluate

Code :

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

MsgBox Evaluate("=SumProduct((Data!AZ$2:AZ$9989=$I$10)*(Data!BA$2:BA$9989=$E$2)*(Data!BB$2:BB$9989=$E$5)*(Data!AY$2:AY$9989=ANALYSIS!$E$6)*(Data!AH$2:AH$9989=ANALYSIS!B11)*1)")

[maymou27]

ça n'a pas marché avec cet méthode!!!

[jfontaine]

ça n'a pas marché avec cet méthode

Messager d'erreur ? résultat pas conforme?

EDIT : un sur un code qui fonctionne très bien chez moi (sur un sommeprod qui fonctionne car pas tester le tiens), je te trouve dur

[Bear the french]

Bonsoir,

Un truc à essayer mais c'est sans garantie :

Code :

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

resultat = [SumProduct((Data!AZ$2:AZ$9989=$I$10)*(Data!BA$2:BA$9989=$E$2)*(Data!BB$2:BB$9989=$E$5)*(Data!AY$2:AY$9989=ANALYSIS!$E$6)*(Data!AH$2:AH$9989=ANALYSIS!B11)*1)]

Un deuxième truc :

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
21
Sub Macrotest()
Dim A, B, C, D, E As Range
Dim var1, var2, var3, var4, var5 As Variant
 
' définitions des matrices
Set A = Sheets("Data").Range("AZ2:AZ9989")
Set B = Sheets("Data").Range("BA2:BA9989")
Set C = Sheets("Data").Range("BB2:BB9989")
Set D = Sheets("Data").Range("AY2:AY9989")
Set E = Sheets("Data").Range("AH2:AH9989")
 
' définitions des critères
var1 = ActiveSheet.Range(I10).Value
var2 = ActiveSheet.Range(E2).Value
var3 = ActiveSheet.Range(E5).Value
var4 = Sheets("ANALYSIS").Range(E6).Value
var5 = Sheets("ANALYSIS").Range(B11).Value
 
MsgBox Application.Evaluate("SUMPRODUCT((""" & A & """=""" & var1 & """)*(""" & B & """=""" & var2 & """)*(""" & C & """=""" & var3 & """)*(""" & D & """=""" & var4 & """)*(""" & E & """=""" & var5 & """)*1)")
 
End Sub

Sans le fichier, mes réponses sont aléatoires et de simples tests... Il y a même peu de chance que ça fonctionne sans quelques corrections

Bertrand