Contrôle entre deux Listbox

Version imprimable

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:

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

22/07/2011, 15h49
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

Bonjour,

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

Code:

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