VBA: problème format cellule
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:
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.