Discussion :

[Kestion100]

Bonjour,
J'ai le plus grand mal à faire fonctionner une sommeprod en vba.

J'essaie avec le code suivant:

Code :

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

Verif = Evaluate("" & "=SumProduct((" & UAI & " = " & "Sheets(""ACTIVITE"").Range(""B2:B""" & DernLig & ") * 1), (" & MATIERE & " & = Sheets(""ACTIVATE"").Range(""F2:F""" & DernLig & ") * 1))" & "")

Qui me renvoie

erreur d'exécution 13 incompatibilité de type

Code :

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

Evaluate("" & "=SUMPRODUCT(('ACTIVITE'!$B$2:$B$1400=" & UAI & ")*('ACTIVITE'!$F$2:$F$1400=" & MATIERE & "))" & "")

ne fonctionne pas plus alors que si je remplace les variables par des valeurs exemples, aucun problème???


J'ai essayé plusieurs possibilité, rien n'y fait.

Quelqu'un peut-il éclairer ma lanterne s'il vous plaît?

MERCI BEAUCOUP d'avance!!!!!!

[révèr]

Bonjour,

Lorsque ta ligne est surlignée en jaune, passe ta souris sur tous les arguments pour voir dans un premier temps si les valeurs prises par le code sont celles que tu souhaites.

Par ailleurs, as-tu dans un premier temps essayé avec une formule Excel basique ?

Par ailleurs, ta "SOMMEPROD" doit-elle correspondre à une cellule sur ton tableur ou c'est seulement un calcul "caché" ? Si c'est un résultat visible, tu peux utiliser : Range.R1C1FormulaLocal qui te permettra d'écrire la formule directement dans la barre de fonction. Bien évidemment, tu peux mettre des variables tout comme tu l'as fait sur ton code.

J'espère que ça pourra t'aider un minimum

[Kestion100]

Merci pour la réponse:

Oui les valeurs apparaissent
Oui et ça fonctionne
Résultat caché

La formule fonctionne avec deux valeurs exemples à la place des variables UAI et MATIERE.


Problème de guillemets???? de syntaxe de la fonction???

[révèr]

Avec mes connaissances limitées, je ne pourrai alors que te suggérer de vérifier ta déclaration des variables UAI et MATIERE afin de t'assurer qu'elles soient de même type.

Il me semble qu'il existe des codes pour connaître le type d'une variable, cela pourrait t'être utile afin de savoir quel est le "vrai" type que VBA prend en compte.

Bon courage !

[Kestion100]

Mes variables sont déclarées comme ça:

Code :

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

1
2
3
4
5
Dim Verif As Long, UAI As String, MATIERE As String, DernLig As Long
 
UAI = "00XXX"
MATIERE = "XXX"
DernLig = Range("A500000").End(xlUp).Row

En déclarant verifen Variant, j'obtiens le résultat erreur 2015 qui ne correspond à rien de ce que je cherche?????

Ni à aucune données que ce soit de mon tableau

[révèr]

As-tu essayé le mode "pas à pas" pour voir si c'est bien sur la ligne ou sur les déclarations que l'erreur apparaît ?

Je me demande aussi s'il est nécessaire que tu aies "&" en début et fin de parenthèses. Je précise que je ne connais pas bien la fonction Evaluate, alors je n'émets que des suppositions !
En espérant que cela puisse te guider vers la bonne voie !

Mais je dirai que le problème vient des variables. Lorsque tu as remplacé ces variables par leurs valeurs respectives, as-tu écrit l'exacte-même syntaxe ?

Je pense notamment à ta seconde variable avec un "." - pure supposition encore une fois

[révèr]

Code :

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

Verif = Evaluate("" & "=SumProduct((" & UAI & " = " & "Sheets(""ACTIVITE"").Range(""B2:B""" & DernLig & ") * 1), (" & MATIERE & " & = Sheets(""ACTIVATE"").Range(""F2:F""" & DernLig & ") * 1))" & "")

C'est sur cette ligne-là que tu as l'erreur 2015 lorsque tu déclares "Verif as Variant" ?

[Kestion100]

Je fais un

Code :

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

debug.print verif

qui me renvoie

Code :

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

erreur 2015

Ce n'est même plus un véritable message d'erreur avec la fenêtre qui va bien

[révèr]

Code :

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

Evaluate("SUMPRODUCT(('ACTIVITE'!$B$2:$B$1400=" & UAI & ")*('ACTIVITE'!$F$2:$F$1400=" & MATIERE & "))")

