somme

[drisou]

Bonsoir le forum,
je bloque sur quelque chose,

quand j'exécute le code suivant , la cellule "F3" affiche " #valeur " au lieu du resultat,

va = ActiveCell.Offset(-1, 1)
va1 = ActiveCell.Offset(0, 1)

Range("f3") = Application.Sum(va, va1)

et lorsque je fais
Range("f3") = Application.Sum(ActiveCell.Offset(-1, 1), ActiveCell.Offset(0, 1))

ca fonctionne ,
je précise que le calcul de la somme se fait sur des cellules contenant des formules, elles peuvent ou non contenir des valeurs.

Merci pour votre aide

 

[nicho]

Re : somme

salut

est ce que tu as déclare ta macro?

Dim va As Integer, va1 As Integer
va = ActiveCell.Offset(-1, 1)
va1 = ActiveCell.Offset(0, 1)

Range("f3") = Application.Sum(va, va1)

en espèrent t'avoir aidé

bonne fin de soirée

 

[job75]

Re : somme

Bonsoir,

Dim va As Variant, va1 As Variant
If ActiveCell.Row > 1 Then va = ActiveCell.Offset(-1, 1)
va1 = ActiveCell.Offset(0, 1)
Range("f3") = Application.Sum(Val(va), Val(va1))

On peut omettre les 2 As Variant.

A+

 

[drisou]

Re : somme

Bonsoir le forum , nicho, job75,

j'avais effectivement déclaré les variables en "variant", mais c'est "val" qui me manquait.
merci nicho pour ton aide , merci job75 pour la solution qui marche.

Bonne soirée a vous.