Discussion :

[cedill23]

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 :

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

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.

[larryj]

Bonjour,

Voici une solution possible:

Code :

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

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 :

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

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

[cedill23]

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 :

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

If Caseàcocher258.Value = True Then

[Pierre Fauconnier]

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é.

[cedill23]

Merci je vais tester