Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Garder curseur dans UsF après validation

Yoyo01000

XLDnaute Occasionnel
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 :

VB:
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

XLDnaute Accro
Bonjour,

Essaie :

VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…