Sélection multiple dans une listbox
Bonjour
J'ai écri une macro me permettant de sélectionner plusieurs données dans une listbox. voici le code
Code:
1
2
3
4
5
6
7
| Private Sub LTD_COUNTRY2_Click()
For i = 0 To LTD_COUNTRY2.ListCount - 1
If LTD_COUNTRY2.Selected(i) Then
ThisWorkbook.Sheets("Country").Range("B" & i + 1).Value = LTD_COUNTRY2.List(i)
End If
Next i
End Sub |
LTD_COUNTRY2 est la listbox
mais quand j'exécute le programme je ne trouve pas les éléments sélectionnés dans dans la listbox dans ma feuille "Country"
avez-vous une idée SVP
Merci d'avance.
