XL 2016 VBA Faire un glisser jusqu'à un nombre définit

[Erakmur]

Bonjour,
Je cherche une petite macro qui dit:
Sélection de la cellule A1 à D1 qui contiennent des formules puis faire glisser jusqu'à la ligne indiqué dans la cellule E1. Exemple: Si dans E1, il y a le chiffre 50 alors le glissé va jusqu'à la ligne 50.
Quelqu'un peut il m'aider ?
Cordialement

 

[James007]

Bonjour,

Tu peux tester la macro suivante

Sub TaMacro()
    Range("A1:D1").Copy Destination:=Range("A2:A" & [E1])
End Sub

En espèrant que cela t'aide

 

[Erakmur]

Merci de ta réponse. C'est génial. Je l'ai adapté à mon fichier. Voici le résultat final.
Sub Glissé_planning()
Sheets("3. Création du planning").Select
Range("K9:AI9").Copy Destination:=Range("k10:k" & Sheets("1. Info Site").[e19])
Range("CM9:EL9").Copy Destination:=Range("CM10:CM" & Sheets("1. Info Site").[e19])
End Sub

 

[James007]

Ravi que tout fonctionne 😉

Merci pour tes remerciements 🙂