interdire de sortir d'un "SETFOCUS"

Bonjour à Tous

J'ai "une zone de liste modifiable" intitulée "Nom_Client" , j'ai positionné le SETFOCUS au départ sur cette zone.
Je veux interdire à l'utilisateur de changer la position du curseur avant de sélectionner un nom de la liste.
j'ai utilisé le code suivant qui n'a pas marché :

Code:

---

1 2 3 4 5

If Nom_Client.Text = "" Then MsgBox ("Tu dois selectionner le nom du client d'abord") Else C_Tel.SetFocus End If

---

merci de votre aide

Bonjour

Il se trouve que la solution, lorsqu'elle est possible, dépend de plusieurs aspects dont tu ne dis pas un mot.
- où se trouve ce contrôle ? Sur un UserForm ou sur une Feuille de calcul ?
- si sur une feuille de calcul ? est-ce un contrôle formulaire ou un contrôle activex ?

Je m'excuse, c'est dans un userform excel

Bien.
Il te suffit alors d'utiliser l'évènement exit de cette combobox, ainsi :

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If combobox1.listindex = -1 then cancel = true else ...... end If End Sub

---

Observe par ailleurs que je n'ai pas utilisé la propriété text de la combo. Le fait que cette propriété ne soit pas = "" ne signifie absolument pas qu'un article a été sélectionné. Cette propriété concerne la zone d'édition, dans laquelle l'utilisateur peut avoir écrit n'importe quoi ...

Bonjour,

Ce genre de manoeuvre est possible, mais cela doit être utilisé avec précaution. Pour peu qu'il y ait une erreur à quelque part et que l'utilisateur voit rouge parce qu'il est prisonnier d'un boucle sans fin, il risque de recourir à des solutions expéditives, genre débrancher l'ordinateur. (Surtout que le Ctr-Alt-Delete de Windows 10 est aussi lent qu'un escargot infirme.)

Bonjour,

aux utilisateurs nerveux, j'emploie les grands moyens, au choix :

- des labels pour valider ou invalider les champs
- une petite croix rouge qui passe en coche verte si le champs est correct
- pour les plus brutaux : des MsgBox histoire de les calmer :mrgreen:
- en préventif : ne jamais oublier les info-bulles :P

Bonjour joe.levrai
J'ai souvent été tenté d'installer sur le port série un microprocesseur commandant un bras articulé métallique lui-même doté d'un censeur photoélectrique pour en auto-régler la hauteur. Je te laisse deviner à quoi j'aurais dédié ce bras que j'aurais mu en fonction des bévues. :D

Ca me rappelle une certaine machine dans le film "les sous-doués" :aie:

désolé, j'arrête le hors sujet

Citation:

---

Envoyé par unparia

Bien.
Il te suffit alors d'utiliser l'évènement exit de cette combobox, ainsi :

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If combobox1.listindex = -1 then cancel = true else ...... end If End Sub

---

Observe par ailleurs que je n'ai pas utilisé la propriété text de la combo. Le fait que cette propriété ne soit pas = "" ne signifie absolument pas qu'un article a été sélectionné. Cette propriété concerne la zone d'édition, dans laquelle l'utilisateur peut avoir écrit n'importe quoi ...

---

Merci unparia, c'est ce que je cherche, fonctionne parfaitement