chaelie2015
XLDnaute Accro
Bonjour Forum
Je souhaite afficher une couleur dans les cellules ( de224 au 247) selon le texte affiché dedans.
Dans ces cellules, j’ai une formule.ci dessous le code qui fonctionne parfaitement mais avec ces formules ça marche pas ?
salutations
Je souhaite afficher une couleur dans les cellules ( de224 au 247) selon le texte affiché dedans.
Dans ces cellules, j’ai une formule.ci dessous le code qui fonctionne parfaitement mais avec ces formules ça marche pas ?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range 'couleurs
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A224:A247,G224:G147]) Is Nothing Then
For Each C In Sheets(2).Range("couleur")
If Target.Value = C.Value Then
Target.Interior.Color = C.Offset(, 1).Interior.Color
End If
Next C
End If
End Sub
Pièces jointes
Dernière édition: