Discussion :

[naahou2000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 ?

[naahou2000]

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

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[clementmarcotte]

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.)

[joe.levrai]

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
- en préventif : ne jamais oublier les info-bulles

[naahou2000]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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