VBA - Pour Verrouiller un cellule

Bonjour tout le monde :),
J'aurais besoin d'un petit coup de main. Je m'expliques.
J'utilise dans mon tableau Excel des cases à coche. Lorsque ma case à coche en "A6" est décochée et donc renvoie la valeur "FAUX"
J'aimerais qu'une dizaine de cases en dessous soit verrouillées afin qu'il ne soit pas possible de les modifier.
J'ai tenté ce code un peu amateur mais rien à faire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CheckBox1_Click() Dim Variable As Long Variable = 7 + ActiveSheet.Range("C3") - 1 If CheckBox1.Value = False Then Range("c7", "c" & Variable).Locked = True Else If CheckBox1.Value = True Then Range("c7", "c" & Variable). Locked = False End If End If End Sub

---

Le problème provient de mon application de la fonction Locked qui semble être incorrect

Bonjour,
Lorsque l'on manipule une propriété de type booléen et que la valeur de celle-ci dépend d'une autre propriété booléenne, il est parfaitement inutile d'utiliser l'instruction If
Dans l'exemple ci-dessous, la propriété Locked des cellules B7:B17 prend la valeur inverse du contrôleCheckBox1

Code:

---

1 2 3

Private Sub CheckBox1_Click() Range("B7:B17").Locked = Not CheckBox1.Value End Sub

---

Pour information, une cellule verrouillée ne l'est réellement qu'à partir du moment où l'on protège la feuille

Bonjour,
Je vous remercie pour cette explication, en effet cela fait sens et je comprend l'inutilité de la fonction IF dans cette condition.
Cependant ce message d'erreur apparaît : "Impossible de définir la propriété de la classe range".
L'idée ici étant uniquement de bloquer les cellules lorsque la Coche est décochée.
Si je comprend bien j'ai laissé mes cellules de B7 à B17 en protection "non verrouillé" pour laisser la formule s'appliquer en fonction de la coche et le protection de la feuille est quand à elle bien active.

Formule utilisée :

Private Sub CheckBox1_Click()
Range("B7:B17").Locked = Not CheckBox1.Value
End Sub

Au temps pour moi je viens de comprendre l'action propre du code, il fait passer la protection même de la cellule à verrouillée ou non verrouillé.
Cependant cela ne semble pas compatible avec le fait que la feuille soit déjà protégée d'où le message d'erreur.
Il faudrait peut être que la protection de la feuille s'active après l'application de l'effet coche.

Vincent

Bonjour,
Pour éviter ce message d'erreur vous pouvez protéger votre feuille en plaçant la valeur True à l'argument UserInterfaceOnly de la méthode Protect
Exemple

Code:

---

1 2 3 4

Private Sub CheckBox1_Click() Me.Protect UserInterfaceOnly:=True Range("B7:B17").Locked = Not CheckBox1.Value End Sub

---

Merci beaucoup pour cette aide bienvenue, tout marche parfaitement :D