Bjr,
Peut-on optimiser ce genre de code pour éviter les répétitions with (F1 ne donne pas beaucoup d'exemples)
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 With Range("A1") .FormulaR1C1 = "ANCIEN" .Interior.ColorIndex = 35 End With With Range("B1") .FormulaR1C1 = "NOUVEAU" .Interior.ColorIndex = 36 End With With Range("C1") .FormulaR1C1 = "RESTÉES" .Interior.ColorIndex = 37 End With With Range("D1") .FormulaR1C1 = "BAPB" .Interior.ColorIndex = 38 End With With Range("E1") .FormulaR1C1 = "NOUVELLES" .Interior.ColorIndex = 39 End With
Partager