VBA Excel activer 1 UserForm depuis un autre?

Salut aquarelle et merci.

En fait, je connais la propriété modale des USF.

Cependant, ce que je souhaite faire c'est une activation automatique de l'USF2 à partir de l'USF1 sans que l'utilisateur n'ait à intervenir...

Quelque chose comme :
Dans l'USF1 :

Private Sub CommandButton1_Click()
'Mon code de procédure ici
UserForm2.Activate
End Sub
Private Sub UserForm_Activate()
MsgBox "Coucou l'USF1 est bien activé"
End Sub

Dans l'USF2 :

Private Sub UserForm_Activate()
MsgBox "Coucou l'USF2 est bien activé"
End Sub
Private Sub CommandButton1_Click()
'Mon code de procédure ici
UserForm1.Activate
End Sub

Alors j'ai essayé de remplacer : UserForm1.Activate par : UserForm1.Show 1 , userForm1.Show 0, mais j'obtiens toujours le message d'erreur : "vous ne pouvez pas afficher un USF en mode modal gna gna gna..."

Bah, si c'est pas possible, j'en masquerai un sur les deux avec Hide...

Salut,

Pour moi cela fonctionne si je mets :
Dans l'USF1 :

Private Sub CommandButton1_Click()
'Mon code de procédure ici
Load UserForm2
UserForm2.Show 0
End Sub
Private Sub UserForm_Activate()
MsgBox "Coucou l'USF1 est bien activé"
End Sub

Dans l'USF2 :

Private Sub UserForm_Activate()
MsgBox "Coucou l'USF2 est bien activé"
End Sub
Private Sub CommandButton1_Click()
'Mon code de procédure ici
Load UserForm1
UserForm1.Show 0
End Sub

Et pour lancer l'affichage des 2 UserForms :

Sub Auto_Open()
Load UserForm1
UserForm1.Show 0
Load UserForm2
UserForm2.Show 0
End Sub

Merci encore de t'intéresser à mon souci.
Le problème de "Load" c'est qu'il recharge mon Usf en mémoire. Or dans ma procédure Initialise, je remets à zéro certaines de mes variables public. Donc, j'ai peur que Load ne me remette systématiquement à zéro des variables qui évoluent au fur et à mesure de l'utilisation de mes userform.

J'ai donc fini par trouver une solution alternative. Je la livre ici, ça peux servir...

1- remplacer les appels des procédures : Private Sub UserForm_Activate() par : Sub UserForm1_Activate() (remplacer UserForm1 par le nom de votre UserForm)

2- les appeler depuis l'autre Userform par :

CallByName UserForm1, "UserForm1_Activate", VbMethod

3- dans chaque userform placer un textbox (que l'on rendra invisible)

Alors le code global donne :
Dans l'USF1 :

Private Sub CommandButton1_Click()
CallByName UserForm2, "UserForm2_Activate", VbMethod
With UserForm2.TextBox1
    .Visible = True
    .SetFocus
    .Visible = False
End With
End Sub

Sub UserForm1_Activate()
    MsgBox "USF 1 activé"
End Sub

Dans l'USF2 :

Private Sub CommandButton1_Click()
CallByName UserForm1, "UserForm1_Activate", VbMethod
With UserForm1.TextBox1
    .Visible = True
    .SetFocus
    .Visible = False
End With
End Sub

Sub UserForm2_Activate()
    MsgBox "USF 2 activé"
End Sub

Ci-joint un classeur exemple

Ca pourrait faire une astuce CCM non?
Bonne journée à toi et merci encore

Ca pourrait faire une astuce CCM non?
Ben, vi...allez au travail ;)

Bonne journée à toi aussi et de rien pour mon aide, finalement peu utile ^^

Ben, vi...allez au travail ;)
J'm'y mets dès que j'aurais fini ce boudiou de classeur!!!...
Si si ton aide fut utile car sans toi, j'me s'rais pas cassé le derche davantage et j'aurais utilisé simplement hide...