Affecter une formule VBA à une cellule

Bonjour à tous,

Je veux affecter une formule VBA à une cellule
J’écris :

Code:

---

1 2 3

Sub Rvariable() Worksheets (CalculR).Range("D10").Formula = "=(D7/D9)" End Sub

---

Mais rien ne se passe dans la cellule D10, je vais ensuite repeter la même formule pour F10 = F7/F9 , G10=G7/G9 etc. Pourriez-vous m’aider svp ?
Je vous remercie par avance

Bonsoir,

Pour la formule

Code:

---

1 2 3

Sub Rvariable() Worksheets("CalculR").Range("D10").Formula = "=(D7/D9)"'si CalculR est le nom de la feuille End Sub

---

Pour la boucle, dis-nous jusqu'où coller la formule

Bonjour,
Quand tu écris "rien ne se passe", cela veut dire quoi ?
As-tu un message d'erreur ?
Si tu n'as pas de message d'erreur, comment fais-tu appel à la procédure Rvariable
Si tu as fait un copier/coller de ton code, je crois percevoir un espace entre Worksheets et la parenthèse ouverte qui précède CalculR. Ce qui signifie que CalculR n'est pas une variable mais le nom de ta feuille. Si c'est le cas, il y a lieu de le placer entre guillemets.

Bonsoir,
Merci pour vos retours. Effectivement, j’ai oublié les guillemets. Après les avoir ajouté la formule fonctionne très bien. MERCI A VOUS !!!
Quand je disais « rien ne se passe » cela voulait dire que la cellule ne réagit pas, elle était vide et ne contenait pas le résultat de la formule que j’attendais mais je n’avais pas de message d’erreur.
Et pour la boucle, je veux que la formule s’étende 10 fois c’est-à-dire : (mais dans chaque colonne il y a aura les chiffres différentes biensur)
D10= D7/D9
F10 = F7/F9
G10=G7/G9
H10=H7/H9
I10=I7/H9
K10=K7/K9
L10=L7/L9
M10=M7M9
N10=N7/N9
O10=O7/O9
Excusez-moi mais pour faire appel à la procédure Rvariable je dois créer 10 boutons pour faire appel à chaque formule ? Y-a-t-il moyen de ne pas du tout avoir de bouton ? Par exemple quand on écrit la formule directement dans la feuille de calcul, elle fonctionne automatiquement. Est-ce que c’est possible de faire la même chose dans VBA ? Ou il faut obligatoirement créer un bouton ? Je voudrais vraiment cacher les formules dans le VBA mais pour que le calcul se fasse automatiquement sans bouton.
Je vous remercie une fois de plus

Tu peux utiliser les évènements liés à la feuille pour lancer les codes ou des boutons.

Pour le code sur les cellules

Code:

---

1 2 3 4

Sub MonCalcul()   Worksheets("CalculR").Range("D10,F10:I10,K10:O10").Formula = "=D7/D9" End Sub

---

Si tu veux ne garder que le résultat

Code:

---

1 2 3 4 5 6 7

Sub Calcul()   With Worksheets("CalculR").Range("D10,F10:I10,K10:O10") .Formula = "=D7/D9" .Value = .Value End With End Sub

---

Code:

---

1 2	Worksheets("CalculR").Range("D10").FormulaR1C1="=(R[-3]C/R[-1]C)" Worksheets("CalculR").Range("G10").FormulaR1C1="=(R[-3]C/R[-1]C)"

---

la même formule marche pour D10 = D7/D9 , F10 = F7/F9 , G10=G7/G9 = formule pour toutes les cellules "=(R[-3]C/R[-1]C)"

Code:

---

Worksheets("CalculR").Range("D10,F10:I10,K10:O10").FormulaR1C1="=(R[-3]C/R[-1]C)"

---

Je vous remercie tous ! Les codes fonctionnent parfaitement. Grâce à vous j'ai pu finalement réussir mon calcul ! Merci encore !