Autres (RESOLU)SHOW UserForm selon la valeur d'une ComboBox d'un autre UserForm

[chaelie2015]

Bonjour Forum
Je souhaite affiche un UserForm2 selon la valeur dans ComboBox1 de UserForm1
Exemple :
Dans UserForm1 j'ai un ComboBox1 ( une liste de : Partielle, Totale, Non)
Si je sélectionne dans ComboBox1 = "Partielle" alors masquer temporairement UserForm1 et afficher UserForm2 une fois j'ai validé ou annulé dans UserForm2 revenir au Userform1 dans ComboBox1.
Merci par avance.

 

[job75]

Bonjour chaelie2015,

Le code de Module1 :

Sub USF()
UserForm1.Show
End Sub

Le code de UserForm1 :

Private Sub ComboBox1_Change()
If ComboBox1 = "Partielle" Then Me.Hide: UserForm2.Show
End Sub

Private Sub UserForm_Activate()
ComboBox1.List = Array("Partielle", "Totale", "Non")
ComboBox1 = ""
ComboBox1.DropDown
End Sub

Le code de UserForm2 :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.OnTime 1, "USF"
End Sub

A+

 

[chaelie2015]

Bonjour JOB
c'est nickel, merci pour la réponse.
A+