Sélection d'une entrée dans ComboBox et affichage données saisies

Bonjour à tous,

Dans un premier temps, merci à un ADMIN de bien vouloir supprimer ce post : https://forum.excel-pratique.com/excel/aimenter-un-listbox-toujours-vide-158268 (Erreur de code, de sujet... bref tout faux). Je suis bien sincèrement désolé de cette mitouille !

J'ai créé un UserForm qui me permet d'alimenter une table de "Destinataires" et qui fonctionne relativement bien.

Par contre j'ai ajouté une ComboBox1 qui me remonte bien les "Destinataires" présents dans ma BDD mais je n'arrive pas à faire afficher les informations associés : NOM, Prénom, Mail et Groupe... C'est bête je sais mais je n'y arrive pas.

Je mets un fichier exemple en pièce jointe.

D'avance merci pour votre aide.

Joe

Bonjour,

Comme tu as renommé tes Textbox, tu ne peux pas utiliser de boucle numérique (ils ne s'appellent plus TextBox1, TextBox2...)

Essaie avec ce code :

Private Sub ComboBox1_Change()
Dim cel As Range, r As Long
If ComboBox1 <> "" Then
    With Sheets("Gestion Mails").Range("A26:Z65000")
        Set cel = .Find(ComboBox1, , xlValues, xlWhole)
        If Not cel Is Nothing Then
            Me.TextBox_UtilNom = cel
            Me.TextBox_UtilPrenom = cel.Offset(, 1)
            Me.TextBox_UtilMail = cel.Offset(, 2)
            Me.TextBox_UtilGroupe = cel.Offset(, 3)
        Else
            Me.TextBox_UtilNom = ""
            Me.TextBox_UtilPrenom = ""
            Me.TextBox_UtilMail = ""
            Me.TextBox_UtilGroupe = ""
        End If
    End With
End If
End Sub

Bonjour Cousinhb29,

Merci infiniment, ça marche nickel !

Effectivement, je comprends maintenant que je n'aurai pas du changer le nom de mes TextBox...

Merci et bonne journée.

Joe