Urgent : VBA - Problème de récupération des données dans une liste à sélection mRésolu

Question

Salut !

J'ai un probl&#232;me : j'ai une liste dans laquelle se trouve une liste de tous les salaries. Je voudrais pouvoir s&#233;lectionner plusieurs salaries pour afficher les donn&#233;es qui leur correspondent. Pour cela, j'ai donc fait une liste &#224; s&#233;lection multiple.

Le probl&#232;me c'est que quand je valide, je ne parviens &#224; r&#233;cup&#233;rer qu'un seule enregistrement : le dernier s&#233;lectionn&#233;.

Voila mon code, en esp&#233;rant avoir &#233;t&#233; assez clair.

    'pour chaque ligne de la liste
    With LstSalarie
        For i = 0 To (.ListCount - 1)
            If .Selected(i) = True Then
                Call AfficheParSalarie(LstSalarie.List(LstSalarie.ListIndex, 2))
            End If
        Next
    End With

Merci beaucoup pour l'aide que vous m'apporterez !

cs_phil23 · Accepted Answer

Il ne faut pas utiliser la propri&#233;t&#233; 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&#233;lectionn&#233;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&#238;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&#233;ro: " & LstSalarie.Column(1, i)
            End If
        Next
    End With


End Sub

PtitGrumo · Answer

Salut!

ne serai ce pas ceci
Call AfficheParSalarie(LstSalarie.List( i , 2))

a la place de cela
Call AfficheParSalarie(LstSalarie.List(LstSalarie.ListIndex, 2))

?

Tien moi au courant 

++

PtitGrumo

lepgwen · Answer

Salut !
Merci de ta r&#233;ponse mais non ca marche pas j'ai toujours le nom de la derni&#232;re personne s&#233;lectionn&#233;e  
Merci qd meme

lepgwen · Answer

Super ca marche
Merci beaucoup !!!