XL 2016 Focus d'un textbox

[danielco]

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.

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

 

[job75]

Bonjour danielco,

Bug à l'ouverture car les feuille "BDD" et "Stats" n'existent pas.

A+

 

[danielco]

Bonjour @job75 ,

Désolé, c'est un classeur simplifié, ignore les macros d'ouverture,, elles n'ont rien à voir avec le reste.

Daniel

 

[job75]

Dans la macro TextBox1_Exit remplacez Me.TextBox1.SetFocus par Cancel = True

 

[danielco]

Merci ! Maintenant,que tu le dis... ça semble logique, mais je n'aurais pas trouvé seul. Je me coucherai moins bête ce soir.

Encore merci.

Daniel