Pas conserver l'écrit et mettre des cellules en couleur

Bonsoir Forum

Je cherche la commande pour réaliser la mise en couleur de cellules

Exemple dans le fichier joint. Dans la cellule B12 je note CP et en validant par "enter" les deux lettres CP s'effacent et les cellules B,C,D,E,F,G ce colorient d'une couleur définie.

Merci pour les conseils et orientations

Adrien

Bonjour,

Essaie avec ce code à placer dans la feuille concernée. Clique droite sur l'onglet puis choisis "visualiser le code" puis colle le code ci-dessous.

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro Dan pour Adrienheiser le 19/08/10
If Not Intersect(Target, Range("B7:B" & Range("A65536").End(xlUp).Row)) Is Nothing Then
If Target = "CP" Then
Range("B" & Target.Row & ":G" & Target.Row).Interior.ColorIndex = 34
Target = ""
End If
End If
End Sub

Si tu as d'autres feuilles concernées, on peut te proposer autre chose.

Amicalement

Bonjour Dan Bonjour Forum

Impeccable, je te remercie vivement.

Pour l'instant je ne sais pas si j'aurai d'autres feuilles.

Je ne manquerai pas de revenir

Merci

Adrien