ToggleButton

[Stephane]

Bonjour,

A l' aide d' un togglebutton, peut-on faire apparaître un USF et en cliquant une 2eme fois dessus le faire disparaître.
J' ai essayé ce code, l' usf s' affiche mais le 2eme click ne le fait pas disparaître.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
UserForm1.Show
Else
ToggleButton1 = False
Unload UserForm1
End If
End Sub

Une idée ?? Merci.

 

[Hervé]

bonsoir

Ton souci ne doit pas venir de ton togglbutton, mais de l'appel de l'userform, essaye ceci

.......
UserForm1.Show 0
.......

Salut

 

[JB_]

Salut Stephane,

et salut à Herve qui a été plus vite que moi,

comme ceci çà marche.


Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
UserForm1.Show 0
Else
Unload UserForm1
End If
End Sub


Salut

 

[Stephane]

Bonsoir,

Merci Hervé et JB_ , pour vos réponses; en rajoutant le 0 ça fonctionne.

A plus. Stephane.