déclaration globale d'une variable couleur.

[roisabri]

Bonjour les amis,
Je viens vers vous pour vous demandez comment on peut declarer une variable qui contient un couleur.
J'ai essayé ça , ça donne rien !!
Private Enum Couleurs
gris = RGB(230, 230, 230)
Vert = RGB(0, 200, 0)
Orangee = RGB(254, 102, 0)
rouge = RGB(255, 0, 0)
End Enum
Dim MaCouleur1 As Couleurs
MaCouleur1 = Couleurs.Vert
Dim MaCouleur2 As Couleurs
MaCouleur2 = Couleurs.gris
Dim MaCouleur3 As Couleurs
MaCouleur3 = Couleurs.Orangee
Dim MaCouleur4 As Couleurs
MaCouleur4 = Couleurs.rouge

J'ai essayé aussi
Dim Orange as Long
Set Orange=RGB(250,100,0)


J'ai meme fait une procédure
sub couleurs()
Dim Orange as Long
Set Orange=RGB(250,100,0)
end sub


===>L'objectif que je déclare une variable globale à la place de marquer chaque fois RGB(255,0,0)

Merci d'avance

Merci d'avance

 

[pierrejean]

Re : déclaration globale d'une variable couleur.

Bonjour roisabri

Teste ceci

Public Orangee
Sub dec()
Orangee = RGB(254, 102, 0)
End Sub
Sub colore()
Range("A1").Interior.Color = Orangee
End Sub

lancer dec puis colore

 

[roisabri]

Re : déclaration globale d'une variable couleur.

Merciii beaucoup, c'est la bonne solution