Bonjour,

Voilà le but de ce bout de code : rechercher et sélectionner dans la Listbox2 les items sélectionnés dans la ListBox1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
    Dim i As Integer, trouvé As Boolean, x, intPosition
    'boucle sur les éléments de la listbox
    For i = 0 To ListBox2.ListCount - 1
        If ListBox1.Selected(i) = True Then
            x = Application.Match(ListBox1.List(i), ListBox2.List, 0)
            ListBox2.Selected(x - 1) = True 'Sélectionne un item de liste
            'remonter la dernière ligne sélectionnée au top index de la ListBox
            ListBox2.TopIndex = Me.ListBox1.ListIndex
        End If
    Next i
End Sub
Je coince sur un truc certainement tous simple : comment intercepter l'erreur si aucun item existe dans la ListBox2 ??

Merci d'avance pour votre aide.