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.

[JackOuYA]

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 ?

[John81]

Ma cellule B3 contient

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

Le code suivant marche

Code :

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

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

Mais ensuite celui-ci ne marche pas

Code :

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

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é.

[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 ?

[OrDonc]

Bonsoir Tous,


ne suffirait-il pas ?

Code :

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

1
2
3
4
 
Range("B6").Value = Range("B3").Value
...
Range("B6").Value = Range("B6").Value + Range("B3").Value

[John81]

Ma cellule B3 contient

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

Après le code:

Code :

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

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

J'obtiens dans la cellule B6

=19,7

Et le code suivant bug:

Code :

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

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

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

=19,7+19,7

Ce que OrDonc me propose me donne dans la cellule B6

39,4

Mais je voudrais avoir la formule suivante dans la cellule B6

=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

[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 ?

[youki94]

et si tu faisais

Code :

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

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

Ca devrais marcher

[OrDonc]

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 :

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

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

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

[John81]

Toutes mes cellules sont des nombres.

Le résultat de

=19,7+19,7

est

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

[JackOuYA]

Toutes mes cellules sont des nombres.

cela c'est pas un nombre :

Ma cellule B3 contient

Code :

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

=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 :

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

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

[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