Bonjour
lorsque je lance le code suivant en automatique, seule la colonne N se colore.
Si je mets un point d'arret sur la première ligne (Fichier_Final.Sheets("PA").Columns("N:N").Interior.Pattern = xlSolid),
puis que j'appuie sur F5 pour lancer la suite, toutes les colonnes (N, O, R U et X) se mettent en forme.
Une idée?
lorsque je lance le code suivant en automatique, seule la colonne N se colore.
Si je mets un point d'arret sur la première ligne (Fichier_Final.Sheets("PA").Columns("N:N").Interior.Pattern = xlSolid),
puis que j'appuie sur F5 pour lancer la suite, toutes les colonnes (N, O, R U et X) se mettent en forme.
Une idée?
Code:
Fichier_Final.Sheets("PA").Columns("N:N").Interior.Pattern = xlSolid
Fichier_Final.Sheets("PA").Columns("N:N").Interior.PatternColorIndex = xlAutomatic
Fichier_Final.Sheets("PA").Columns("N:N").Interior.ThemeColor = xlThemeColorAccent2
Fichier_Final.Sheets("PA").Columns("N:N").Interior.TintAndShade = -0.249977111117893
Fichier_Final.Sheets("PA").Columns("N:N").Interior.PatternTintAndShade = 0
Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.Pattern = xlSolid
Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.PatternColorIndex = xlAutomatic
Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.ThemeColor = xlThemeColorAccent4
Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.TintAndShade = 0.399975585192419
Fichier_Final.Sheets("PA").Range("O:O,R:R,U:U,X:X").Interior.PatternTintAndShade = 0