listbox en cascade

**meumeu73.1** · 21/01/2008, 13h19

Bonjour,

Je prends un exemple par souci de confidentialité, merci.

J'ai une Userform, avec Trois ListBox, dans la première j'ai des marques de voirures, dans la seconde les modèles de voiture, et dans la troisième el type de carburant.

J'ai une feuille excel qui rescense le tout de la façon suivante :

Marque Modèle Carburant
Renault Twingo Essence
Renault Clio Diesel
Renault Clio Essence
Peugeot 1007 Diesel
Peugeot 1007 GPL
Peugeot 1007 Essence
Citroën C2 Diesel
Citroën C3 GPL
Citroën C3 Essence

et donc, j'aimerais qu'à l'ouverture de l'useform on voit apparaitre les marques distinctes bien sur, et que lorsque je sélectionne la marque Renault par exemple, apparaisse dans la liste modèle : Twingo et Clio (de façon distinct), etc... jusqu'au carburant.

J'ai déjà la première partie qui consiste à ouvrir la userform avec les marques distinct.

je fourni ce que j'ai déjà fait

par avance merci

meumeu73

**jfontaine** · 21/01/2008, 14h14

Cette marcro fait ce que tu souhaites, mais remplace ton ancien code

Il te suffit de m'appeler au démarrage et sur les actions clics des liste marque et modele

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub cherche()
 
Dim i As Long
Dim c As Long
Dim ColMarque As New Collection
Dim colModele As New Collection
Dim colCarburant As New Collection
 
If Marque.Text <> "" And Marque.Text <> strMarque Then
    strMarque = Marque.Text
End If
If Modele.Text <> "" And Modele.Text <> strModele Then
    strModele = Modele.Text
End If
If Carburant.Text <> "" And Carburant.Text <> strCarburant Then
    strCarburant = Carburant.Text
End If
 
Marque.Clear
Modele.Clear
Carburant.Clear
 
i = 2
 
Do While ThisWorkbook.Worksheets("Feuil1").Range("A" & i).Value <> ""
    On Error Resume Next
 
    ColMarque.Add ThisWorkbook.Worksheets("Feuil1").Range("A" & i).Value, CStr(ThisWorkbook.Worksheets("Feuil1").Range("A" & i).Value)
 
    If strMarque = "" Or ThisWorkbook.Worksheets("Feuil1").Range("A" & i).Value = strMarque Then
        colModele.Add ThisWorkbook.Worksheets("Feuil1").Range("B" & i).Value, CStr(ThisWorkbook.Worksheets("Feuil1").Range("B" & i).Value)
    End If
 
    If strModele = "" Or ThisWorkbook.Worksheets("Feuil1").Range("B" & i).Value = strModele Then
        colCarburant.Add ThisWorkbook.Worksheets("Feuil1").Range("C" & i).Value, CStr(ThisWorkbook.Worksheets("Feuil1").Range("C" & i).Value)
    End If
 
    i = i + 1
Loop
 
 
For c = 1 To ColMarque.Count
    Marque.AddItem ColMarque(c)
Next c
 
For c = 1 To colModele.Count
    Modele.AddItem colModele(c)
Next c
 
For c = 1 To colCarburant.Count
    Carburant.AddItem colCarburant(c)
Next c
 
End Sub

**meumeu73.1** · 22/01/2008, 06h13

bonjour,

si j'ai bien compris il faut que je remplace mon ancien code d'initailization de la userform par le code que tu m'as transmis ?

**meumeu73.1** · 22/01/2008, 09h04

merci, j'ai bien remplacé mon code par celui que tu m'as transmis, j'ai bien mes listbox remplies.

Mon but est que les listbox modèle et carburant se remplissent par rapport à la marque, c'est à dire que si je selectionne renault, dans la colonne modèle apparaissent twingo et clio, et ensuite lorsque je sélectionne clio, dans la colonne carburant diesel et essence.

merci