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

Erakmur · 12 Décembre 2019

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 · 12 Décembre 2019

Bonjour,

Tu peux tester la macro suivante

VB:

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

En espèrant que cela t'aide

Erakmur · 13 Décembre 2019

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 · 13 Décembre 2019

Ravi que tout fonctionne

Merci pour tes remerciements

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

Erakmur

XLDnaute Occasionnel

James007

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

James007

XLDnaute Barbatruc

Discussions similaires