couleur code hexadécimal

Pierrot93

XLDnaute Barbatruc

• 4 Juin 2013

• #2

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....

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #3

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

 

Dernière édition: 4 Juin 2013

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 4 Juin 2013

• #4

Re : couleur code hexadécimal

Bonjour,

Essaie ceci :

Code:

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #5

Re : couleur code hexadécimal

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

VB:

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

Cordialement

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #6

Re : couleur code hexadécimal

Un immense MERCIiiiiiiiiiii à vous deux,

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


Youpiiiiiiiiii

Mille bises

C@thy

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #7

Re : couleur code hexadécimal

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

VB:

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

 

Pièces jointes

• Classeur1.xls

  32 KB · Affichages: 149
• Classeur1.xls

  32 KB · Affichages: 182
• Classeur1.xls

  32 KB · Affichages: 168

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 4 Juin 2013

• #8

Re : couleur code hexadécimal

Bonsour®

C@thy à dit:

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...

Cliquez pour agrandir...

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

😎

VB:

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #9

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #10

Re : couleur code hexadécimal

Je joins mes données :

Bises

C@thy

 

Pièces jointes

• Classeur1(1).xls

  47 KB · Affichages: 178
• Classeur1(1).xls

  47 KB · Affichages: 140
• Classeur1(1).xls

  47 KB · Affichages: 317

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #11

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #12

Re : couleur code hexadécimal

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

 

Pièces jointes

• Classeur1b.xls

  32 KB · Affichages: 126
• Classeur1b.xls

  32 KB · Affichages: 132
• Classeur1b.xls

  32 KB · Affichages: 123

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #13

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Juin 2013

• #14

Re : couleur code hexadécimal

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

 

Pièces jointes

• Classeur1c.xls

  33.5 KB · Affichages: 155
• Classeur1c.xls

  33.5 KB · Affichages: 200
• Classeur1c.xls

  33.5 KB · Affichages: 195

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Juin 2013

• #15

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

 

Vote positif 0 Vote négatif