Discussion :

[Orientationis]

Bonjour à tous,

Voici la trame de la macro que je souhaite réaliser :

'Je suis dans la feuille Resultat
'Sélectionner la cellule A3
'Taper la formule : =RECHERCHEV(D3;Stock!$E2:$E13190;1;Faux)
'Recopier cette formule en allant de A3 jusqu'à A3337

Ensuite

'Je suis dans la feuille Resultat
'Sélectionner la cellule L3
'Taper la formule : =RECHERCHEV(D3;Stock!$E2:$S13190;8;Faux)
'Recopier cette formule en allant de L3 jusqu'à L3337

Ensuite

'Je suis dans la feuille Resultat
'Sélectionner la cellule M3
'Taper la formule : =RECHERCHEV(D3;Stock!$E2:$S13190;9;Faux)
'Recopier cette formule en allant de L3 jusqu'à L3337

Pourriez vous m'aider à traduire cette trame en macro VBA?

Merci pour votre aide

[nadege46]

Bonjour,
en ce qui concerne recopier la formule pas de problème, mais il faudrait pour ça que tu l'écrit toi même dans ta première cellule soit A3.

le code pour recopier ta formule est:

Code :

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

1
2
3
4
5
6
7
Sub RecopieIncrementee()
Set PlageSource = Worksheets("Feuil1").Range("A3")
 
 
Set PlageARemplir = Worksheets("Feuil1").Range("A3:A3337")
PlageSource.AutoFill Destination:=PlageARemplir
End Sub

[fring]

Bonjour,

En complément à la réponse de Nadege, voici une syntaxe possible pour insérer la formule via un bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
With Sheets("Resultat")
    .Range("A3").FormulaLocal = "=RECHERCHEV(D3;Stock!$E2:$E13190;1;Faux)"
    .Range("A3").AutoFill Destination:=.Range("A3:A3337")
    .Range("L3").FormulaLocal = "=RECHERCHEV(D3;Stock!$E2:$S13190;8;Faux)"
    .Range("L3").AutoFill Destination:=.Range("L3:L3337")
    .Range("M3").FormulaLocal = "=RECHERCHEV(D3;Stock!$E2:$S13190;9;Faux)"
    .Range("M3").AutoFill Destination:=.Range("M3:M3337")
End With
 
End Sub