Hashtable : 1 liste en valeur
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.
Code:
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 |
J'appelle la Key comme suit :
Code:
1
2
3
|
Dim nom As String = Me.CB_Contact.SelectedItem
LB_Equip.Items.Add(ListContact(nom)(1)) |
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.
Merci pour votre aide,
Ph.
