Etendre une formule ou une valeur automatiquement

Bonjour à tous,

Débutant en VBA je n'arrive pas à finir mon code. J'aimerais étendre une formule/valeur (comme un double clic sur excel) de la dernière ligne remplie de ma colonne "H" jusqu'à la dernière ligne remplie de sa colonne voisine "G". (Exactement l'action que réalise un double clic mais j'aimerais avoir un bouton VBA pour cela.)

J'ai un début de code en utilisant .AutoFill Destination et une fonction dernière ligne, voir ci-dessous. Mais je n'arrive pas à coder le fait de partir de la dernière cellule remplie de la colonne H. Et non pas de la cellule H3, car j'aimerais reproduire cette action autant de fois que je le voudrais, à n'importe quelle ligne.

Sub Extension_formule()
Dim DernLigne As Long
LR = Range("G" & Rows.Count).End(xlUp).Row

Range("H3").AutoFill Destination:=Range("H3:H" & LR)

End Sub

Merci d'avance,

Le bleu...

Bonjour,

En utilisant la même technique que pour la colonne G

Sub Extension_formule()
Dim DernLigneG As Long
Dim DernLigneH As Long

   DernLigneG = Range("G" & Rows.Count).End(xlUp).Row
   DernLigneH = Range("H" & Rows.Count).End(xlUp).Row
   Range("H" & DernLigneH).AutoFill Destination:=Range("H" & DernLigneH & ":H" & DernLigneG)

End Sub

Cdlt,

Cylfo

Bonjour

Merci Cylfo ! La bonne nouvelle du lundi matin.

Cdlt,

Grég