Un clic pour Ouvrir et un deuxième clic pour fermer usf

[libellule85]

Bonsoir le forum,

J'ai un bouton de contrôle auquel j'ai associé a un userform :

Private Sub CommandButton1_Click()
UserForm2.Show 0
End Sub

Quand on clique une fois dessus celà ouvre l'userform, mais j'aimerais savoir comment mettre que si on clique une deuxième fois sur le bouton de contrôle celà ferme (et non masquer) l'userform sans avoir à aller sur le bouton fermer (Unload Me) que j'ai mis dans l'usf.
D'avance merci pour vos réponses

 

[libellule85]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Bonsoir carcharodon-carcharias,
Je te remercie pour ta réponse c'est sympa, mais j'ai une question qui va te paraitre stupide c'est quoi un togglebutton et je le trouve où ?

 

[libellule85]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Re,
Merci beaucoup.
Bonne soirée
@+

 

[libellule85]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Re,
celà fonctionne très bien néanmoins si je ferme l'userform à partir de celui-ci le toggleButton reste enfoncé !! Il n'y aurait-il pas moyen que si je ferme à partir de l'usf le togglebutton revienne en position normal
merci pour ta réponse

 

[kjin]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Soirbon,
Au plus simple s'il n'est pas caché

Private Sub CommandButton1_Click()
With UserForm2
    If .Visible Then
        Unload UserForm2
    Else
        .Show 0
    End If
End With
End Sub

A+
kjin

 

[libellule85]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Bonsoir kjin,
J'ai essayé ton code et c'est exactement ce que je voulais.
merci beaucoup et je remercie également carcharodon-carcharias
bonne soirée à vous
@+

 

[YANN-56]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Bonsoir à tous,

Une variante qui pourrait être utile dans l'exemple joint.

Amicalement,

Yann

 

[libellule85]

Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Bonjour Yann-56,
Je te remercie pour ta réponse
A Bientôt