Supprimer les éléménts sélectionnés d'une ListBox
Bonsoir,
je viens encore solliciter votre aide.
J'ai fait un code qui permet de créer une listbox1 dans un userform avec différents items.
Et lorsque je click sur l'item de la listbox1, s'affiche une autre listbox2
Je veux ajouter au code une instrcution qui vide la listebox2 après il affiche l'item de la listebox2
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Public Sub userform_initialize()
ListBox1.AddItem ("donnee1")
ListBox1.AddItem ("donne2")
End Sub
Sub ListBox1_Click()
If ListBox1 = "donnee1" Then
'Je veux vider la lsitebox2
ListBox2.AddItem ("Janvier")
ListBox2.AddItem ("Février")
ListBox2.AddItem ("Mars")
ListBox2.AddItem ("Avril")
End If
If ListBox1 = "IPE" Then
'Je veux vider la lsitebox2
ListBox2.AddItem ("dossier1")
ListBox2.AddItem ("dossier2")
ListBox2.AddItem ("dossier3")
End If
End Sub |
