Bonjour le Forum,
Dans mes tableaux, j'ai besoin de colorier deux lignes sur deux.
J'ai utilisé le code suivant :
Dim derlignegrise
Dim k As Integer
derlignegrise = Range("A" & Rows.Count).End(xlUp).Row
For k = 5 To derlignegrise
Range("A" & k & ":D" & k + 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark2
.TintAndShade = -9.99786370433668E-02
.PatternTintAndShade = 0
End With
k = k + 4
Next k
Pour obtenir ce qui est entre les "with" j'ai utilisé l'outil enregistrer une macro.
J'ai deux soucis que l'on peut voir sur l'image en dessous.
Le premier, c'est que le coloriage des cellules ne se fait pas deux lignes sur deux.
Le deuxième le coloriage n'est pas net. Le décalage apparaît également lors de l'aperçu avant impression.
Merci pour votre aide