Récupérer la sélection d'une ListBox [Résolu]

[Dormeur74]

Bonjour,

J'ai un formulaire intitulé Listing sous Access et Form_Listing sous VBE.
Ce formulaire contient une ListBox toute simple dont le nom est Liste0.

J'arrive à connaître le numéro de l'item sélectionné dans ma procédure de cette façon :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Traitement()
  Dim I, NbrItems As Integer
 
  NbrItems = Form_Listing.Liste0.ListCount
 
  For I = 0 To NbrItems - 1
    If Form_Listing.Liste0.Selected(I) = True Then ' Valeur correcte
      Debug.Print Form_Listing.Liste0.List(I)
      Exit For
    End If
  Next I
End Sub

La ligne est bien trouvée, mais j'obtiens l'erreur suivante :

Erreur de compilation. Membre de méthode ou de données introuvable

Merci d'avance.

Mais n'arrive pas à récupérer le texte de l'item.

[helas]

Bonjour,
sinon

Code :

1
2
3
4
5
6
7
 
Sub Traitement()
  Dim v As Variant
  For Each v In Form_Listing.Liste0.ItemsSelected
   Debug.Print Form_Listing.Liste0.ItemData(v)
  Next v
End Sub

ou

Code :

1
2
3
4
5
6
7
 
Sub Traitement()
  Dim v As Variant
  For Each v In Form_Listing.Liste0.ItemsSelected
   Debug.Print Form_Listing.Liste0.Columns(v,0)
  Next v
End Sub

Pour la premiere colonne de la liste déroulante
(v,1) pour la deuxieme, etc

[Dormeur74]

Bonjour,
Merci d'avoir répondu.
Je 1er code me retourne le numéro de la ligne sélectionnée, le second provoque toujours la même erreur (Erreur de compilation...).
Je ne pige pas.

[Dormeur74]

J'ai trouvé une solution qui fonctionne sans utiliser l'index de l'item choisi :

Code :

1
2
3
4
5
 
Sub Traitement()
  Dim Selection As String
  Selection = Form_Listing!Liste0.Value
End Sub

Merci pour tout.