Code couleur international

[boeselager]

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]

Bonsoir.

Comme ça ?

 

[boeselager]

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]

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 :

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]

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]

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]

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