Garder le curseur dans un TextBox

Khenissi_F Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'ai un problemme au niveau de curseur, je vaudrais garder la curseur dans la meme TextBox à chaque fois je enrigistre un code à barre à l'aide d'un dauchette.
Comment remis de nouveaux le curseur dans le méme textBox
Voila mon code:

Private Sub TextBox1_Change()

Dim i As Integer
Sheets("Feuil1").Activate

If Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).Select Then
ActiveCell.EntireRow.Select

If Len(TextBox1.Text) = 13 Then

Cells(ActiveCell.Row, 1) = TextBox1.Value

TextBox1.Value = ""

TextBox1.SetFocus

Else

End If
End If

Merci d'avance

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    Votre code marche, le curseur reste dans la textbox!!!!
    1
    1. Khenissi_F Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
       
      Merci F894009 pour votre retour,
      Le code ça marche, mais avec le douchette qui permettre de scanner le code à bare ça marche pas, le curseur passe automatiquement vers le textBox suivant.
      comment je dois faire pour eviter ce problemme?
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      Vous avez du code pour la reception du code a barre?
      0
    3. Khenissi
       
      Re,
      non, j'ai fais juste ce code la!
      0
    4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      Par quel miracle le code a barre entre dans le textbox???
      0
    5. Khenissi_F Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour,
      Il entre sous format des chiffres, ma mission ç'est de compter la quantité des produits scannées
      0