Discussion :

[Phifou]

Bonjour à tous,

je souhaite savoir s'il est possible de fermer une UserForm complètement avant et en ouvrir une autre après la fermeture de la première (ou simultanément).


En gros, j'ouvre depuis une USF1 une USF2 (et je cache USF1 à ce moment là aussi), je veux que si l'utilisateur appuie sur la croix de USF2 cela ferme USF2 et ouvre USF1 :

Dans ma USF1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CB_TravailJO_Click()
 
    Me.Hide
    UF_ChoixAnnee.Show
    CalJO = True
    CreerCalendrier
 
End Sub

Dans ma USF2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    If CloseMode = 0 Then
        UF_CreaPlanning.Show
    End If
 
End Sub

Déjà là, il ne me ferme pas USF2 : en fait, comme la procédure de fermeture de USF2 n'est pas finie, parce que le curseur est entré dans la USF1. Mais en plus si j'essaye d'ouvrir la USF2 alors là ça plante. (forcément elle est déjà ouverte)

Bref, est-ce que c'est possible que je le fasse de la sorte ? ou est-ce que je vais être obligé de seulement cacher ma USF2 au lieu de la fermer ?

Merci d'avance de votre aide,


Philippe

[PMO2017]

Bonjour,

Il faut différer l'ouverture en employant Application.OnTime comme la démarche suivante le montre.

1) Créez un UserForm1 avec un CommandButton1 et copiez le code suivant dans sa fenêtre de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Me.Hide
UserForm2.Show
End Sub

2) Créez un UserForm2 et copiez le code suivant dans sa fenêtre de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Application.OnTime Now + TimeValue("00:00:00"), "OuvreUSF1"
End Sub

3) Dans un module Standard, copiez le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub OuvreUSF1(Optional dummy As Byte)
UserForm1.Show
End Sub