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"
pas ouvert ton fichier mais regarde peut être ceci :
Code:
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