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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
Cells(i, 34 - nb).FormulaR1C1 = "='Marché Ex Mill'!RC[ - " & nb & " - 16]"
C'est cette partie du code qui ne fonctionne pas