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 .