bloqué par la position du focus Résolu/Fermé

Question

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
Configuration: Windows / Chrome 61.0.3163.100

f894009 · Answer

Bonjour,

Pouvez mettre le fichier a dispo?

Yoda · Answer

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 SubPrivate Sub TextBox2_Enter()CB1.Tag = "2"End SubPrivate Sub TextBox3_Enter()CB1.Tag = "3"End SubPrivate Sub CB1_Click()Select Case CB1.Tag    Case "1"        UserForm2.Show    Case "2"        userform3.Show    Case "3"        userform4.ShowEnd Select'eventuellement reinitialiser CB1.tagCB1.Tag = ""End Sub

;o)

Bloqué par la position du focus

2 réponses