Microsoft 365 Excel VBA - Mise en forme colonne

[guigol]

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?

    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

 

[jmfmarques]

Bonjour
Le mode indicatif présent exprimant un constat, j'ai du mal à comprendre la question :

Une idée?

 

[sylvanu]

Bonjour tout le monde,
D'après ce que j'ai compris la macro marche en pas à pas mais pas en automatique.
Sur mon PC désolé ça marche. ( Win10 XL2007 )