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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 🙂
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
304
Réponses
6
Affichages
611
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…