Bonjour,

Je suis devant un problème depuis quelques minutes et je ne comprends pas d'où peux venir l'erreur. J'ai testé plusieurs choses...rien à faire!

Tout d'abord dans mon userform j'ai deux listbox (ListBox1 & ListBox2).
J'ai bien un multiselect "fmmultiselectmulti" pour chacun.
Je rempli mon premier listbox.
Un bouton entre les deux permets de de prendre la valeur du listbox1 pour l'ajouter dans le listbox2 en le supprimant dans mon listbox1.

Voici mon code

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
If ListBox1.ListIndex = -1 Then Exit Sub
 
   ' For i = 1 To ListBox1.ListCount - 1
 
       ' If ListBox1.Selected(i) = True Then
        MsgBox (ListBox1.Text)
        ListBox2.AddItem ListBox1.Text
        'ListBox2.AddItem ListBox1.List(i)
        ListBox1.RemoveItem ListBox1.ListIndex
 
     '   End If
 
    'Next i
 
End Sub
Le soucis est le suivant: Dans mon msgbox pour testé le code, il s'affiche rien du tout. Par contre on s'aperçoit que dans mon listbox2 un ajout a été fait sans valeur (ce qui valide mon msgbox) puisqu'on peut le sélectionner.

Pourquoi n'affiche t-il pas la valeur de mon listbox1 sélectionné?

Cordialement,