Dernièrement je viens de rencontrer un problème sur lequel je bute (c'est trés enervant!) J'ai un userform dans lequel deux ListBox apparaissent: ListBox1 et ListBox2
Dans la première (ListBox1) il y a une liste de noms qui, lorsqu'on les séléctionne, vont se copier dans la ListBox2 avec le code suivant:
Private Sub ListBox1_Click() Dim prix As Integer For prix = 0 To ListBox1.ListCount If ListBox1.Selected(prix) = True Then ListBox2.AddItem ListBox1.List(prix) End If Next prix End Sub
Jusque là ça va!
Le problème surgit lorsque je change les propriétés de la ListBox1 ListStyle --> 1 - fmListStyleOption MultiSelect --> 1 - fmMultiSelectMulti
Le code ne fonctionne plus du tout!?
Alors que la présentation correspond trés bien à mes attentes. C'est à dire que l'on coche sur la case de l'article à ajouter dans la ListBox2. Dès lors que la case est décochée, l'article disparait (reste à modifié le code pour ça).
Marsh Posté le 21-09-2009 à 08:16:50
Bonjour,
Dernièrement je viens de rencontrer un problème sur lequel je bute (c'est trés enervant!)
J'ai un userform dans lequel deux ListBox apparaissent: ListBox1 et ListBox2
Dans la première (ListBox1) il y a une liste de noms qui, lorsqu'on les séléctionne, vont se copier dans la ListBox2 avec le code suivant:
Private Sub ListBox1_Click()
Dim prix As Integer
For prix = 0 To ListBox1.ListCount
If ListBox1.Selected(prix) = True Then
ListBox2.AddItem ListBox1.List(prix)
End If
Next prix
End Sub
Jusque là ça va!
Le problème surgit lorsque je change les propriétés de la ListBox1
ListStyle --> 1 - fmListStyleOption
MultiSelect --> 1 - fmMultiSelectMulti
Le code ne fonctionne plus du tout!?
Alors que la présentation correspond trés bien à mes attentes. C'est à dire que l'on coche sur la case de l'article à ajouter dans la ListBox2. Dès lors que la case est décochée, l'article disparait (reste à modifié le code pour ça).
Quelqu'un a une idée sur ce problème?
Merci