Bloqué par la position du focus

Résolu/Fermé
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018 - 26 oct. 2017 à 20:54
 DEVPLUS - 6 nov. 2017 à 14:43
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

2 réponses

f894009 Messages postés 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 1 655
28 oct. 2017 à 11:12
Bonjour,

Pouvez mettre le fichier a dispo?
0
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)
0
Merci 1000 fois, Tu m'a aider à surmonter un probleme
0