Discussion :

[Invité]

bonjour je veux afficher le contenu d'une listbox dans un messagebox
selon ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Integer
        For i = 0 To ListBox2.SelectedItems.Count - 1
 
            MsgBox(Me.ListBox2.SelectedItems(i))
next

je ne sais pas pourquoi ç marche pas

[Invité]

Essaye ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Integer
        For i = 0 To ListBox2.SelectedItems.Count - 1
 
            MsgBox(Me.ListBox2.SelectedItems(i).Value)
next

[Invité]

non ça marche pas

Le membre public 'Value' du type 'DataRowView' est introuvable.

[-N4w4k-]

Peut être comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i As Integer
For i = 0 To ListBox2.SelectedItems.Count - 1
    MsgBox(Me.ListBox2.SelectedItems(i)("NomDeLaColonne")) 'remplace "NomDeLaColonne" par le nom de la colonne que tu veut afficher
next

L'item est un enregistrement de ta base de donnée et tu dois spécifier quelle colonne tu veux afficher de ton enregistrement.

[Invité]

merci ça marche bien

[rv26t]

Bonjour,

bonjour je veux afficher le contenu d'une listbox dans un messagebox
selon ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Integer
        For i = 0 To ListBox2.SelectedItems.Count - 1
 
            MsgBox(Me.ListBox2.SelectedItems(i))
next

je ne sais pas pourquoi ç marche pas

Ici tu n'afficheras que l'élément sélectionné (s'il y en a un de sélectionné, sinon rien).

Si tu veux afficher toute ta liste (élément séletionné ou pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For i = 0 To ListBox1.Items.Count - 1
            MsgBox(Me.ListBox1.Items(i))
        Next

A+, Hervé.