Bjr
j'ai une feuille constitée de plusieurs colonnes (56 au total).
Le contenu de certaines colonnes m'étant totalement inutile, j'ai donc besoin de les supprimer.
Or certaines sont jointes et d'autres sont disjointes (par ex : suppression des colonnes A à D, puis H à M, puis colonne Q,...)
Ne sachant trop comment faire , j'ai donc fait ceci
qui n'est pas très joli et cetainement pas très optimisé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Macro2() Columns("A:D").Select Selection.Delete Shift:=xlToLeft Columns("D:I").Select Selection.Delete Shift:=xlToLeft Columns("E:F").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Columns("I:K").Select Selection.Delete Shift:=xlToLeft Columns("J:J").Select Selection.Delete Shift:=xlToLeft End Sub
Y a t-il moyen de faire autrement ?
Merci
Partager