Salut,
J'aurai aimé être la tête pensante qui a créée ce code, mais non, c'est simplement un copier coller de l'aide VBA, et en plus, ça marche :
MultiSelect, Selected, propriétés, exemple
L'exemple suivant utilise les propriétés MultiSelect et Selected pour illustrer comment l'utilisateur peut sélectionner un ou plusieurs éléments dans un contrôle ListBox. L'utilisateur spécifie avec un bouton d'option une méthode de sélection, et sélectionne un ou plusieurs éléments du contrôle ListBox. L'utilisateur peut afficher les éléments sélectionnés dans un deuxième contrôle ListBox en cliquant sur le contrôle CommandButton.
Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient :
deux contrôles ListBox nommés ListBox1 et ListBox2,
un contrôle CommandButton nommé CommandButton1,
trois contrôles OptionButton nommés OptionButton1 à OptionButton3.
Dim i As Integer
Private Sub CommandButton1_Click()
ListBox2.Clear
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End Sub
Private Sub OptionButton1_Click()
ListBox1.MultiSelect = fmMultiSelectSingle
End Sub
Private Sub OptionButton2_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub OptionButton3_Click()
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub
Private Sub UserForm_Initialize()
For i = 0 To 9
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next i
OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True
OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"
CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True
End Sub
Normalement, cela doit répondre à ta question.
Bon week end
