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

alexpoupp · 19 Février 2021

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 · 19 Février 2021

Bonjour Alex,
Une possibilité :

VB:

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 · 19 Février 2021

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

alexpoupp · 19 Février 2021

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

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

alexpoupp

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

M12

XLDnaute Accro

Pièces jointes

alexpoupp

XLDnaute Junior

Discussions similaires