Private Sub secteur_2_Mouseup(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim entry() As String
Dim exists As Boolean
Dim i As Integer, j As Integer
entry = Split(activite_resume, ", ")
If secteur_2.ListIndex <> -1 Then
For i = 0 To secteur_2.ListCount - 1
exists = False
For j = 0 To UBound(entry)
If entry(j) = secteur_2.List(i) Then
exists = True
Exit For
End If
Next j
If secteur_2.Selected(i) Then
If Not exists Then
ReDim Preserve entry(UBound(entry) + 1)
entry(UBound(entry)) = secteur_2.List(i)
End If
Else
If exists Then entry(j) = ""
End If
Next i
activite_resume.Text = ""
For i = 0 To UBound(entry)
If entry(i) <> "" Then
If activite_resume.Text = "" Then
activite_resume.Text = entry(i)
Else
activite_resume.Text = activite_resume.Text & ", " & entry(i)
End If
End If
Next i
End If
End Sub