VBA: Etendre formule jusqu'à la dernière ligne avec macro

Bonjour,

Un autre exemple :

https://www.cjoint.com/c/LHrmzhftJYw

Placé dans un module

Sub autoFill_colonne()

    Range("I2:M2").Select
    Selection.AutoFill Destination:=Range("I2:M" & Range("A1").End(xlDown).Row), Type:=xlFillDefault
    
End Sub

Bonjour,

j'ai placé le code dans un bouton

Pour la colonne I soit la colonne 9

Private Sub CommandButton1_Click()
Derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Derlig
Cells(i, 9).FormulaLocal = "=RECHERCHEV(G2;'Feuil1 (2)'!A:B;2;0)"
Next i
End Sub

et idem pour les colonnes J, K, L et M 

Merci pour votre réponse :-)

J'y suis parvenu avec le code suivant:

Sub ETAPE_1()
'
' ETAPE_1 Macro
'
Range("I5").AutoFill Destination:=Range("I5:I" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("J5").AutoFill Destination:=Range("J5:J" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("K5").AutoFill Destination:=Range("K5:K" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("L5").AutoFill Destination:=Range("L5:L" & (Range("A" & Rows.Count).End(xlUp).Row))
Range("M5").AutoFill Destination:=Range("M5:M" & (Range("A" & Rows.Count).End(xlUp).Row))
'
End Sub

Merci beaucoup

Bonjour

ah voilà c'etait aussi simple !!

je me suis cassé la tête a réécrire le même code pour cahque colonne !!

merci beaucoup :-)

problème résolu :-)

onjour

A tester

https://cjoint.com/c/LHrmJYzNo8B

Cdlmnt