Formule et variable (déplacé forum vba)

Bonjour

j'essaye d'écrire une macro qui assigne a une cellule une formule avec des variables

pour l'instant je fais calculer le resultat de la formule et elle s'affiche dans la case

Code:

---

Cells(i, 3) = cells(m,3) + D1 * (perc1 + perc2) * 71 * tampon / 100000

---

mais je voudrais pouvoir conserver la formule dans la cellule au cas où je modifie la valeur de la case m,3 par exemple

j'ai essayé

Code:

---

cells(i,3)="=cells(m,3) + D1 * (perc1 + perc2) * 71 * tampon / 100000"

---

Code:

---

cells(i,3)="="cells(m,3)" + "D1" * ("perc1" + "perc2") * 71 * "tampon" / 100000

---

Code:

---

cells(i,3)="="&cells(m,3)&" + "&D1&" * ("&perc1&" + "&perc2&") * 71 * "&tampon&" / 100000

---

mais ca ne marche pas

si quelqu'un peut m'aider merci

Anne-MArie

Bonjour,

La solution est de définir quelle type de données tu attribue à la cellule.
Par exemple, lorsque tu veux lui attribuer du texte tu écris :

Code:

---

Cells(1,1).text = "ici_ton_texte"

---

Et donc, lorsque tu veux lui attribuer une formule, tu écriras :

Code:

---

Cells(1,1).Formula = "=D1*D2"

---

Dans ton cas, c'est un peu plus compliqué puisque tu veux par ta macro définir les cellules qui seront attribuée. Tu peux le faire en concaténant des morceaux de chaïne avec la valeur de l'adresse des cellules voulues (Cells(m,1).address par ex). Cette adresse est obtenue simplement par la propriété address avec les arguments nécéssaire (LigneAbsolue,ColonneAbsolue,....). L'aide excel te donneras plus de détail à ce sujet. Les deux premier son par défaut à true pour obtenir l'adresse en mode absolu (adresse du type $A$1). Il te suffit de les mettre à False pour obtenir une adresse non absolue (A1 donc). Si tu choisis une adresse référencielle, les arguments suivant sont nécéssaires.

Voici pour résoudre ta ligne de code ce qu'il faut taper :

Code:

---

Cells(i, 1).Formula = "=" & Cells(m, 3).Address(False, False) & "+D1*(" & perc1 & "+" & perc2 & ")*71*" & tampon & "/100000"

---

Bonne chance,