Essaie comme cela ?

En farfouillant sur internet, j'avais trouvé une erreur similaire, et le "=" n'était pas renseigné.

[Kestion100]

Toujours pareil....

[révèr]

Afin d'identifier le problème, je te propose 2 options :

• Code :

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

  Evaluate("SUMPRODUCT(('ACTIVITE'!$B$2:$B$1400="00XXX")*('ACTIVITE'!$F$2:$F$1400=" & MATIERE & "))")

• Code :

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

  Evaluate("SUMPRODUCT(('ACTIVITE'!$B$2:$B$1400=" & UAI & ")*('ACTIVITE'!$F$2:$F$1400="XXX"))")

Si ton code fonctionne lorsque tu saisis "00XXX" ET "XXX" mais aucunement avec "UAI" ET "MATIERE", il me semble logique que ce soit l'une de ces deux variables qui pose problème.

La première option te permet de tester si l'erreur pourrait venir de la variable : MATIERE
La seconde option te permet de tester si l'erreur pourrait venir de la variable : UAI

Ou sinon un simple Debug.Print sur les valeurs ? (Je ne sais pas si c'est possible)

Autrement je suis à cours d'idée j'avoue !

[Kestion100]

Evolution:

Code :

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

1
2
Debug.Print Evaluate("=SUMPRODUCT(('ACTIVITE'!$B$2:$B$1400=" & "000XX" & "))")
Debug.Print Evaluate("=SUMPRODUCT(('ACTIVITE'!$F$2:$F$1400=" & "XXXX" & "))")

donnent:

Code :

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

1
2
3
 
erreur 2015
erreur 2029

[Kestion100]

Je peux faire à peu près tout et n'importe quoi dans les parenthèses d'

Code :

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

Evaluate

, à condition de respecter les

Code :

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

"

, rien ne change

[Kestion100]

En plaçant "Bonjour" et " Au revoir" sur la même ligne dans les deux colonnes:

Code :

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

1
2
3
4
5
6
7
8
UAI = "Bonjour"
MATIERE = "Au revoir"
DernLig = Range("A500000").End(xlUp).Row
 
 
 
Debug.Print Evaluate("=SUMPRODUCT(('ACTIVITE'!$B$2:$B$1400=" & "Bonjour" & "))")
Debug.Print Evaluate("=SUMPRODUCT(('ACTIVITE'!$F$2:$F$1400=" & "Au revoir" & "))")

Code :

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

1
2
3
 
Erreur 2029
Erreur 2029

[révèr]

On en est au même point ! Je suis aussi sur une erreur 2029. Avançons ensemble !

[Kestion100]

Code :

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

Debug.Print Evaluate("SUMPRODUCT(('ACTIVITE'!$B$11:$B$13=""Bonjour""))")

Code :

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

=0

Alors que la valeur est bien présente en

Code :

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

B12

[révèr]

""Bonjour"" --> Bonjour

J'avais testé avec 2 colonnes, et sans les guillemets ça t'affiche le bon résultat

[Kestion100]

Code :

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

Debug.Print Evaluate("=SUMPRODUCT(('ACTIVITE'!$B$11:$B$13=Bonjour))")

Ne donne rien chez moi 2029.....

[révèr]

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
Sub test()
 
Dim Verif As Variant, UAI As String, MATIERE As String, DernLig As Long
Dim rng1 As Range, rng2 As Range
 
Set rng1 = Worksheets(2).Range("A1:A6")
Set rng2 = Worksheets(2).Range("B1:B6")
 
UAI = "FAUX"
MATIERE = "VRAI"
DernLig = Range("A500000").End(xlUp).Row
 
Verif = Evaluate("=sumproduct((" & rng1.Address & "=" & UAI & ")*(" & rng2.Address & "=" & MATIERE & "))")
 
Range("E1").FormulaLocal = "=SOMMEPROD(($A$1:$A$" & DernLig & "=" & UAI & ")*($B$1:$B$" & DernLig & "=" & MATIERE & "))"
 
Range("D1").Value = Verif
 
End Sub

Bon... J'ai toujours une erreur, mais je passe de la 2029 à la 2015 ! On se rapproche de 0

[Qwazerty]

Salut

As tu essayé de simplement faire un enregistrement macro et de saisir la formule que tu souhaites dans une cellule. L'enregistreur va traduire en VBA.
Mais je passe peut-être à coté de quelque chose.

++
Qwaz