Protéger en écriture une cellule coloré

Mon problème :

J'ai une cellule (A1par ex) ou je rentre des paramètres d'entrée de ma feuille de calcul. Suivant une option que je choisi dans une autre cellule, la cellule A1 se grise.

Je souhaiterais qu'une fois griser l'utilisateur ne puisse pas rentrer de valeur dans cette cellule.

Une fois l'option dessélectionner, l'utilisateur doit pouvoir entrer des valeurs dans la cellule (a1) qui n'est plus grisée

Merci d'avance

Bonjour

une autre syntaxe (plus courte)

Private Sub CheckBox1_Click()
ActiveSheet.Protect Contents:=True, userInterfaceOnly:=True
    With Range("A1")
        .Interior.ColorIndex = IIf(Me.CheckBox1.Value = True, 15, xlNone)
        .Locked = IIf(Me.CheckBox1.Value = True, True, False)
    End With
End Sub

Tu peux essayer ceci:

1)Tu crées une chekbox avec la barre d'outils Contrôles

2)Clic-droit sur ce contrôle, [Visualiser le code]

3) Tu colles le code ci-dessous

Private Sub CheckBox1_Click()
If CheckBox1 Then
ActiveSheet.Unprotect
Range("A1").Interior.ColorIndex = 15
Range("A1").Locked = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Range("A1").Interior.ColorIndex = xlNone
Range("A1").Locked = False
ActiveSheet.Protect
End If
End Sub

Merci, ton code à l'air de marcher !

Super !