Discussion :

[John81]

Bonjour,

Je souhaite exécuter la macro suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B6").Formula = "=" & Range("B3").Value

Elle marche si dans la cellule B3 j'ai par exemple

"=5 + 7 + 9"

, mais elle ne marche pas si j'ai des nombres décimaux comme par exemple

"=5,4 + 7,8 + 6,5"

Qqn peut-il m'aider? Merci d'avance John81

[oOVaveOo]

Bonjour,
essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B6").FormulaLocal = "=" & Range("B3").Value

Ca interprète les virgules comme étant séparateur de décimales.
Il faut des "." pour formula (je crois )

[pgz]

Bonjour.

Suivant ce que tu veux faire, il pourrait aussi paraître plus normal de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B6").Formula = "=" & Range("B3").Address

SI la valeur de B3 change plus tard, celle de B6 suivra...

Cordialement,

PGZ

[John81]

Merci pour vos réponses. ça marche avec "FormulaLocal". Par contre, le code suivant ne marche pas maintenant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("B6").FormulaLocal = "=" & Range("B6").FormulaLocal & "+" & _
Sheets("SUSPENS BADR").Range("B4").Value

Pouvez-vous m'aider? Merci

[oOVaveOo]

Une question bête, mais pourquoi tu ne mets pas directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("B6").FormulaLocal = "=B6 + 'SUSPENS BADR'!B4"

[John81]

Parce qu'il me faut les valeurs et non pas les adresses de cellules. De plus, cette formule ferait une référence circulaire.

[Maxence HUBICHE]

Ne serait-ce pas parce que ta formule contient des , au lieu de . (séparateur de décimales côté VBA ?

Essaie donc ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B6").Formula = replace(Range("B3").formula,",",".")

Cela remplacera les , de la formule de B3 par des . et mettra cette formule dans B6
C'est ce que tu voulais ?

[John81]

ok merci bcp à tous les deux mon problème est résolu. Bonne soirée. John81