couleur code hexadécimal

[C@thy]

Bonjour le forum,

dans un classeur j'ai une liste de codes hexadécimaux correspondant à des couleurs

je voudrais afficher la couleur dans la cellule de la colonne précédente, donc j'ai écrit ceci :

Sheets("codes Couleur").Activate
For I = 1 To 134
Couleur = Range("l" & I).Value
Cells(I, 12).Offset(0, -1).BackColor = Couleur
Next
End Sub

sauf que le . value me donne du texte et non l'hexadécimal
exemple : pour le noir "&H000000" et non &H000000...

savez-vous comment il faut faire???

En vous remerciant très beaucoup...

C@thy

 

[mécano41]

Re : couleur code hexadécimal

pour le code de mecano41, j'ao rajouté un on error resume next car ça ne fonctionne pas pour les codes suivants :
&HFF7F&
&H8CFF&
&H8B&
&HD7FF&
&H8000&
&HFC7C&
&HFF00&
&H80&
&H8080&
&HA5FF&
&H45FF&
mais c'est déjà très bien!

Merci

C@thy

...si tu enlèves le "&" à la fin cela fonctionne...

Peut-être aurais-je mieux fait de supprimer les "&" et les "H" au lieu de tronquer...

Cordialement

 

[Modeste geedee]

Re : couleur code hexadécimal

Bonsour®

Je joins mes données :

Bises

C@thy

attention avec les couleurs !!!!
avec Excel 2003 on atteint rapidement la limitation du nombre de formats de cellules
🙄
pour le fun

 

[Modeste geedee]

Re : couleur code hexadécimal

Bonsour®

...si tu enlèves le "&" à la fin cela fonctionne...

Peut-être aurais-je mieux fait de supprimer les "&" et les "H" au lieu de tronquer...

Cordialement

🙄
Cells(i, 12).Offset(0, -1).Interior.Color = CLng(IIf(Right(Cells(i, 12), 1) = "&", Left(Cells(i, 12), Len(Cells(i, 12)) - 1), Cells(i, 12)))

 

[Si...]

Re : couleur code hexadécimal

salut

et ainSi...(2003) ?

Private Sub CommandButton1_Click()
  Dim R As Range
  [K2:K4109].Clear
  For Each R In [L2:L4109]
    If R Like "&*" Then R(1, 0).Interior.Color = Val(R)
  Next
End Sub

Nota : broie du NOIR quand, par exemple, on a &HCKC.

 

[C@thy]

Re : couleur code hexadécimal

Ah oui, pas mal, modeste geede, ça le fait!!!

Merci à toi

mille bises

C@thy