Cherche tutoriel SUMPRODUCT en VBA

[Staple1600]

Bonsoir


Qui aurait:

des exemples d'utilisation de SUMPRODUCT en vba
(utilisation dans Userform avec Evaluate)

des liens à sujets

un tutoriel (la j'en demande peu-etre trop)

En tout cas merci à l'avance à ceux
qui pourront me fournir quelque infos que ce soit.

 

[MichelXld]

Re : Cherche tutoriel SUMPRODUCT en VBA

bonjour

j'espere que ces liens pourront t'aider

https://www.excel-downloads.com/threads/formule-en-vba.63968/

https://www.excel-downloads.com/threads/sommeprod-en-vba.49951/

tu trouveras d'autres exemples en utilisant le moteur de recherche du forum


bonne journée
MichelXld

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

Bonjour


Merci MichelXLD

(Bah justement j'avais été voir sur tes pages Wiki et j'avais
trouvé un exemple)

mais chez moi ca générait un message d'erreur.

Pour être plus précis, j'essaye de trouver une solution
avec sommeproduct en vba pour ce post
https://www.excel-downloads.com/threads/stat.68110/
(et pour le moment je seche pour ce qui est d'utiliser SUMPRODUCT en vba
bien que j'y arrive avec les formules)

 

[MichelXld]

Re : Cherche tutoriel SUMPRODUCT en VBA

rebonjour

peux tu montrer la procédure que tu as utilisé?


bon apres midi
MichelXld

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

rebonjour

Voila ce qu'est j'ai trouvé chez toi:

Utiliser une fonction matricielle SOMMEPROD par macro

La macro correspond à cette formule:
SOMMEPROD((E58:E183=H60)*(C58:C183=I60)*(B58:B183=J60)*(F58:F183))
Les arguments H60, I60 et J60 seront maintenant des données saisie dans les Textbox d'un Userform

msgBox Evaluate("=SUMPRODUCT((E58:E183 =""" & textBox1.Text & """) * " & _
"(C58:C183 =""" & textBox2.Text & """) * (B58:B183 =""" & textBox3.Text & """) * (F58:F183))")

Donc j'ai essayé d'adapter sans succès

Alors j'ai été voir chez nos amis anglosaxons

J'ai essayé ceci:

Private sub commandbutton etc
'Ceci est la formule qui fonctionne dans la feuille
'SOMMEPROD((MOIS($A$2:$A$25)=MOIS($I$10))*($B$2:$B$25=$I$11)*($D$2:$D$25="X"))
' et que j'essaie de traduire en VBA dans l'userform
'pour le meomet je ne m'occupe pas des textbox'
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim lenom As Range
Dim ladate As Range
Dim chaine As String

Set rng1 = Sheets(1).Range("A2:A25")
Set rng2 = Sheets(1).Range("B2:B25")
Set rng3 = Sheets(1).Range("D2😀25")
chaine = "X"
'J'obtiens #VALEUR en b26
Sheets(1).Range("B26") = Evaluate("SumProduct((Month(" & rng1.Address & "))= Month(ladate)) * ((" & rng2.Address & ")= lenom.Value))*((" & rng3.Address & ")= """ & chaine & """))")
'et un message d'erreur avec msgbox
'MsgBox x
End Sub

(Pardon pour ma syntaxe surement pas tres orthodoxe)

 

[Bebere]

Re : Cherche tutoriel SUMPRODUCT en VBA

bonsoir le site
av-evaluate-v7 de Alain Vallon est excellent
à bientôt

 

[ChTi160]

Re : Cherche tutoriel SUMPRODUCT en VBA

Salut Staple1600
bonsoir le fil
voila ce que j'ai fait 2 possibilités on colle la formule dans la cellule B26
ou on utilise Evaluate via une variable ou directement dans la cellule
Sub Zonedetexte1_QuandClic()
Dim rng1 As String
Dim rng2 As String
Dim rng3 As String
Dim rng4 As String
Dim rng5 As String
Dim chaine As String
Dim Rep As Byte
rng1 = Workbooks("Classeur1.xls").Sheets(1).Range("""A2:A25""")
rng2 = Workbooks("Classeur1.xls").Sheets(1).Range("""B2:B25""")
rng3 = Workbooks("Classeur1.xls").Sheets(1).Range("""D2: D25""")

rng4 = Workbooks("Classeur1.xls").Sheets(1).Range("I10")
rng5 = Workbooks("Classeur1.xls").Sheets(1).Range("I11")
chaine = "X"

'Sheets(1).Range("B26").FormulaLocal = "=SOMMEPROD((MOIS(" & rng1 & ")=MOIS(" & rng4 & "))*(" & rng2 & "=" & rng5 & ")*(" & rng3 & "=""" & chaine & """))"

'Rep = Evaluate("SumProduct((month(" & rng1 & ")=Month(" & rng4 & "))*(" & rng2 & "=" & rng5 & ")*(" & rng3 & "=""" & chaine & """))")
Sheets(1).Range("B26") = Evaluate("SumProduct((month(" & rng1 & ")=Month(" & rng4 & "))*(" & rng2 & "=" & rng5 & ")*(" & rng3 & "=""" & chaine & """))")
'Sheets(1).Range("B26") = Rep
End Sub
arfffffffff il faut """ = "
en espèrant avoir pu t'aider,car je crois que comme beaucoup ici ,tu es un mordu Lol 😉
Bonne fin de Soirée

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

Bonsoir

J'ai essayé ton code ChTi160

Et VBA me dit:
Type incompatible (erreur 13)

j'ai regardé la solution de Thierry

mais je suis pas encore trés familiarisé avec les tableaux (array)

Je retourne chercher pourquoi j'ai cette erreur

(Si quelqu'un peut trouver avant moi, j'en serai content)

Bonne soirée

 

[ChTi160]

Re : Cherche tutoriel SUMPRODUCT en VBA

Salut Staple1600
Bonjour le Fil
Bonjour le Forum
arff je te joins le fichier lol, tu regardes le code, il y a plusieurs possibilités à tester

Le Fichier :Regarde la pièce jointe Evaluate_Classeur1.zip

bonne journée

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

Bonjour

j'ai essayé ton exemple ChTi160 (ca fonctionne) Merci
j'ai voulu l'intégrer dans un userform
avec un Label1 avec TextBox1

J'ai repris le code de ta macro
Voila les modifs que j'ai faite
et évidemment ca ne fonctionne pas

Private Sub CommandButton1_Click()
'...
Dim tbMois As String
'...
tbMois = CDate(TextBox1.Value)
'...
Rep = Evaluate("SumProduct((Month(" & rng1 & ")=Month(" & tbMois & "))*(" & rng2 & "=" & rng5 & ")*(" & rng3 & "=""" & chaine & """))")
Label1.Caption = Rep
End Sub

Si tu passes par là, merci de m'aider

Bon week à tous

 

[ChTi160]

Re : Cherche tutoriel SUMPRODUCT en VBA

Salut Staple1600

si tu pouvais mettre un morceau de fichier avec ce que tu as et le résultat voulu cela aiderait Lol
car comme cela je ne vois pas lol 😀 enfin je ne vois rien lol 😕

Merci d'avance

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

Bonsoir ChTi160

Le temps de faire un exemple

et je reviens

Bonne soirée à tous

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

Voila un fichier exemple

qui fonctionne

mais ne pourrais-t-on aller vers une syntaxe plus simple?


Et quelle est la différence avec

Application.SumProduct(range1,range2)

Merci.

 

[Bebere]

Re : Cherche tutoriel SUMPRODUCT en VBA

bonjour le fil

dans txtbmois,tu entres le n° du mois et c'est ok
j'ai mis bebere en commentaire au dessus des 2 lignes que j'ai changé

à bientôt

 

[Staple1600]

Re : Cherche tutoriel SUMPRODUCT en VBA

Bonjour


Merci à tous les intervenants pour leur aide

J'en appelle (non pas à la tendresse)
mais à ceux d'entre vous (et celles)
qui sont atteints du syndrome de simplication du code VBA

pour m'aiguiller dans ma quête

(voir pièce jointe
et commentaires dans le code)

Merci encore
et bonne journée à tous.