Couleur auto dans cellule

Bonjour à tous,

je souhaiterai votre aide :
dans les cellules C157 à C163 sont inscrits les chiffres de 1 à 6 et le 15 et dans les cellules E156 à E163 sont inscrits les chiffres de 7 à 14 avec des couleurs de fonds différentes pour chaque cellule.
Je souhaiterai que si j’inscrit l’un de ces chiffres dans une cellule de la plage AK5:CT154, le fond et la police soient automatiquement de la même couleur que celui inscrit en C157 ou E156 …
Par exemple, si en AL12, j’inscrit le chiffre 5 alors le fond et la police de cette cellule seront de la même couleur de fond qu’en C161.

Enfin lorsque l’on supprime la valeur dans une cellule de AK5:CT154, il faudrait que le fond de la cellule redevienne en blanc avec une couleur de police noir.

Merci d’avance pour votre aide,

Cordialement,
Jéjé

Bonjour,

Avec cette grande explication, un classeur exemple serait plus efficace :wink:

1 J'aime

Bonjour!

Je ne suis pas sur d’avoir bien compris ta question.
Pourrais tu nous donner plus de détails stp et si possible inclure un fichier d’exemple?

Merci et à bientôt

Bonjour,

quelqu’un sur un autre forum m’a répondu et voici le code pour ceux que cela intéressent :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("AK5:CT154")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Target.Style = "Normal": Exit Sub
    With Range("C158:C163,C165,E156:E163")
        Set Cell = .Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
    End With
    If Not Cell Is Nothing Then
        Application.EnableEvents = False
        Cell.Copy Destination:=Target
        Application.EnableEvents = True
    End If
    Set Cell = Nothing
End Sub

Je vous remercie tout de même de vous être intéressés à ma demande.
A bientôt
Jéjé

1 J'aime

Merci d’être revenu pour partager la solution :slight_smile: