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

chaelie2015 · 15 Février 2022

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 · 15 Février 2022

Bonjour chaelie2015,

Le code de Module1 :

VB:

Sub USF()
UserForm1.Show
End Sub

Le code de UserForm1 :

VB:

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 :

VB:

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

A+

job75 · 15 Février 2022

Bonjour chaelie2015,

Le code de Module1 :

VB:

Sub USF()
UserForm1.Show
End Sub

Le code de UserForm1 :

VB:

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 :

VB:

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

A+

chaelie2015 · 15 Février 2022

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

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

chaelie2015

XLDnaute Accro

job75

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires