Macro CheckBox pour déverrouiller Cellules

Bonjour à vous,
Je suis débutant en VBA et j'ai besoin de vous,
J'essaie de faire une macro dans une checkbox qui me permettrais, si la CheckBox est coché, de déverrouiller des cellules verrouillé au préalable par Excel.
Ma fonction ressemblait à ça :

Code:

---

1 2 3 4 5 6 7 8

Sub Caseàcocher1_Cliquer()   If Caseàcocher1.Value = True Then Range("I22:I30").Select Selection.Locked = False End If   End Sub

---

J'ai l'erreur suivante sur ma ligne 3 (celle de mon IF)
erreur d'exécution 424 objet requis
Si vous pouviez m'aider je vous en serais reconnaissant =)

Salut mister,

Je pense que ton problème vient de ton nom "Caseàcocher1_Cliquer".
Case est un mot clé permettant de faire un IF dit "énuméré", ce qui expliquerait pourquoi excel t'affiche "erreur d'exécution 424 objet requis".
De plus il est préférable de rajouter l'instruction worksheet sur ta plage de cellule afin de ne pas te tromper dans les feuilles de ton classeur.

Ce qui donnerait :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Cocher_Click()   If Cocher.Value = True Then Worksheets(1).Range("I22:I30").Select Selection.Locked = False End If   End Sub

---

Cordialement
xela57

Hello Xela,
Tout d'abord merci de ta réponse
J'ai donc changé la macro rattaché à ma checkbox par la tienne et là toujours la même erreur.. à la même ligne
"erreur d'exécution 424 objet requis"
Oui je savait pour le "case" (Vu qu'il est utilisé dans d'autre langage j'avais fait l'analogie), j'avais déjà essayé de changer le nom de ma CheckBox mais rien n'avait changé.

Est-ce que tu utilises bien la fenêtre de propriété de visual basic pour renommer ta "checkbox" avec l'option "name" et "caption" ?

Sinon, redémarre ton ordi. Cet erreur m'est déjà arrivé et c'est uniquement en relançant l'ordi que j'ai réussi à me débloquer. Il arrive qu'Excel se plantouille dans le développeur.

Ah Effectivement le nom ne correspondait pas dans le code et les propriétés VBA j'ai modifié un peu en fonction des erreurs que j'avais et là j'en suis à :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Cocher_Click()   If Worksheets(1).Module1.Value = True Then Sheets(1).Range("I22:I30").Select Selection.Locked = False End If   End Sub

---

J'ai "erreur D'éxécution 438 propriété ou méthode non gérée par cet objet" , toujours sur la même ligne. La fonction "Value" ne doit pas fonctionner avec les cases à cocher mais je ne connais pas la fonction qui m'aiderait alors

Quand tu utilise une checkbox il ne faut pas préciser la feuille, il suffit juste de déclarer : Module1.Value= True
Attention, assure toi bien que le nom de ta checkbox soit "Module1" et non pas le nom du programme ;)

Ok, super j'avance petit à petit mais j'avance ^^

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CheckBox1_Click()   If CheckBox1.Value = True Then Sheets(1).Range("I22:I30").Select Selection.Locked = False End If   End Sub

---

Maintenant il me dit que la propriété "Locked" n'est pas définissable

Mais on remarque de l'avancé: Les cases ne se bloquent plus (je veux dire plus du tout :p )

mmm je ne peux pas te dire je n'ai jamais utilisé "locked"...

Et si tu déplaçais les lignes contenant les valeurs des cellules verrouillées dans d'autres cellules de la feuille. Cela fonctionnerait-il ?

Code:

---

1 2 3

worksheets(1).Range("B10:B18")=worksheets(1).Range("I22:I30") worksheets(1).Range("I22:I30").ClearContents

---

Bonsoir à tous,

Il est bon de savoir si le Control que tu as inséré sur la feuille est un control ActiveX ou Formulaire ? Car tout est différent !

1- Control Formulaire, du type "Case à cocher" nécessite une case liée dans laquelle la valeur VRAI ou Faux correspondra à cette case cochée ou non. A partir de cette cellule et de la Macro affectée à cette case à cocher on pourrait en déduire :

Code:

---

If [C26] = True Then ' si on met la cellule en C26

---

2- Control Active X, il suffit d'aller dans la Private Sub du CheckBox créé pour y mettre :

Code:

---

If CheckBox1.Value = True Then

---

Bonsoir,
Pourquoi s'embrasser d'un if!

Code:

---

1 2 3 4

Sub Cocher_Click() Worksheets(1).Range("I22:I30").Locked = not Cocher End Sub

---

Bonjour à vous en ce mercredi matin,
@Xela: Oui cela aurait pu être une solution si seulement je n'avais pas besoin de ce pool de case plus tard ^^ mais merci pour ton aide précedente
@Hopopop (j'aime ton pseudo toi), Merci pour tes indications elles m'ont été utiles
@rdurupt: Oui mais j'avais besoin que le concept fonctionne dans le sens contraire (si on décoche cela referme les cases Excel, tu vois ce que je veux dire?)

Finalement avec un peu de persévérance et votre aide j'ai finalement trouvé une solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CheckBox1_Click()   If CheckBox1.Value = True Then Worksheets(1).Unprotect Worksheets(1).Range("I22:I28").Locked = False Worksheets(1).Protect     End If If CheckBox1.Value = False Then Worksheets(1).Unprotect Worksheets(1).Range("I22:I28").Locked = True Worksheets(1).Protect End If End Sub

---

Le gros problème rencontré c'était que je ne pouvais pas déverrouillé les cellules ci la feuilles était protégé, il fallait d'abord que la fonction ôte la protection puis que je modifie les propriétés des cellules que je voulais modifier et finir en reprotégeant la feuille.

Et du coup j'ai juste eu à faire la même chose en inversant les true et false pour reverrouiller mes cellules

Merci à tous !

bonjour,
oui c'est exactement ce que je t'ai proposé!

Code:

---

1 2 3

Worksheets(1).Unprotect Worksheets(1).Range("I22:I28").Locked = not CheckBox1.Value 'ici on applique la valeur inverse du CheckBox1.Value si true alors Locked=false si non Locked=true! Worksheets(1).Protect

---

a= not true=> a=false;
a= not false=> a=true;

Effectivement ta fonction est plus optimisée,
Je n'avais pas compris comment elle fonctionnait on dirait, merci pour l'explication :)