Bouton ouvrir ou fermer un formulaire

[maval]

Bonjour,

J'ai un bouton sur un UserForm1 pour ouvrir le UserForm2. J'aimerai avec le même bouton du UserForm1 fermer le UserForm2.
C'est à dire que le bouton a double fonction "Ouvrir et Fermer"

Je vous remercie d'avance.

 

[Pierrot93]

Re : Bouton ouvrir ou fermer un formulaire

Bonjour,

pas ouvert ton fichier mais regarde peut être ceci :

Option Explicit
Private Sub CommandButton1_Click()
On Error Resume Next
AppActivate "UserForm2"
If Err.Number <> 0 Then UserForm2.Show Else Unload UserForm2
On Error GoTo 0
End Sub

bonne journée
@+

 

[maval]

Re : Bouton ouvrir ou fermer un formulaire

Bonjour Pierrot

Je te remercie mais le code ouvre bien l'userform2 mais je ne peut pas le refermer avec le même bouton

 

[Pierrot93]

Re : Bouton ouvrir ou fermer un formulaire

Re,

les 2 userforms doivent être non modals

 

[maval]

Re : Bouton ouvrir ou fermer un formulaire

Re,

A l'ouverture du premier user code : Userform1.show

@+

 

[maval]

Re : Bouton ouvrir ou fermer un formulaire

re,

Au temps pour moi tu as raison excuse moi sa fonctionne

merci et bonne journée