Activation ListBox

Bonjour,

Je suis entrain de créer un formulaire principal avec une listbox et 4 textbox,
et un autre me servant pour rentrer les données.

Pour l' instant je n'ai réussi qu'à faire ceci:

Formulaire 1

Private Sub UserForm_Initialize()
Worksheets("Annuaire").Visible = False
Worksheets("Annuaire").Activate
Nom.Value = Range("A2").Value
Prénom.Value = Range("B2").Value
Téléphone.Value = Range("F2").Value
Natel.Value = Range("G2").Value
End Sub

Le résultat n'est pas vraiment concluant; ce que j'aimerai,
c'est d'afficher les noms et prénoms (colonnes) dans la listbox et ensuite
sur double-clic, afficher les champs correspondants dans les textbox.

Une solution?


Sage est celui qui veut apprendre.