Garder un UsF actif après un TextBox_Enter

Bonjour le forum,

j'ai réussi à créer un UsF avec TextBox où quand celle-ci un texte est mis, je le valide avec "entrée" (chaque texte mis vient alimenter une liste).

Cependant j'aimerai, à chaque fois que je valide une entrée de texte, que l'UsF reste actif et que je puisse le quitter avec un bouton.

J'ai essayé l'événement exit ainsi que SetFocus mais rien n'y fait !

Voici le code :

Private Sub UserForm_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub CommandButton1_Enter()

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

Unload Me

End Sub

Je reste à disposition pour joindre le fichier, s'il le faut, en supprimant les données personnelles au préalable

Bonjour,

pour que la userform reste active, il suffit de ne pas la "décharger"...

Supprimer la ligne:

Unload Me

A+

Bonjour,

merci pour ta réponse

Cela fonctionne mais cependant le texte ne disparaît pas dans la TextBox une fois que je le valide avec "Entrée".

Comment puis-je procéder pour que cela ne soit pas le cas ?

ben ... non! ça ne peut pas le faire tout seul, il faut rajouter le code pour effacer la textbox....

rajouter:

TextBox1=""

Bonjour,

Avec un fichier joint c'est toujours mieux pour te répondre...

A+

"Tout simplement", enfin c'est loin d'être le cas pour moi

Dernière question : comment laisser le curseur dans la TextBox après avoir valider la saisie avec "Entrée" ?

J'ai consulté un peu les forums mais je n'ai rien trouver d'adaptable à ma demande

Encore merci pour ton aide AlgoPlus

Dans mon exemple le curseur reste en place après validation.

A+

Bonjour Galopin01,

Je n'avais pas vu ton fichier de suite, hier !

Il est vrai que ton curseur reste, cependant il y a un autre problème que je n'ai pas avec mon code :

si je supprime une valeur dans la liste découlant de l'UsF, lorsque j'en saisi une nouvelle celle-ci ne vient pas remplacer celle ayant été supprimée.

Je suis désolé d'être aussi exigeant et donc pénible avec ce que je veux réellement obtenir !

Re, voici ce qui me manquait :

Me.TextBox1.Text = "" 
Me.TextBox1.SetFocus

Merci pour votre aide, bonne fin de journée

Joindre un fichier m'aurait peut-être permis de te répondre d'une manière plus appropriée !

Bon Dimanche !