Liste modifiable à sélection multiple

alimenter les valeurs

listechampssource.RowSource = Nom de la source

' vérifie si l'utilisateur a sélectionné au moins un champs

If listechampssource.ItemsSelected.Count = 0 Then

MsgBox "vous devez sélectionner au moins un champ sur lequel vous voulez dédoublonner votre source !"

'récupérer les valeurs sélectionnées ou non d'une liste modifiable dans un tableau

Dim tableau(1 To 30, 1 To 2)

For cnt = 0 To nbchamps

If listechampssource.Selected(cnt) = True Then

tableau(cnt + 1, 1) = listechampssource.ItemData(cnt)

tableau(cnt + 1, 2) = "sélect"

Else

tableau(cnt + 1, 1) = listechampssource.ItemData(cnt)

tableau(cnt + 1, 2) = ""

End If

Next