Urgent : VBA - Problème de récupération des données dans une liste à sélection m [Résolu]
lepgwen
- Messages postés
- 19
- Date d'inscription
- jeudi 20 février 2003
- Statut
- Membre
- Dernière intervention
- 11 mars 2009
- Messages postés
- 19
- Date d'inscription
- jeudi 20 février 2003
- Statut
- Membre
- Dernière intervention
- 11 mars 2009
A voir également:
- Urgent : vba - problème de récupération des données dans une liste à sélection m
- Récupération de données dans une list box MEGA-URGENT ✓ - Forum - Visual Basic
- Récupération de données des tables listés dans un autre table... ✓ - Forum - SQL
- [déplacé VB6 -> VBA] récupération de données dans un UserForm ✓ - Forum - Visual Basic 6
- [Déplacé VB6 --> VBA] récupération de données dans des Textbox ✓ - Forum - Visual Basic 6
- VBA outlook récupération de données excel. ✓ - Forum - Visual Basic 6
4 réponses
Meilleure réponse
- Messages postés
- 79
- Date d'inscription
- mardi 23 septembre 2003
- Statut
- Membre
- Dernière intervention
- 14 juillet 2005
Il ne faut pas utiliser la propriété ListIndex dans une liste multi select car elle renvoie l'index de la ligne ayant le focus, que celle-ci soit ou non actuellement sélectionnée.
Regarde cet exemple:
Option Explicit
Option Base 0
Private Sub UserForm_Initialize()
Dim tabSalaries() As String
ReDim tabSalaries(2, 1)
tabSalaries(0, 0) = "Philippe"
tabSalaries(0, 1) = "4580"
tabSalaries(1, 0) = "Claude"
tabSalaries(1, 1) = "2610"
tabSalaries(2, 0) = "Benoît"
tabSalaries(2, 1) = "4689"
LstSalarie.ColumnCount = 2
LstSalarie.List() = tabSalaries
End Sub
Private Sub CommandButton1_Click()
Dim i As Long
With LstSalarie
For i = 0 To (.ListCount - 1)
If .Selected(i) = True Then
MsgBox "Nom: " & LstSalarie.Column(0, i) & " Numéro: " & LstSalarie.Column(1, i)
End If
Next
End With
End Sub
Regarde cet exemple:
Option Explicit
Option Base 0
Private Sub UserForm_Initialize()
Dim tabSalaries() As String
ReDim tabSalaries(2, 1)
tabSalaries(0, 0) = "Philippe"
tabSalaries(0, 1) = "4580"
tabSalaries(1, 0) = "Claude"
tabSalaries(1, 1) = "2610"
tabSalaries(2, 0) = "Benoît"
tabSalaries(2, 1) = "4689"
LstSalarie.ColumnCount = 2
LstSalarie.List() = tabSalaries
End Sub
Private Sub CommandButton1_Click()
Dim i As Long
With LstSalarie
For i = 0 To (.ListCount - 1)
If .Selected(i) = True Then
MsgBox "Nom: " & LstSalarie.Column(0, i) & " Numéro: " & LstSalarie.Column(1, i)
End If
Next
End With
End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
136 internautes nous ont dit merci ce mois-ci