XL 2010 Etendre une formule à l'aide d'une macro

[alexpoupp]

Bonjour,

Je bute sur un problème, je souhaiterai via un clic macro, pouvoir tirer vers le bas les formules se trouvant en A2 et B2 sur la feuille "Saisies des destinations".

Je souhaiterais que ça tire jusqu’à la ligne de la dernière cellule complétée dans ma colonne H.

Merci d'avance,
Cordialement,
Alex

 

[sylvanu]

Bonjour Alex,
Une possibilité :

Sub Copie()
    Application.ScreenUpdating = False          ' Ecran figé
    DL = Range("H65500").End(xlUp).Row          ' Dernière cellule de H
    Range("A3:B" & DL) = Range("A2:B2").Formula ' Copie formule
    [A1].Select                                 ' Repositionnement curseur
End Sub

 

[M12]

Bonjour,
Regarde ce petit exemple avec la macro dans le module

 

[alexpoupp]

Bonjour,
Merci à vous, cela fonctionne !
Excellente journée
Alex