Gestion des couleurs

Bonjour le forum,

J'ai un petit souci qui me chiffonne depuis plus de 5 heures, je cherche mais je ne trouve pas donc je fais appel à vous.

En "C1" Je souhaiterais donner la couleur de l'index de la cellule "A1".

exemple: en A1 j'ai le chiffre 3 donc la cellule C1 sera rouge

Merci à tous

Cordialement

Bruno

Bonjour et bienvenu(e)

Avec une procédure évènementielle à placer dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    ' xlNone = -4142
    If Val(Target) >= 0 And Val(Target) <= 56 Or Val(Target) = xlNone Then
      Range("C1").Interior.ColorIndex = Range("A1")
    End If
  End If
End Sub

Bonsoir le forum

Bonsoir Banzaï

Je te remercie pour la réponse c'est exactement ce que je cherchais

merci

Bonne soirée à tous