Discussion :

[Enkore]

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...

[Enkore]

Bonjour,

J'apporte un complément d'information.

Je viens de tester avec Access 2007 : j'obtiens les mêmes résultats...

Bonne journée,

[Enkore]

Désolé pour le dérangement car je viens d'ouvrir mes yeux pour constater que mon contrôle était une Combobox et non une Listbox.

En effectuant le changement, tout fonctionne parfaitement.

Je clos la demande