Discussion :

[deb2507]

Bonjour,

J'ai deux listbox dans UserForm1. Je souhaite quand l'user selectionne "Procédure_Clôture" dans ListBox1, " Procédure Sub Clôture " apparaissent dans ListBox2. J'utlise le code ci-dessous. Il ne génère aucune erreur, mais il ne fait rien quand je clique sur "Procédure_Clôture" dans ListBox1. Avez-vous une idée pourquoi? Merci d'avance.

----------------------------------------------------------------

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
17
18
19
20
21
22
23
24
25
Sub Test()
 
Dim i As Integer
 
With UserForm1.ListBox1
        .RowSource = ""
        .AddItem ("Procédure_Clôture")
        .AddItem ("Intérimaires")
        .AddItem ("Expats")
        .AddItem ("Tenders")
        .AddItem ("R&D")
End With
 
For i = 0 To UserForm1.ListBox1.ListCount - 1
 
If UserForm1.ListBox1.Selected(i) And UserForm1.ListBox1.List(i) = "Procédure_Clôture" Then
 
With UserForm1.ListBox2
       ' .RowSource = ""
        .AddItem ("Procédure Sub Clôture")
End With
End If
 
Next i
End Sub

--------------------------------------------------------

Merci d'avance,
Vinayak

[bastou93]

bonjour,

C'est normal, tu ajoutes tes lignes dans ta liste et test tous de suite après si un est selectionné logiquement non car tu n'as pas eu le temps de le faire.

Fait un bouton "Valider" ou alors utilise la méthode Change de ta listbox1

bastien

[vansco]

Bonjour,

Insérer le code suivant dans l'évènement Listbox1_click

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
 
Sub Listbox1_click() 'vérifier ce que donne VB, il y a peut-être des paramètres de base 
Dim i As Integer
 
For i = 0 To UserForm1.ListBox1.ListCount - 1
 
If UserForm1.ListBox1.Selected(i) And UserForm1.ListBox1.List(i) = "Procédure_Clôture" Then
 
With UserForm1.ListBox2
       ' .RowSource = ""
        .AddItem ("Procédure Sub Clôture")
End With
End If
 
Next i
End Sub