Problème VBA

[dar0609]

Bonjour,

J'ai un code VBA dont j'aimerais garder la formule dans excel sans m'afficher une erreur. En effet ici je fais l'addition de 2 cellules, cependant dans la cellule de calcul apparaît "somme(C52:a)", or je voudrais avoir "somme(C52;'feuil1'!C52)" par exemple. Dans ce cas le calcul pourrait être effectif, quelqu'un pourrait-il m'aider? Merci.

Private Sub CommandButton1_Click()

Dim a As Double

a = Sheets(ComboBox1.Value).Range("C52")

If ComboBox1 <> "" Then

Range("D52").Formula = "=sum(C52:a)"

End If

Unload Me

End Sub

 

[MJ13]

Re : Problème VBA

Bonjour dar0609

Je pense que tu es bon pour fournir un petit fichier 🙂.

 

[Si...]

Re : Problème VBA

Salut

tu as déclaré a en Double donc c'est un nombre.

Si... tu veux sommer le plage "C52:Ca" essaie avec

Range("D52").Formula = "=sum(C52:C" & a & ")"

 

[dar0609]

Re : Problème VBA

Merci pour ce code, cependant cela ne marche pas, en fait en valeur dans la cellule D52 on retrouve cette valeur :

=SOMME(C32:C52;5)

au lieu de

=SOMME(C52:'Sept12 OM'!C52)