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

 

[Pierrot93]

Re : couleur code hexadécimal

Bonjour,

regarde peut être ceci, espérant que cela puisse t'aider :

bonne journée
@+

Edition : aarf code supprimé, ne fonctionne pas....

 

[C@thy]

Re : couleur code hexadécimal

merci pour cette tentative.

j'ai essayé .Interior.colorindex au lieu de .backcolor mais ne marche pas avec de l'hexadécimal... damned...

edit : j'ai essayé aussi :

Couleur = "&H" & Hex(Range("l" & I).Value)

pas bon non plus🙄

Bizz

C@thy

 

[mécano41]

Re : couleur code hexadécimal

Bonjour,

Essaie ceci :

Cells(I, 12).Offset(0, -1).Interior.Color = WorksheetFunction.Hex2Dec(Mid(Range("l" & I).Value, 5, Len(Range("l" & I).Value) - 4))

(l'hexa est transformé en entier long)

Cordialement

 

[Efgé]

Re : couleur code hexadécimal

Bonjour Cathy 🙂 , Bonjour Pierrot 🙂, Bonjour mécano41
Ceci semble remplir son rôle 😀

Sub Cathy()
Dim Couleur As Variant
Couleur = (Cells(1, 1).Text) * 1
Cells(2, 1).Interior.Color = Couleur
End Sub

Cordialement

 

[C@thy]

Re : couleur code hexadécimal

Un immense MERCIiiiiiiiiiii à vous deux,

oui, cela fonctionne!!! (mecano414, pas chez efgé...)


Youpiiiiiiiiii

Mille bises

C@thy

 

[Efgé]

Re : couleur code hexadécimal

Re
Si, si, ça fonctionne, mais je n'avais donné que le principe pas le code...

Sub Cathy_2()
Dim Couleur As Variant
Sheets("codes Couleur").Activate
For I = 1 To 134
    Cells(I, 12).Offset(0, -1).Interior.Color = (Cells(I, 12).Text) * 1
Next I
End Sub

Cordialement

 

[Modeste geedee]

Re : couleur code hexadécimal

Bonsour®

Sub Cathy()
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...

effectivement un code Hexadecimal codé ainsi dans une cellule est un Texte
- soit on le transforme dans dans la feuille
- ou bien dans le code

😎

Sub Cathy()
Dim Idx As Long, couleur As Long
Sheets("codes Couleur").Activate
For Idx = 1 To 134
        '---- à la volée dans le code par troncature
        'Cells(Idx, 12).Offset(0, -1).Interior.Color = Application.Hex2Dec(Mid(Range("I" & Idx), 3, 6))

        '---- à la volée dans le code par numerisation
        'Cells(Idx, 12).Offset(0, -1).Interior.Color = CLng(Range("I" & Idx))

        '---- dans la feuille
        couleur = CLng(Range("I" & Idx))
         With Cells(Idx, 12).Offset(0, -1)
             .Value = couleur
             .Interior.Color = .Value
        End With

Next
End Sub

 

[C@thy]

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

 

[C@thy]

Re : couleur code hexadécimal

Je joins mes données :

Bises

C@thy

 

[C@thy]

Re : couleur code hexadécimal

Oui, Efgé, cela fionctionne, mais même remarque, j'ajoute un on error resume next pour les codes
qui font moins de 8 caractères...

Un grand MERCI à tous, vous êtes SUPERrrrr...

Bises

C@thy

 

[Efgé]

Re : couleur code hexadécimal

Re
Sous 2003 j'ai 12 erreurs.
Peut être qu'excel ne peut tout afficher.
Cordialement

 

[C@thy]

Re : couleur code hexadécimal

Bravo Efgé, très bien, la gestion des erreurs
j'ai souvent beaucoup de mal avec cette partie, et pourtant c'est super important...

Bizz

C@thy

 

[Efgé]

Re : couleur code hexadécimal

Re
Plus d'erreurs
Certains code Hexa n'en sont pas.
Cordialement

 

[C@thy]

Re : couleur code hexadécimal

Waooooooooo trop fort! Efgé est GRAND!!!
J'ai bien fait de joindre mes données, tu as vu la faille!!!

Mille mercis, c'est parfait!!!

Bizzz

C@thy