Fermeture d'UserForm

Résolu/Fermé
Rémi - 4 nov. 2016 à 11:26
 Rémi - 7 nov. 2016 à 10:35
Bonjour,

J'ai créé un UserForm ("Personnels") avec différents boutons permettant l'accès à d'autres UserForm ("Recherche", "CMA", "Accès_tableau", etc).

Lors d'un clic sur un de ces boutons, l'UserForm actuel se ferme et le suivant s'ouvre comme prévu.
Mais lors d'un clic sur la croix pour le fermer, j'aimerai retourner à l'UserForm "Personnels" tout en fermant l'autre. Sauf que "Personnels" s'ouvre correctement, mais celui fermé reste ouvert derrière, créant une erreur si on essaie à nouveau d'y accéder car il est déjà ouvert.

J'ai essayé différentes lignes :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = False
    Unload Me
    Personnel.Show
End Sub


ou


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
    Personnel.Show
End Sub


Voire même


Private Sub UserForm_Activate()     'Activation UserForm Personnel

Unload CMA
Unload parametres
Unload Accès_tableau
Unload Crea_CMA
Unload Recherche

[...]

End sub


Mais rien n'y fait. Je commence à être à court d'idées.

D'avance, merci.
A voir également:

3 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 729
4 nov. 2016 à 12:14
Bonjour,

Aller dans les propriétés de chaque UserForm et mettre ShowModal à False
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
4 nov. 2016 à 14:57
Bonjour,

Un exemple :
https://www.cjoint.com/c/FKen4QLf7RY
0
Merci beaucoup, ça fonctionne nickel !
0