Salut,
Voici une fonction qui te renvoie un tableau en base 0 des N° sélectionné le tableau T doit être déclaré en haut du module
Private Function ListeMulti(Ctrl As MSForms.ListBox) As Boolean
Dim J As Long
ReDim T(J)
With Ctrl
For I = LBound(.List) To UBound(.List)
If .Selected(I) Then
ReDim Preserve T(J)
' T(J) = .List(I) ' valeur sélectionnée
T(J) = .Listindex 'Le n° d'index
J = J + 1
ListeMulti = True
End If
Next I
End With
End Function
'Exmeple d'utilisation
If listemulti(Lenomdelalistbox) then
for i=0 to ubound(t)
msgbox t(i)
next i
end if
A+++