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.