Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion libellule85
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

libellule85

XLDnaute Accro
Bonsoir le forum,

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

Code:
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
 
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ù ?
 
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
 
Re : Un clic pour Ouvrir et un deuxième clic pour fermer usf

Soirbon,
Au plus simple s'il n'est pas caché
Code:
Private Sub CommandButton1_Click()
With UserForm2
    If .Visible Then
        Unload UserForm2
    Else
        .Show 0
    End If
End With
End Sub
A+
kjin
 
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
527
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…