Discussion :

[jpma75]

Bonjour,

Un contributeur m'avait fait remarquer au détour d'un fil de discussion, qu'il était préférable de déclarer ma "couleur" comme constante plutôt que comme variable.

J'ai donc remplacé ceci :

Code :

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

1
2
Dim bleu_clair As String
bleu_clair = RGB(177, 246, 253)

par cela :

Code :

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

Const bleu_clair As String = RGB(177, 246, 253) 'erreur

... mais ça génère une erreur ! (j'ai essayé Variant à la place de String, au cas où mais en vain)

Besoin de vos lumières, si vous voulez bien,
Cordialement,
jp

[Thumb down]

bonjour,
normal, déjà il ne s'agit pas d'un string mais d'un long, de plus RGB est une fonction et ne peut en aucun cas renseigner une constante!

Code :

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

Const bleu_clair As Long = 16643761 'RGB(177, 246, 253)

[jpma75]

Bonjour et merci !

il ne s'agit pas d'un string mais d'un long

Ce qu'un Variant aurait pu "résoudre" (provisoirement, tout au moins, le temps du test) ?

Y a-t-il un moyen "simple" de convertir RGB(177, 246, 253) en 16643761 ? J'imagine que ce dernier format est incontournable ?!

[jurassic pork]

hello,
dans la fenêtre d'exécution de vba editor tape :

Code :

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

?int(RGB(177,246,253))

Résultat :


Ami calmant, J.P

[jpma75]

Bonjour Ami Calmant

Great !! Merci beaucoup !

jp

[Philippe Tulliez]

Bonjour,
En général et étant donné que les goûts des couleurs ne sont pas toujours les mêmes entre le développeur et les utilisateurs, j'ai pour habitude de placer cela dans une feuille paramètre et alors il suffit de lire les propriétés de la cellule "paramètre" et les placer directement dans la plage de travail ainsi c'est totalement transparent. Pour la maintenance, c'est simple car il suffit de remplacer la couleur sans se tracasser du code RGB
Exemple pour une cellule paramètre nommé pColorAlert

Code :

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

1
2
3
 With ThisWorkbook.Worksheets("Rapport")
 .Range("A4:J4").Interior.Color = Range("pColorAlert").Interior.Color
 End With

Cela peut bien entendu être étendu aux couleurs de police et tous les attributs, Gras, Italique, etc.