Mise en évidence transfert multi sélection d'une ListBox à une autre

Bonjour à tous.

Voilà j'ai un Userform avec 2 ListBox pour transfèrer une multi sélection de la première ListBox et dans la deuxième ListBox.

Voici le code :

Private Sub déplace_vers_droite_Click()
Dim i As Byte
Me.Source.ListIndex = -1
For i = 0 To Source.ListCount - 1
 If Source.Selected(i) = True Then
  s = Source.List(i)
  Confirme = MsgBox("Confirmer le déplacement vers côté droit :" & vbLf & TextBox1 & Source.List(i), vbYesNo +  vbExclamation, "DÉPLACER LA SÉLECTION OU MULTI SÉLECTION VERS LA DROITE")
  If Confirme = vbYes Then
   Name TextBox1 & Source.List(i) As TextBox2 & Source.List(i)
  Else
    MsgBox "Abondon de la procédure"
  End If
 End If
Next i
For i2 = 1 To Dest.ListCount - 1
  If s Like Dest.List(i2) Then
    Dest.Selected(i2) = True
    Dest.TopIndex = i2
  End If
Next i2
End Sub

Ça fonctionne bien.

Je souhaiterai mettre en surbrillance la multi sélection transférer dans la deuxième ListBox.

Avez-vous une réponse à cette question, merci d'avance.

Bonjour Modus@57

J'ai modifié votre titre qui n'avait rien à voir avec votre demande

Merci d'y faire attention SVP

Bonjour BrunoM45,

Merci pour votre intervention.

Bonjour,

J'ai trouvé une solution, merci pour vos sujétions éventuelles.

Bonjour le fil, bonjour le forum,

Plus simple :

Private Sub Transfert_Click()
Dim i As Integer

With List1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            List2.AddItem .List(i)
            List2.Selected(List2.ListCount - 1) = True
        End If
    Next i
    For i = .ListCount - 1 To 0 Step -1
        If .Selected(i) = True Then
            .RemoveItem (i)
        End If
    Next i
End With
End Sub

Bonjour ThauThème ,

Merci pour votre réponse, effectivement c'est nettement plus court.