Bloqué par la position du focus
Résolu
DEVPLUS
Messages postés
30
Statut
Membre
-
DEVPLUS -
DEVPLUS -
Bonjour,
Je remercie Eric pour sa proposition "Listview" ,cependant là je suis confronté à autre probleme si quelqu'un peut me donner la solution.
- j'ai un userform1 qui contient:
- textbox1, textbox2, textbox3, boutton de commande CB1
- userform2 avec listview1 et CB2 "Quitter"
- userform3 avec listview2 et CB3 "Quitter"
- userform4 avec listview3 et CB4 "Quitter"
l'apparition de l'un des userform2 ou 3 ou 4 est conditionné par la position du curseur
ex:
textbox1.setfocus ---click sur CB1-- userform2.show---click sur CB2--userform2.Hide
textbox2.setfocus --- click sur CB1--userform3.show---click sur CB3--userform3.Hide
textbox3.setfocus --- click sur CB1--userform4.show---click sur CB4--userform4.Hide
Je remercie Eric pour sa proposition "Listview" ,cependant là je suis confronté à autre probleme si quelqu'un peut me donner la solution.
- j'ai un userform1 qui contient:
- textbox1, textbox2, textbox3, boutton de commande CB1
- userform2 avec listview1 et CB2 "Quitter"
- userform3 avec listview2 et CB3 "Quitter"
- userform4 avec listview3 et CB4 "Quitter"
l'apparition de l'un des userform2 ou 3 ou 4 est conditionné par la position du curseur
ex:
textbox1.setfocus ---click sur CB1-- userform2.show---click sur CB2--userform2.Hide
textbox2.setfocus --- click sur CB1--userform3.show---click sur CB3--userform3.Hide
textbox3.setfocus --- click sur CB1--userform4.show---click sur CB4--userform4.Hide
2 réponses
-
Bonjour,
Pouvez mettre le fichier a dispo? -
Bonjour
Une façon de procéder est d'utiliser l’événement Enter des textbox pour "taguer" le bouton de CB1
voici le code à coller dans Userform1
Private Sub TextBox1_Enter()
CB1.Tag = "1"
End Sub
Private Sub TextBox2_Enter()
CB1.Tag = "2"
End Sub
Private Sub TextBox3_Enter()
CB1.Tag = "3"
End Sub
Private Sub CB1_Click()
Select Case CB1.Tag
Case "1"
UserForm2.Show
Case "2"
userform3.Show
Case "3"
userform4.Show
End Select
'eventuellement reinitialiser CB1.tag
CB1.Tag = ""
End Sub
;o)
