Somme dans une cellule

Bonjour,

Je souhaite exécuter la macro suivante:

Code:

---

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

---

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

Citation:

---

"=5 + 7 + 9"

---

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

Citation:

---

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

---

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

Bonjour,
essaye avec :

Code:

---

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 :?)

Bonjour.

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

Code:

---

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

---

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

Cordialement,

PGZ

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

Code:

---

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

---

Pouvez-vous m'aider? Merci

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

Code:

---

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

---

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

bonsoir,

j'ai toujours pas compris l'énoncé et le contenu de ta cellule B3, les guillements sont-t'ils présent, quand elle marche elle est fait quoi ta macro ?

Ma cellule B3 contient

Citation:

---

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

---

Le code suivant marche

Code:

---

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

---

Mais ensuite celui-ci ne marche pas

Code:

---

1 2 3

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

---

A ton avis pourquoi?
J'ai besoin de savoir ça pour faire une boucle que je ne vais pas expliquer en détail parce que ce serait trop compliqué.

j'ai toujours pas compris ce que contenait ta cellule .. c'est une formule ? un texte ? elle affiche quoi le résultat de la formule ?

Bonsoir Tous,


ne suffirait-il pas ?

Code:

---

1 2 3 4

Range("B6").Value = Range("B3").Value ... Range("B6").Value = Range("B6").Value + Range("B3").Value

---

Ma cellule B3 contient

Citation:

---

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

---

Après le code:

Code:

---

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

---

J'obtiens dans la cellule B6

Citation:

---

=19,7

---

Et le code suivant bug:

Code:

---

1 2	Range("B6").FormulaLocal = "=" & Range("B6").FormulaLocal & "+" & _ Range("B3").Value

---

Je voudrais qu'il me donne dans la cellule B6:

Citation:

---

=19,7+19,7

---

Ce que OrDonc me propose me donne dans la cellule B6

Citation:

---

39,4

---

Mais je voudrais avoir la formule suivante dans la cellule B6

Citation:

---

=19,7+19,7

---

Vous ne comprenez peut etre pas la raison comme cela, mais je vous ai dit que c'est pour une raison qui serait trop difficile de développer ici.
Si qqn peut m'éclairer, cela me serait très utile. Merci John81

Citation:

---

Envoyé par JackOuYA

j'ai toujours pas compris ce que contenait ta cellule .. c'est une formule ? un texte ? elle affiche quoi le résultat de la formule ?

---

et si tu faisais

Code:

---

1 2	Range("B6").FormulaLocal = "=" & Range("B3").value & "+" & _ Range("B3").Value

---

Ca devrais marcher

Re,

Il ne t'est pas difficile de répondre à une question simple comme celle de JackOuYA !
Ton dernier message indique que tu veux un texte.
Si c'est bien cela, essaie :

Code:

---

1 2	Range("B6").Value = "'=" & Range("B6").Value & "+" & Range("B6").Value

---

sinon je laisse à d'autres le soin de comprendre ta demande.

Toutes mes cellules sont des nombres.

Le résultat de

Citation:

---

=19,7+19,7

---

est

Citation:

---

39,4

---

Ce que j'ai besoin de savoir, c'est comment reprendre la formule de la cellule B6 pour y additionner les valeurs d'autres cellules

Citation:

---

Envoyé par John81

Toutes mes cellules sont des nombres.

---

:koi:

cela c'est pas un nombre :

Citation:

---

Ma cellule B3 contient

Code:

---

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

---

Après le code:

---

c'est soit : - une formule (alors la cellule affiche le résultat du calcul)
- une chaine de caractéres, contenant une formule (alors la cellule affiche la formule).

si tu veux modifier la formule dans B6 ,et ra joute + [Valeur contenue dans B3]

Code:

---

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

---

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:

---

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 ?

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