Discussion :

[Yullll]

Bonjour j'essaye d'écrire un code pour écrire une formule dans une cellule en lui disant qu'il faut diviser la colonne par une valeur spécifique : myRange, qui est la dernière cellule dans la collone B.
Il me trouve bien la valeur de la cellule, cependant je ne sais pas comment l'appeler dans la formule. Surement un problème de syntaxe je présume ...
Pouvez vous m'aider ?

Code :

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

1
2
3
4
5
6
Dim myRange as Range
Set myRange = Range("B" & Rows.Count).End(xlUp)
 
 
      Range("C2").Select
    ActiveCell.FormulaR1C1 = "=((RC[-1])/myRange.value)"

[Kimy_Ire]

Bonjour Yullll,

Ce que tu tentes de faire, c'est d'écrire ceci dans la cellule : "=((RC[-1])/myRange.value)".
Tu imagines bien que Excel ne comprend pas et ne peut pas interpréter ce que tu lui demandes.

En revanche, si tu cherches à passer une valeur dans une formule, tu peux faire ceci :

Code :

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

1
2
3
4
Sub test()
Set myRange = Feuil2.Range("C1")
Feuil2.Range("B1").FormulaR1C1 = "=((RC[-1])/" & myRange.Value & ")"
End Sub

Cordialement,
Kimy

[letienne]

Bonjour,

si tu veux garder la référence à la cellule :

Code :

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

1
2
3
 
 
Range("C2").FormulaR1C1 = "=RC[-1]/R" & myRange.Row & "C2"

[Yullll]

Salut kimmy,

Merci de ton aide, cependant la cellule que je souhaite appelé ne se trouve pas être fixe. C'est toujours la dernière cellule de colonne B.
D'où mon idée d'utiliser ce code :
Cependant avec ton wording la macro fonctionne très bien merci beaucoup
Voici le code final.

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim myRange as Range
Set myRange = Range("B" & Rows.Count).End(xlUp)
      Range("C2").Select
    ActiveCell.FormulaR1C1 = "=((RC[-1])/"& myRange.value &")"
 
End Sub