Problème ListBox VBA

Version imprimable

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:

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,

J'ai trouvé mon erreur. Le code proposé précédemment fonctionne mais que pour un mode "Single" (selection un choix par un choix). Pour avoir une sélection en "Multi" et avoir un code qui fonctionne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 im i As Integer If ListBox1.ListIndex = -1 Then Exit Sub For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) ListBox1.RemoveItem i End If Next i
Cdt,

heu

bonjour

Une solution comme ca vite fait testée avec 2 listbox(listbox1,listbox2)
Ne gere pas le multiselect !!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
 
Private Sub ListBox1_Click()
 Dim tablo()
 ligne = ListBox1.ListIndex
ListBox2.AddItem ListBox1
For i = 0 To ListBox1.ListCount - 1
If i = ligne Then
Else
ReDim Preserve tablo(i)
 tablo(i) = ListBox1.List(i)
End If
Next
ListBox1.Clear
For Each elem In tablo
If elem <> "" Then ListBox1.AddItem elem
Next
End Sub

Je regarde pour le multiselect

au plaisir

rebonjour

Et voila une version qui gère le multiselectedextented
Ce que tu souhaite selon moi
Pour le gérer on va utiliser l'évènement mouseup de la listbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim elements()
 
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            ListBox2.AddItem ListBox1.List(i)
        Else
 
            ReDim Preserve elements(j)
            elements(j) = ListBox1.List(i)
        j = j + 1
        End If
    Next i
    ListBox1.Clear
    ListBox1.List = elements
End Sub

au plaisir

19/03/2013, 16h24
jackborogar

Je viens seulement de voir ton EDIT !! J'ai pas tout compris, je vais donc rechercher et tater sur mon code.

Merci pour ton aide précieux,

Cdt,
20/03/2013, 18h51
patricktoulon

re

bonsoir
le dernier petit bout de code utilise le relâchement de la souris.
La sélection et continu grâce au mode de la listebox(extented).
Dès que tu lâche la souris une boucle se met en route sur la variable "I".
Si la ligne de la listbox est sélectionné on l'ajoute dans la listbox2, si il ne l'ai pas on ajoute le mot dans la variable tableau
Des que la boucle est passée a la dernière ligne de la listbox1 celle ci est vidée et remplie avec le tableau qui comporte tout les éléments sauf ce qui ont été sélectionnées

Pour ne pas oublier ,dans le activate de l'userform tu peut mettre

Code:

listbox1.multiselect=2 'ce qui corespond a "fmMultiSelectExtented"

tout simplement car j'ai essayé ta facon est j'ai une erreur de gestion control
au plaisir