Bonjour,

J'ai parcouru le forum, et le site de Microsoft, trouvé des réponses mais je n'arrive pas à les faire fonctionner soit elles ne fonctionnent pas avec Access 2013.

J'ai un ListBox nommée IDCom qui contient 3 colonnes (ID, Nom, Mail).

A l'aide d'un bouton sur un formulaire, j'aimerais récupérer les lignes sélectionnées afin d'obtenir la valeur de la colonne Mail.

Voici mon 1er code :

Dim I as integer
Dim X as variant

Debug.Print IDCom.ListCount 'simple test qui fonctionne et permet de vérifier le nb total de ligne de la listbox

For I = 0 To IDCom.ListCount - 1

Debug.Print IDCom.Column(3, I) ' Me permet de tester si j'obtiens bien la valeur contenue dans le champ Mail pour chacune des lignes de la liste, cela fonctionne

If IDCom.Selected(I) = True Then ' ici je n'arrive pas savoir si la ligne est sélectionnée car la réponse est toujours False. Mon problème est situé là !!

X = X & IDCom.Column(3, I) & ";"

End If

Next I


Lorsque j'essaie une autre méthode :

For Each X In IDCom.ItemsSelected
Debug.Print IDCom.Column(3, X) 'le code ne rentre jamais dans la boucle For Each. Mon problème pourrait se résoudre si j'arrivais à trouver le code pour savoir quelles sont les lignes sélectionnées.
Next X

Je vous remercie par avance pour tout l'aide que vous pourrez m'apporter...