Menu
Posez votre question Signaler

Bloqué par la position du focus [Résolu/Fermé]

Messages postés
28
Date d'inscription
dimanche 30 octobre 2016
Dernière intervention
17 novembre 2018
 - - Dernière réponse :  DEVPLUS - 6 nov. 2017 à 14:43
VB / VBA Posez votre question Signaler
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
Afficher la suite 

2 réponses

Signaler Commenter la réponse de f894009
Messages postés
14071
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
21 février 2019
 1302
0
Merci
Bonjour,

Pouvez mettre le fichier a dispo?
Signaler Commenter la réponse de Yoda
0
Merci
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)
Signaler
-
Merci 1000 fois, Tu m'a aider à surmonter un probleme
Posez votre question