XL 2016 Focus d'un textbox

danielco

XLDnaute Accro
Bonjour,

Le but est de remplir le tableau de la colonnes E. Il faut afficher le userform, puis cliquer dans la liste du listbox (ListBox1) ou entrer le début d'un nom tels qu'ils sont orthographiés en colonne A. Quand la listbox n'affiche plus qu'un nom, on appuie sur Entrée pour valider le choix. Le nom est alors reporté dans le tableau.
Ce qui ne fonctionne pas :
Le focus ne reste pas sur le textbox afin de saisir le nom suivant.
VB:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim I As Integer, Tablo As ListObject
    With Sheets("Itinéraire").ListObjects("iti")
      .ListRows.Add
      .ListRows(.ListRows.Count).Range(2) = Me.ListBox1.List(0, 1)
    End With
    Me.TextBox1.Value = ""
    Me.TextBox1.SetFocus
End Sub
Pouvez-vous m'aider ?

Merci d'avance.

Daniel
 

Pièces jointes

  • Marche test.xlsm
    72.9 KB · Affichages: 7

Discussions similaires