Trame Macro RECHERCHEV

Version imprimable

16/10/2008, 15h43
Orientationis

Trame Macro RECHERCHEV

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:D

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:

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

Bonjour,

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

Code:

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