Colorier une cellule suivant un code prédeterminé

Bonjour,

je souhaiterai colorer une cellule avec la couleur correspondant au code entré dans une autre cellule

ex:

je rentre dans la colonne 1 le Code couleur (de 1 à 56)

j'obtien dans la colonne 2 la cellule colorée de la couleur correspondant au code de la colonne 1

d'avance merci pour votre aide

Bonjour,

Un code a adapter,essaye et dis quoi

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B5:AF11]) Is Nothing And Target.Count = 1 Then
     Select Case UCase(Target.Value)
       Case "C"
         Target.Interior.ColorIndex = 33
       Case "M"
         Target.Interior.ColorIndex = 35
        Case "A"
         Target.Interior.ColorIndex = 3
       Case "R"
         Target.Interior.ColorIndex = 4
       Case "H"
         Target.Interior.ColorIndex = 15

       Case Else
         Target.Interior.ColorIndex = xlNone
     End Select
  End If
End Sub

A +

Bonjour Hugo, Henri,

Henri, ton code ne répond pas à la question, et un novice ne saura pas l'adapter...

Hugo, essaye avec ce fichier (le code est placé au bon endroit, tu n'as qu'à entrer une valeur comprise entre 0 et 56 où tu veux.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 Then
If Target >= 1 And Target <= 56 Then
Target.Offset(0, 1).Interior.ColorIndex = Target
End If
End If
End Sub

Amicalement,

Sylvain,

Merci beacoup pour ta réponse, cependant j'ai un petit souci... je voudrai que la macro ne s'applique que dans une colonne déterminé et non dans toute la feuille!!

encore merci

Quelle colonne ?

Code modifié pour ne prendre en compte que les valeurs de la colonne E (Target.Column=5) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 And Target.Column = 5 Then
If Target >= 1 And Target <= 56 Then
Target.Offset(0, 1).Interior.ColorIndex = Target
End If
End If
End Sub