Discussion :

[Fantaisie]

Bonjour à tous

C'est mon 1er message donc j’espère tout faire comme il faut !

Je cherche à afficher une couleur d’après son nom RGB
Voici les essais que j'ai fait (voir code + image )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Coul() 
For i = 2 To 143
    Range("D" & i).Interior.Color = rgbAliceBlue                'Ok
    Range("E" & i).Interior.Color = Val(Range("B" & i).Value)   'Ok
    Range("F" & i).Interior.Color = Range("B" & i).Value        'Ok
 
    Range("G" & i).Interior.Color = Val(Range("A" & i).Value)   'Non Ok
    Range("H" & i).Interior.Color = Val(Range("A" & i).Value2)  'Non Ok
    Range("I" & i).Interior.Color = Val(Range("A" & i).Text)    'Non Ok
'    Range("J" & i).Interior.Color = Range("A" & i).Text         'Err 13 Incompatibilité de type
'    Range("K" & i).Interior.Color = Range("A" & i).Value        'Err 13 Incompatibilité de type
'    Range("L" & i).Interior.Color = Range("A" & i).Value2       'Err 13 Incompatibilité de type
Next i
End Sub

Quand je mets directement le nom rgb exemple rgbAliceBlue ou le N° de la couleur c'est ok
Mais quand je boucle sur une variable je n'arrive pas à coller la couleur correspondant au long nom (colonne A ) voir image.

Code :

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

MsgBox Val(Range("A" & i).Value)

Me renvoie 0 donc la couleur noire !

En clair je voudrais faire une boucle sur la colonne A et afficher la couleur correspondante dans une autre colonne.
J’espère avoir été suffisamment clair.

Merci d'avance pour vos réponses .

[Qwazerty]

Salut

Le problème vient du faite que tu mélanges les notions

• de constante/Enumeration (rgbAliceBlue) qui est une sorte de variable non modifiable et valable uniquement dans un code VBA
• de valeur textuel string, c'est le contenu de la cellule Ax. Quand tu demande à VBA d'aller chercher le contenu de la cellule, il lit "rgbAliceBlue", un string et pas une constante. C'est un peu comme si tu écrivais "If Value = true then" dans une cellule et qu'ensuite tu demandes à VBA de comprendre le contenu de la cellule comme étant une ligne de code.
• de valeur numérique. Dans ta colonne B, il s'agit d'une valeur numérique, donc quand tu demandes à VBA d'aller chercher 16774488 dans le contenu d'une cellule, il lit bien une valeur numérique que tu peux utiliser tel quelle dans le code.

Sur la notion de constante, quand tu inscris rgbAliceBlue, au niveau VBA il a une ligne quelque part qui dit

Code :

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

Public Const rgbAliceBlue as long = 17675408

Mon comparaison est imagée, car il s'git en fait de l'énumération XlRgbColor

++
Qwaz

[Fantaisie]

Merci de ta réponse

C'est sur le lien que tu as mis que j'ai été cherché les différentes noms RGB

Est il possible alors de déclarer toute la liste RGB long (la colonne A) en constante et ensuite de faire une boucle dessus ou alors il faut que j'abandonne cette idée et partir sur son N° (colonne B)
Ou une autre méthode pour me servir de la colonne A ?

A+

[Qwazerty]

A ma connaissance (du moins à ce qui me viens en tête), je ne vois pas de solution. Si solution il y a, de toute façon, ça va faire un code alambiqué, il y a d'autres sujets qui seraient à mon sens plus intéressants à aborder pour débuter

Donc oui, le mieux est d'utiliser la colonne B

++
Qwaz

[Fantaisie]

Ok

Merci bien

[Qwazerty]

Salut

En faisant une recherche pour autre chose, je suis tombé sur une ancienne conversation, elle pourrait peut-être t'aider à faire ce que tu souhaites.
https://www.developpez.net/forums/d1...d-enumeration/

++
Qwaz

[Qwazerty]

Est il possible alors de déclarer toute la liste RGB long (la colonne A) en constante et ensuite de faire une boucle dessus ou alors il faut que j'abandonne cette idée et partir sur son N° (colonne B)
Ou une autre méthode pour me servir de la colonne A ?

Refaire cette liste reviendrait à récrire dans du code VBA ce qui y existe déjà et qui est traduit dans la feuille VBA en version textuel.
J'avoue ne pas trop voir l'intérêt.