variable dans FormulaR1C1

Bonjour,

Débutant en VBA, je souhaite rentrer une formule automatiquement.
Cette formule va chercher dans une autre feuille de mon classeur une valeur.
Le soucis est que je dois renseigner 20 cellules pour ensuite l'étirer sur une plage et ma formule varie en fonction d'une variable " nb " ( c'est un délai qui peut varié )

Je vous laisse mon code...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test()   Dim i As Integer Dim j As Integer Dim nb As Integer   Sheets("test").Select   'tableau commande For i = 6 To 26 nb = Cells(i, 84) Cells(i, 34 - nb).FormulaR1C1 = "='Marché Ex Mill'!RC[ - " & nb & " - 16]" Cells(i, 34 - nb).Select Selection.AutoFill Destination:=Range(Cells(i, 34 - nb), Cells(i, 76 - nb)), Type:=xlFillDefault Next i   End Sub

---

Code:

---

Cells(i, 34 - nb).FormulaR1C1 = "='Marché Ex Mill'!RC[ - " & nb & " - 16]"

---

C'est cette partie du code qui ne fonctionne pas

Bonjour tma21,

as tu essayé l'enregistreur de macro ?

Bonjour.

Peut-être

Code:

---

Cells(i, 34 - nb).FormulaR1C1 = "='Marché Ex Mill'!RC[ - " & nb + 16 & "]"

---

Cordialement,

PGZ

Bonjour guigui71,

Oui mais il n'est pas approprié à mon problème
avec l'enregistreur on ne peut pas tenir compte de ma variable "NB"

Code:

---

Cells(i, 34 - nb).FormulaR1C1 = "='Marché Ex Mill'!RC[ - " & nb + 16 & "]"

---

Merci mais lorsque j'éxécute il met erreur d'éxécution "1004" au niveau de ta formule...

Problème résolu,
cela était plus simple que je ne le pensais.

Solution

Citation:

---

Cells(i, 34 - nb).Formula = "='Marché Ex Mill'!D" & i & ""

---

Merci aux personnes ayant tenté de m'aider :ccool: