XL 2016 Garder curseur dans UsF après validation

[Yoyo01000]

Bonjour le forum,
je bute sur un problème : dès que je valide une saisie ("Entrée") dans ma TextBox, je n'arrive pas à garder le curseur pour une nouvelle saisie...

J'ai essayé de bricoler mon code en me basant sur d'autres codes tirés d'autres sujets du même style mais rien n'y fait...

Voici ledit code :

Private Sub CommandButton1_Click()
Dim feuilleTravail As Worksheet
Set feuilleTravail = ActiveWorkbook.Sheets("listes")
Dim numLigne As Integer
numLigne = 2

While feuilleTravail.Cells(numLigne, 1).Value <> ""
numLigne = numLigne + 1
Wend

feuilleTravail.Cells(numLigne, 1).Value = TextBox1.Text

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Par avance merci de trouver réponse à ma requête

 

[danielco]

Bonjour,

Essaie :

Private Sub CommandButton1_Click()
Dim feuilleTravail As Worksheet
Set feuilleTravail = ActiveWorkbook.Sheets("listes")
Dim numLigne As Integer
numLigne = 2

While feuilleTravail.Cells(numLigne, 1).Value <> ""
numLigne = numLigne + 1
Wend

feuilleTravail.Cells(numLigne, 1).Value = TextBox1.Text
Me.TextBox1.Text = ""
Me.TextBox1.SetFocus
End Sub

Cordialement.

Daniel

 

[Yoyo01000]

J'avais essayé le SetFocus, en visionnant des sujets de forums mais sans le Me.

Et ça change tout ! Merci !

Bonne fin de journée danielco