Bonjour,
voilà, je voudrais faire une mise en page toute bête du type
mais en remplacant 4 et 5 par i et i+1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Range("G4:L5").Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With
j'ai testé naturellement
mais là, Erreur de compilation Attendu : ou séparateur de liste ou )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Range("G" & i ":L" & i + 1).Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With
Comment puis-je faire ça?
Merci a vous.
Partager