Discussion :

[Vincent A]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vincent A]

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

[Vincent A]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vincent A]

Merci beaucoup pour cette aide bienvenue, tout marche parfaitement