pbme togglebutton à l'ouverture du fichier

[meldja]

bonjour,
J'ai mis un togglebutton pour afficher ou masquer un contrôle calendrier sur une feuille, voici le code :

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Masquer le calendrier"
Calendar1.Visible = True
Calendar1.Value = Now
Else
ToggleButton1.Caption = "Afficher le calendrier"
Calendar1.Visible = False
End If
End Sub

Jusque là, pas de problème ; seulement, à l'ouverture du fichier, je voudrais que le togglebutton soit à "False" et que le calendrier soit masqué. J'ai donc essayé de mettre les lignes suivantes dans ThisWorkbook :

Private Sub Workbook_Open()
ToggleButton1.Caption = "Afficher le calendrier"
Calendar1.Visible = False
End Sub

Mais j'ai une erreur de compilation lorsque je compile.
Si quelqu'un a une explication et, surtout, une solution, merci d'avance.
Bonne soirée

 

[meldja]

Re : pbme togglebutton à l'ouverture du fichier

bonjour,
J'ai mis un togglebutton pour afficher ou masquer un contrôle calendrier sur une feuille, voici le code :

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Masquer le calendrier"
Calendar1.Visible = True
Calendar1.Value = Now
Else
ToggleButton1.Caption = "Afficher le calendrier"
Calendar1.Visible = False
End If
End Sub

Jusque là, pas de problème ; seulement, à l'ouverture du fichier, je voudrais que le togglebutton soit à "False" et que le calendrier soit masqué. J'ai donc essayé de mettre les lignes suivantes dans ThisWorkbook :

Private Sub Workbook_Open()
ToggleButton1.Caption = "Afficher le calendrier"
Calendar1.Visible = False
End Sub

J'espère que le message sera plus clair.
Je précise que j'ai essayé aussi :

Private Sub Workbook_Open()
ToggleButton1.Caption = False
Calendar1.Visible = False
End Sub

Merci et désolé du cafouillage

 

[Fo_rum]

Re : pbme togglebutton à l'ouverture du fichier

Salut,
à essayer

Dans ThisWorkbook

Private Sub Workbook_Open()
  With ActiveSheet 'feuille contenant le bouton activée !
    .ToggleButton1.Caption = "Afficher le calendrier"
    .Calendar1.Visible = False
  End With
End Sub

Dans la feuille (contenant le bouton) :

Private Sub ToggleButton1_Click()
  If ToggleButton1 Then
    ToggleButton1.Caption = "Masquer le calendrier"
    Calendar1.Visible = True
    Calendar1.Value = Now
  Else
    ToggleButton1.Caption = "Afficher le calendrier"
    Calendar1.Visible = False
  End If
End Sub

 

[meldja]

Re : pbme togglebutton à l'ouverture du fichier

Salut
Exact, j'avais oublié de préciser la feuille. Pour que ça le fasse bien, il fallait ça :

Private Sub Workbook_Open()
With Sheets("saisie")
.ToggleButton1 = false
.Calendar1.Visible = False
End With
End Sub

Merci beaucoup, j'avais juste oublié d'indiquer la feuille.
Bonne soirée et encore merci !