Discussion :

[ybaynaud]

Bonjour, difficile de trouver un titre clair...

Dans un formulaire, lorsque j'effectue une saisie (à l'aide d'un lecteur code barre) sur un champs liste de choix j'ai crée une boite message lorsque le contenu n'existe pas dans la liste ( Macro absence sur liste).

Je souhaiterais que le curseur sélectionne l'ensemble du champs à la sortie de la boite de message pour qu'une saisie puisse directement se faire sans être contraint de supprimer le code_barre erroné avant d'en saisir un autre.

En espérant être a peu près clair

Merci

[Jeannot45]

Bonjour,

Ta macro fait donc un retour sur le champ de la liste déroulante. Tu peux donc créer une procédure sur l'évènement "Entrée" dans la liste déroulante.

Exemple :

Code :

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

1
2
3
4
5
6
Private Sub ListeDeroulante_Enter()
    ' Positionne le focus en début de champ
    SelStart = 0
    ' Sélectionne tout le contenu du champ en fonction du nombre de caractères contenu
    SelLength = Len(ListeDeroulante)
End Sub

[ybaynaud]

ca marche pas...

ma liste déroulante se nomme Code_barre, j'ai donc saisi comme [Procédure évenementielle] dans "Sur Entrée" de la propriété de ma liste déroulante

Code :

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

1
2
3
4
5
6
7
 Private Sub Code_barre_Enter()
 
 ' Positionne le focus en début de champ
    SelStart = 0
    ' Sélectionne tout le contenu du champ en fonction du nombre de caractères contenu
    SelLength = Len(Code_barre)
End Sub

- Pour le moment j'ai supprimer la macro qui faisait apparaître la boite message.
- Si absence d'un contenu existant sur la liste de choix, le curseur se place toujours à la fin du contenu erroné mais ne le sélectionne pas.

???????????

[ybaynaud]

En fait j'ai utilisé:

Code :

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

1
2
3
4
 Private Sub Code_barre_NotInList(NewData As String, Response As Integer)
Code_barre.SelStart = 0
Code_barre.SelLength = Len(Code_barre.Text)
End Sub

que j'ai trouvé en faisant une recherche dans le forum avec SetLength


MERCI MERCI