Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel comment simplifier

comment simplifier

1 réponse
Avatar
pellet15
Bonsoir a tous

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

Sub inser_ecartement()
ActiveWindow.LargeScroll Down:=3D1
Range("A49:N49").Delete Shift:=3DxlUp
Range("A55:N55").Delete Shift:=3DxlUp
Range("A73:N79").Delete Shift:=3DxlUp
Range("A18:N24").Copy 'Page1
Range("A58:B58").Insert Shift:=3DxlDown
Range("A40:N41").Copy
Range("A80").Insert Shift:=3DxlDown
ActiveWindow.LargeScroll Down:=3D1
Range("A89:N89").Delete Shift:=3DxlUp
Range("A95:N95").Delete Shift:=3DxlUp
Range("A113:N119").Delete Shift:=3DxlUp
Range("A18:N24").Copy 'Page 2
Range("A98:B98").Insert Shift:=3DxlDown
Range("A40:N41").Copy
Range("A120").Insert Shift:=3DxlDown
ActiveWindow.LargeScroll Down:=3D1
Range("A129:N129").Delete Shift:=3DxlUp
Range("A135:N135").Delete Shift:=3DxlUp
Range("A153:N159").Delete Shift:=3DxlUp
Range("A18:N24").Copy 'Page3
Range("A138:B138").Insert Shift:=3DxlDown
Range("A40:N41").Copy
Range("A160").Insert Shift:=3DxlDown
'ect.................................
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jps
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" a écrit dans le message de news:

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