Bloqué par la position du focus

Résolu
DEVPLUS Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -  
 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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Pouvez mettre le fichier a dispo?
0
Réponse 2 / 2
Yoda
 
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
DEVPLUS
 
Merci 1000 fois, Tu m'a aider à surmonter un probleme
0