Bonjour,
Je tente de récupérer une liste de contacts placés dans un fichier excel et de les placer dans un Hashtable.
La Key étant le nom du contact et les coordonnées (tél, mail, ...) sous forme de liste en value.
J'appelle la Key comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Dim ListContact As New Hashtable Dim CoordContact As New List(Of String) Dim Nom As String = "Non Vide" Dim Nfixe As String OFichierExcel(Chemin_Rep, True) While Nom <> "" Nom = LectureCellule("A", ligne, "Feuil1") Nfixe = LectureCellule("E", ligne, "Feuil1") Mail = LectureCellule("D", ligne, "Feuil1") CoordContact.Add(Nfixe) CoordContact.Add(Mail) ListContact.Add(Nom, CoordContact) CB_Contact.Items.Add(Nom) CoordContact.Clear() ligne += 1 End While
Et bien le While fonctionne sans problème, mais dès que j'essaye d'utiliser les données, elles sont erronées, les données de la liste ne correspondent pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim nom As String = Me.CB_Contact.SelectedItem LB_Equip.Items.Add(ListContact(nom)(1))
Merci pour votre aide,
Ph.
Partager