Discussion :

[choupinette370]

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 :

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

 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 :

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

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

Code :

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

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

Code :

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

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

[yan_nick]

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 :

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

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

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

Code :

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

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 :

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

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

Bonne chance,