utilisation des selection multiple

[goto]

bonjours a tous

j'ai un petit souci dans l'utilisation des listbox a selection multiple pour trouver les n° de ligne de chaque selection.

Avec des listbox a selection unique pas de probleme avec listindex.

merci

 

[Zon]

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+++