empecher l'écriture

[Thorgalson]

Salut à vous
Je voudrais savoir comment empêcher l'écriture dans une cellule selon sa couleur? Est-ce possible?

Merci

 

[Eric C]

Bonsoir le forum
Bonsoir Thorgalson

Je tente : si la cellule de destination (est colorée en rouge (ColorIndex = 3) alors déplacement sur la cellule D1 .. A adapter..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 3 Then
Range('D1').Activate
End If
End Sub

Bonne fin de journée à toutes & à tous