somme

drisou · 1 Octobre 2012

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 · 1 Octobre 2012

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 · 1 Octobre 2012

Re : somme

Bonsoir,

Code:

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 · 1 Octobre 2012

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.

somme

drisou

XLDnaute Occasionnel

nicho

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

drisou

XLDnaute Occasionnel

Discussions similaires

somme

drisou

XLDnaute Occasionnel

nicho

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

drisou

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency