Couleur auto dans cellule


#1

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é


#2

Bonjour,

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


#3

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


#4

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é


#5

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