Discussion :

[Taillise]

Bonjour,
Pour appliquer des couleurs spécifiques sur certaines zones d'une feuille, j'ai utilisé le code suivant. A ma grande surprise, çà applique la couleur à toute la feuille sauf à la zone ciblée. Le plus curieux est que le même code fonctionne dans la feuille d'un nouveau classeur. Comme il s'agissait de colorer un bandeau d'en-tête, j'ai supprimé les volets de lecture (freeze-pane), mais sans résultat.Ce n'est pas dramatique pour l'application mais j'aimerais vraiment comprendre où est l'erreur!.
Merci, Serge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("extended list").Activate
Range("A1:O6").Select
Range("A1:O6").Interior.Color = RGB(233, 246, 255)

Précision supplémentaire:
La zone colorée correspond à celle qui était concernée par le code suivant appliqué en début de procédure: y-a-t-il un lien entre les deux?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
ActiveSheet.UsedRange.Offset(6, 0).Select
With Selection
  .ClearContents
  .Interior.ColorIndex = 0
  .Font.ColorIndex = 0
  .Font.Bold = False
  .Borders.LineStyle = xlNone
End With
Range("A7").Select

[Taillise]

J'ai finalement trouvé l'explication: les paramètres de windows sont réglés pour générer un gris clair (plus doux pour les yeux) en couleur de fond d'écran. quand on supprime contenu et formats de la "usedrange", cette couleur réapparaît. Comme la teinte paramétrée pour le bandeau d'en-tête est encore plus claire, celà donne l'illusion que la réponse de la macro est inversée et qu'aucune teinte n'a été appliquée à l'en-tête.

J'ai beaucoup tâtonné (entre les colorindex, patterncolor, color) pour parvenir à appliquer la bonne couleur et j'ai remarqué (code suivant), que la première instruction générait un gris clair qui masquait le quadrillage de la feuille, alors que la seconde génère un jaune clair; je ne vois pas très bien à quoi sert patterncolor

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("extended list").Range("A1:O6").Interior.PatternColor = RGB(243, 246, 199)
Sheets("extended list").Range("A1:O6").Interior.Color = RGB(243, 246, 199)