Discussion :

[tatbud304]

Bonjour à tous,

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

Code :

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

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

[casefayere]

Bonsoir,

Pour la formule

Code :

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

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

[Philippe Tulliez]

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.

[tatbud304]

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

[mercatog]

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

Pour le code sur les cellules

Code :

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

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 :

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

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

[Invité]

Code :

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

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 :

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

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

[tatbud304]

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