alimenter LISTBOX dans un UserForm

[nherambo]

Bonjour à tous,

Dans le fichier ci-joint, je n'arrive pas à faire ce que je veux. Ce que je veux ? 🙄
Lorsque l'utilisateur entre un numéro dans la textbox, renvoyer dans la listbox le numéro et la lettre correspondante. Et si ce numéro existe déjà dans la Feuille2, mettre une " * " en face du nombre correspondant dans la listbox.

Merci d'avance pour votre aide. 😀

Nherambo

 

[nherambo]

Re : alimenter LISTBOX dans un UserForm

Est-ce si compliqué ?

 

[Bebere]

Re : alimenter LISTBOX dans un UserForm

bonjour nherambo
bienvenue
un code pour une textbox

Private Sub TextBox1_Change()

    For Each Cel In Sheet1.Range("A1:A10000")
        If TextBox1.Value = Cel Then
            Me.Listbox1.AddItem "*" & Cel & Cel.Offset(1)
            TextBox1.Value = ""
        End If
    Next

End Sub