comment simplifier

Le
pellet15
Bonsoir a tous

Comment faire pour simplifier la macros suivante.
Elle s'exécute 429 foix (ici j'ai seulement 3 page)

Sub inser_ecartement()
ActiveWindow.LargeScroll Down:=1
Range("A49:N49").Delete Shift:=xlUp
Range("A55:N55").Delete Shift:=xlUp
Range("A73:N79").Delete Shift:=xlUp
Range("A18:N24").Copy 'Page1
Range("A58:B58").Insert Shift:=xlDown
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown
ActiveWindow.LargeScroll Down:=1
Range("A89:N89").Delete Shift:=xlUp
Range("A95:N95").Delete Shift:=xlUp
Range("A113:N119").Delete Shift:=xlUp
Range("A18:N24").Copy 'Page 2
Range("A98:B98").Insert Shift:=xlDown
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown
ActiveWindow.LargeScroll Down:=1
Range("A129:N129").Delete Shift:=xlUp
Range("A135:N135").Delete Shift:=xlUp
Range("A153:N159").Delete Shift:=xlUp
Range("A18:N24").Copy 'Page3
Range("A138:B138").Insert Shift:=xlDown
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown
'ect
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jps
Le #4531911
bonjour pellet
tu peux déjà écrire tes plages comme ceci :
Range("A49:N49,A55:N55,A73:N79").Delete Shift:xlUp
ensuite, tu peux supprimer toutes ces lignes de Scroll Down qui sont sorties
de l'enregistreur de macros, je suppose
HTH
jps

"pellet15"
Bonsoir a tous

Comment faire pour simplifier la macros suivante.
Elle s'exécute 429 foix (ici j'ai seulement 3 page)

Sub inser_ecartement()
ActiveWindow.LargeScroll Down:=1
Range("A49:N49").Delete Shift:=xlUp
Range("A55:N55").Delete Shift:=xlUp
Range("A73:N79").Delete Shift:=xlUp
Range("A18:N24").Copy 'Page1
Range("A58:B58").Insert Shift:=xlDown
Range("A40:N41").Copy
Range("A80").Insert Shift:=xlDown
ActiveWindow.LargeScroll Down:=1
Range("A89:N89").Delete Shift:=xlUp
Range("A95:N95").Delete Shift:=xlUp
Range("A113:N119").Delete Shift:=xlUp
Range("A18:N24").Copy 'Page 2
Range("A98:B98").Insert Shift:=xlDown
Range("A40:N41").Copy
Range("A120").Insert Shift:=xlDown
ActiveWindow.LargeScroll Down:=1
Range("A129:N129").Delete Shift:=xlUp
Range("A135:N135").Delete Shift:=xlUp
Range("A153:N159").Delete Shift:=xlUp
Range("A18:N24").Copy 'Page3
Range("A138:B138").Insert Shift:=xlDown
Range("A40:N41").Copy
Range("A160").Insert Shift:=xlDown
'ect.................................
End Sub
Publicité
Poster une réponse
Anonyme