Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chaelie2015

XLDnaute Accro
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.
 
Solution
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+
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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…