Discussion :

[gorgio]

Bonjour,

J'ai un petit problème sous vba.
J'utilise un sommeprod sous vba et renvoi le résultat sous excel.

Mais j'ai un problème de #valeur? sur ma réponse.
Après plusieurs tests, je me suis rendu compte que cela provenai du format d'une cellule.

En fait, je compare un chiffre entré manuellement et un chiffre obtenu grâce à une formule.

Je pense que cela doit être cause de la synthaxe de mon code sous vba avec les guillements mais je n'y arrive pas.

Voici le code:

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
22
23
24
25
26
27
Sub calcul_2()
'
' calcul_2 Macro
'
Dim r&
Dim ShA As Worksheet
Set ShA = ActiveWorkbook.Sheets("A")
Dim ShB As Worksheet
Set ShB = ActiveWorkbook.Sheets("B")
Dim cpte As Range
Dim montant As Range
 
 
ShA.Activate
 
With ShA
r = ShA.Cells(100, 1).End(1).Row
 
Set cpte = ShA.Range(Cells(1, 1), Cells(r, 1))
Set montant = ShA.Range(Cells(1, 2), Cells(r, 2))
 
 
ShB.Cells(3, 2) = Application.Evaluate("SUMPRODUCT((cpte= " & ShB.Cells(3, 1) & " )*(montant))")
 
End With
'
End Sub

Merci d'avance.

[LeForestier]

Bonjour,
Déjà en mettant Set tu implémente la réponse comme un Objet.
Puis tu ne déclare pas tes variables.
Enlève les Set et déclare tes variables en fonction de ce qu'elle doivent contenir.
A+
EDIT: En fait je n'avais pas bien évaluer ta fonction, mais je verais plutôt..

Code :

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

ShB.Cells(3, 2) = Application.Evaluate("SUMPRODUCT((cpte= " & ShB.Cells(3, 1) & " )*(" & montant & "))"")

Et probablement des double guillements ??

[gorgio]

Non cela ne marche toujours pas.

Le problème selon moi, vient en fait du tableau où se trouvent les valeurs.

En effet, en faisant la meme formule sous excel (sommeproduct), j'obtient aussi le résultat #valeur! .

J'ai donc modifié le format de mon tableau pour que celui ci apparaisse sous forme numérique.
La formule excel fonctionne alors normalement, mais la macro m'indique toujours #valeur! .

Il y a t-il une manip à faire sous vba identique à cette dernière??

[LeForestier]

oui, tu peu le modifier, mais tu ne dis pas quel valeur tu a passer en nombre ? alors supposon que c'est ShB.Cells(3, 1), tu met alors

Code :

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

A = Val(ShB.Cells(3, 1))

mais si c'est avec des virgule faut encore un peu compliquer..

Code :

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

A = val(Replace(ShB.Cells(3, 1),",","."))

Ca remplace la virgule par le point et ça transforme alors en nombre.
Eh oui, les joies du VBA en excel c'est par exemple 3,25 mais en VBA ça DOIT être 3.25
A+

[gorgio]

Après plusieurs recherche j'ai trouvé d'où le problème vient mais là je bloque.

Explications:
Le problème vient de la zone "montant".
En prenant en compte cette zone, le résultat affiche #valeur! .
Cependant, j'ai couper/coller les données présente dans cette zone pour les mettre ds une autre colonne et là ca fonctionne.

J'ai également essayé avec une colonne neutre, ca fonctionne également.
J'ai donc couper/coller les valeurs de la colonne neutre donc la zone "montant". Et là ca ne fonctionne toujours pas.

En résumé, la macro fonctionne avec toutes les colonnes sauf la zone "montant" !!!!!

Les colonnes sont de format identique, les données sont identique mais la colonne avec la zone montant "bug".

Je ne sais pas comment résoudre le problème...j'ai essayé les changements de format, réduction/ augmentation de la zone "montant" mais rien y fait...


Donc si vous avez une idée, je suis preneur...

[ouisansdoute]

Bonjour,

Ma remarque ne servira peut-être à rien mais, existe-t-il dans ta zone montant, une cellule considérée comme (ou contenant) du texte (par exemple l'entête ?)
Si c'est le cas exclu-la de ta plage (et ajuste les autres plages en conséquence).