Code couleur international

boeselager · 11 Octobre 2016

Bonsoir à tous

allez une demande assez sympa....

le code couleur international, vous connaissez ? ( code couleur des résistances ou des repères de fils...

je souhaite donc convertir une chaîne de caractères numériques en code couleur international

Un lien intéressant pour comprendre mon besoin : http://www.markelec.fr/Markelec/169...pere-unitaires-pour-cables-electriques-pk.jpg

chaque chiffre composant la chaîne est saisi dans une case excel
exemple : le nombre 1234567890

je souhaite que le chiffre 1 apparaisse dans la case F1 avec une case marron et le caractère en Blanc
je souhaite que le chiffre 2 apparaisse dans la case G1 avec une case ROUGE et le caractère en Blanc
je souhaite que le chiffre 3 apparaisse dans la case H1 avec une case ORANGE et le caractère en noir
je souhaite que le chiffre 4 apparaisse dans la case I1 avec une case Jaune et le caractère en noir
je souhaite que le chiffre 5 apparaisse dans la case J1 avec une case VERT et le caractère en Blanc
je souhaite que le chiffre 6 apparaisse dans la case K1 avec une case BLEU et le caractère en Blanc
je souhaite que le chiffre 7 apparaisse dans la case L1 avec une case Violet et le caractère en Blanc
je souhaite que le chiffre 8 apparaisse dans la case M1 avec une case Gris et le caractère en noir
je souhaite que le chiffre 9 apparaisse dans la case N1 avec une case BLANC et le caractère en noir
je souhaite que le chiffre 0 apparaisse dans la case O1 avec une case NOIR et le caractère en Blanc

merci pour votre aide

Victor21 · 12 Octobre 2016

Bonsoir.

Comme ça ?

boeselager · 12 Octobre 2016

Super

merci

mais comment avez vous géré les couleurs ?? il y a du code caché ?

par ailleurs , est il possible de :

me laisser la possibilité de changer les couleurs ?

merci encore

eriiic · 12 Octobre 2016

Bonjour,

Avec du retard mais comme tu veux changer les couleurs ça tombe bien...
Définies dans la feuille Code couleur, je n'ai fait que les 3 premières.
Réagit sur toute saisie en E.
eric

edit : bon, même plus moyen de faire passer un zip et les xlsm non plus...
Donc le fichier, et la macro :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pl As Range, c As Range, sh As Worksheet
    Dim i As Long, n As Long
    Set sh = Worksheets("Code couleur")
    Set pl = Intersect(Target, Columns(5))
    If Not pl Is Nothing Then
        Application.EnableEvents = False
        For Each c In pl
            For i = 1 To Len(c)
                If Mid(c, i, 1) >= "0" And Mid(c, i, 1) <= "9" Then
                    With c.Offset(, i)
                        n = CLng(Mid(c, i, 1))
                        .Value = n
                        .Font.Color = sh.[A1].Offset(n).Font.Color
                        .Interior.Color = sh.[A1].Offset(n).Interior.Color
                    End With
                End If
            Next i
        Next c
        Application.EnableEvents = True
    End If
End Sub

edit 2 : cette machine est folle !

Dranreb · 12 Octobre 2016

Bonsoir.
Ça se fait, avec des MeFC.

Edit: Changer les couleurs ???
Ce n'est plus le problème que vous exposiez alors ?

Quelles couleurs voudriez vous mettre ?
J'ai depuis peu si ça vous intéresse un module de classe Couleur. L'objet est muni de 10 propriétés dont 2 en lecture seule et 7 méthodes.

boeselager · 12 Octobre 2016

boeselager à dit:
Super

merci

mais comment avez vous géré les couleurs ?? il y a du code caché ?

par ailleurs , est il possible de :

me laisser la possibilité de changer les couleurs ?

merci encore

j'ai troouvé.... grâce à la fonction "mise en forme cond."
mais petit soucis.... si le nombre n'est pas composé de 9 chiffres...
par exemple 12345 >>> ça me génère des cases vertes avec # : j'aimerai qu'elles soient vides ( remplissage blanc et couleur de police Blanche )
possible ?
merci merci

ROGER2327 · 12 Octobre 2016

Bonsoir à tous.

Encore en retard, Roger !
Cela ne fait rien : j'ai fait, je livre.

Bonne nuit.

ℝOGER2327
#8356

Vendredi 6 Haha 144 (Sainte Tourte, lyrique et Sainte Bévue, sociologue - fête Suprême Quarte)
20 Vendémiaire An CCXXV, 9,6113h - pressoir
2016-W41-2T23:04:02Z

Code couleur international

boeselager

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

Pièces jointes

boeselager

XLDnaute Nouveau

eriiic

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

boeselager

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Discussions similaires