Discussion :

[tma21]

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

[guigui71]

Bonjour tma21,

as tu essayé l'enregistreur de macro ?

[pgz]

Bonjour.

Peut-être

Code :

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

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

Cordialement,

PGZ

[tma21]

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 :

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

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...

[tma21]

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

Solution

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

Merci aux personnes ayant tenté de m'aider