Bonjour,
Dans une de mes macros, j'ai besoin de repérer dans un onglet une cellule particulière. A partir de cette cellule, j'ai besoin d'insérer 7 colonnes à la droite de cette colonne : Voilà ce que j'ai écrit, ne sachant trop comment faire plus propre (le résultat reste le même) :
Comment aurai-je pu éviter la réitération de ma ligne sept fois SVP ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 With Sheets("PMP") Set StartRange = .Cells.Find("Item group", LookIn:=xlValues) StartRange.Offset(0, 1).EntireColumn.Insert StartRange.Offset(0, 1).EntireColumn.Insert StartRange.Offset(0, 1).EntireColumn.Insert StartRange.Offset(0, 1).EntireColumn.Insert StartRange.Offset(0, 1).EntireColumn.Insert StartRange.Offset(0, 1).EntireColumn.Insert StartRange.Offset(0, 1).EntireColumn.Insert End With
Merci d'avance !
Partager