Discussion :

[modus57]

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.

[joe.levrai]

Bonjour,

tu peux tester le type de ta variable x après avoir fait la recherche via match.

Il me semble qu'il va te renvoyer un type error

[modus57]

Bonjour joe.levrai, le forum,

Merci pour votre réponse.

J'ai testé le type de variable x après avoir effectué la recherche via match et ça fonctionne très bien.

Dans l'UserForm contenant 2 ListBox et un bouton de commande "Sélectionner", voici mon code corrigé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
    Dim i As Integer, x
    '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)
            If VarType(x) = vbError Then
                Me.ListBox1.Selected(i) = False
            Else
                ListBox2.Selected(x - 1) = True 'Sélectionne un item de liste
            End If
            'remonter la ligne dernière ligne sélectionnée au top index de la ListBox
            ListBox2.TopIndex = Me.ListBox1.ListIndex
        End If
    Next i
End Sub

Merci pour votre aide question résolue.