Discussion :

[stdonat]

Bonjour

J'ai 2 userforms.
Userform1 est Non Modal
Userform2 est Modal

Le Userform1 est affiché,avec dans son Activate un select case

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm1_Activate()
    Select Case role
        Case Is = "N2"
            Bp_01.Visible = True
            Bp_02.Visible = True
            Bp_03.Visible = True
            Bp_04.Visible = True
            Bp_05.Visible = True
        Case Is = "RH"
            Bp_02.Visible = True
            Bp_03.Visible = True
            Bp_04.Visible = True
            Bp_05.Visible = True
        Case Is = "CS"
            Bp_02.Visible = True
        Case Is = "N1"
            Bp_02.Visible = True
        Case Else
    End Select
End Sub

un bouton sur ce dernier me permet d'afficher le Userform2

Code :

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

1
2
3
4
5
Private Sub Bp_Demo_Click()
    Me.Hide
    Userform2.Show
    Me.Show
End Sub

Dans mon userform2 j'ai un combobox qui affecte la variable Public "role" utilisé dans le select case de l'activate de mon userform1.

Code :

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

1
2
3
4
Private Sub BpValid_Click()
    role = Cbx_Choix_Role.Value
    Unload Me
End Sub

Lorsque je click sur un bouton dans ce userform2, je souhaite qu'il se ferme et qu'il réactive mon Userfomr1. Mais je ne comprends pas pourquoi le Userfom1 ne s'affiche pas !

Merci de votre aide.

[Nako_lito]

tu pourrais déplacer le code du hide et du show.
mettre le hide dans le load du userform2 et le load du form1 dans le close du form2

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
Private Sub Bp_Demo_Click()
    Me.Hide
    Userform2.Show
    Me.Show 'Place un point d'arrêt ici touche [F9] du clavier et refais le test.
End Sub

[stdonat]

Merci pour vos réponses..

Robert:
J'ai mis le point d’arrêt, a ce moment là les 2 userfoms sont masqué, un coup de F8 Userfom1 est visible un deuxième coup de F8 il disparait.

Noko:
C'est quoi pour toi le load du Userfom2 son initialize ou son activate ? et le close c'est ou ?

Merci

[Invité]

oui mais vue que Usf1 est non modal il rend la main à l'appelant don si tu fais [F8] jusqu’au bout tu dois trouver qui le referme!

[stdonat]

Ben Oui mon userfomm1 se referme et ce n'est pas ce que je souhaite!
Comment le garder ouvert ?

[Nako_lito]

Nako:
C'est quoi pour toi le load du Userfom2 son initialize ou son activate ? et le close c'est ou ?

Le load, c'est soit le initialize, soit le activate, peu importe dans ton cas.

Le close, tu peux utiliser l'event terminate

[stdonat]

Nako,
J'ai bien essayé ta solution mais ce ne change rien à mon problème...

[Nako_lito]

je me suis fais deux form très basique :
1 form "usrModal"
1 form "usrNotModal"

1 bouton sur chaque

Le code du bouton sur usrNotModal :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
    Me.Hide
    usrModal.Show vbModal
    Me.Show
End Sub

Le code du bouton sur usrModal :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Ca fonctionne farpaitement de mon côté.

là ou tu fais l'erreur, c'est que tu ne définis pas l'appel de ton écran comme modal. Donc, il est évident qu'Excel te fasse réapparaitre ton form1 après avoir affiché le form2 car il n'attends pas que form2 soit fermé pour continuer, vu que sur ta ligne usrForm.Show, tu ne mets pas le paramètre vbModal. Par défaut, c'est false, donc non modal.

[Invité]

Il faut repasser le usf1 en modal et pour le refermer faire

Code :

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

me.hed

[stdonat]

j'ai Excel 2003
J'ai moi aussi refait un fichier basique avec 2 userforms et en reprenant le code que tu me propose et ça ne marche pas...

[Nako_lito]

compatible excel 2003

[stdonat]

Merci
Mais ton fichier toto.xls en pj les 2 userform son Modal...

Ils ont tous les 2 leurs propriétés "ShowModal=True"....

ce n'est pas ce que je souhaites...

Une autre idée peut etre ?

[stdonat]

Autant pour moi...
Ton fichier marche trés bien Nako....

Merci désolé j'ai testé un peu trop vite.... comment souvent!

[Nako_lito]

Pour conclure, je rajouterai que :
les propriété qui sont définit sur le petit encadré sont paramétrable dans le code. Toutes, sans exception.

Le form principal a besoin d'être modal car c'est lui qui lance ton application. Ensuite, tous les auters form que tu lance, libre a toi de les mettre modaux ou pas, via le code ou via ce petit encadré.