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

A voir également:

Bloqué par la position du focus
Uptobox bloqué - Guide
Code puk bloqué - Guide
Comment savoir si on est bloqué sur messenger - Guide
Pavé tactile bloqué - Guide
Compte gmail bloqué - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 oct. 2017 à 11:12

Bonjour,

Pouvez mettre le fichier a dispo?

Réponse 2 / 2

Yoda
28 oct. 2017 à 20:15

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)

DEVPLUS
6 nov. 2017 à 14:43

Merci 1000 fois, Tu m'a aider à surmonter un probleme

Newsletters