Checkbox Ouverture d'onglet Excel !

Bonjour,
Je Voudrais lorsque je coche la case il m'ouvre un onglet qui est masqué appeler Contact et lorsque je le décoche, il le referme automatiquement
Voici le code Actuel ! Alors j'utilise Excel.

Code:

---

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

Sub Caseàcocher3_Clic()   If Caseàcocher3.Value = True Then Sheets("Contact").Visible = True Sheets("Contact").Activate End If   If Caseàcocher3.Value = False Then Sheets("Contact").Visible = False End If End Sub

---

L'erreur que j'obtiens est Erreur d'exécution 424, Objet Requis (en debogant il s'arrete à cette ligne du code If Caseàcocher3.Value = True Then)

Merci de m'aider svp.

Bonjour,

Voici une solution possible:

Code:

---

1 2 3 4 5 6 7 8 9

'Remplacer "CheckBox1" par le nom de ta case à cocher (pour le moment "Caseàcocher3") Private Sub CheckBox1_Click() If CheckBox1.Value = True Then ThisWorkbook.Sheets("Contact").Visible = True ThisWorkbook.Sheets("Contact").Activate Else ThisWorkbook.Sheets("Contact").Visible = False End If End Sub

---

En revanche, il est préférable de renommer les objects (CheckBox) et les feuilles pour que le code soit plus compréhensible.
Ce qui pourrait donner:

Code:

---

1 2 3 4 5 6 7 8

Private Sub ckbx_Contact_Click() If ckbx_Contact.Value = True Then sh_Contact.Visible = True sh_Contact.Activate Else sh_Contact.Visible = False End If End Sub

---

alors j'ai tester ton code je l'ai mis tel qu'elle en remplaçant par checkbox par Caseàcocher258

Voici l'erreur que j'obtiens en cliquant sur la case.

Erreur d'execution 424 objet requis et il me renvoie sur la ligne ci-dessous.

Code:

---

If Caseàcocher258.Value = True Then

---

Bonjour.

Je suppose que tu as ajouté une case à cocher "de formulaire", qui n'est pas un objet que tu peux aisément manipuler par VBA. Tu aurais intérêt à placer un contrôle ActiveX sur l'objet, ce qui te permettra d'en gérer les évènements via le module de la feuille sur laquelle tu l'as placé.

Merci je vais tester