Transformer un texte en variable

Salut Laurent,
Ce que tu veux faire n'est pas possible, utilise une collection et appelle
la clé pour avoir la valeur de l'élément. Un exemple en admettant que tu ais
tes valeurs dans les cellules A1:A5, la boite de message te retourne le code
couleur associé :

Sub Couleur()
Dim Col As Collection
Dim I As Integer
Set Col = New Collection

Col.Add &HFF&, "Coul" & Cells(1, 1)
Col.Add &HFFFF&, "Coul" & Cells(2, 1)
Col.Add &H8000&, "Coul" & Cells(3, 1)
Col.Add &HC00000, "Coul" & Cells(4, 1)
Col.Add &H80FF&, "Coul" & Cells(5, 1)

MsgBox Col("CoulJTN")

Set Col = Nothing
End Sub

Hervé.

"Laurent" <Laurent@discussions.microsoft.com> a écrit dans le message news:
08BD1CC8-F7F9-4803-A3D1-0ECE26D1549A@microsoft.com...

Bonjour,
Toujours un problème de couleur sur mes fichiers.
Je m'explique, je récupère un texte dans une cellule et avec cette valeur
j'applique un code couleur correspondant.
Exp : la valeur de la cellule est JTN et le code couleur s'appelle CoulJTN
Je récupère dans une variable
VariableC = "Coul" & Valeur
Mais cette valeur me rend un texte et pas la valeur de CoulJTN.
Comment faire pour récupérer la valeur ?

Merci d'avance de vos réponses
Laurent