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 : 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
J'appelle la Key comme suit :
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))
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.