Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() Dim a() As String, i As Integer ReDim a(List1.ListCount) For i = 0 To List1.ListCount a(i) = List1.List(i) Next i If RemoveDuplicatedItemsFromArray(a) Then For i = 0 To UBound(a) List2.AddItem a(i) Next i Else MsgBox "aucun élément!" End If End Sub