Discussion :

[Invité]

bonjour
j'ai un tableau les entêtes présentent les région (A;B;C....)
chaque région à plusieurs villes (pour la région A les villes A1 A2 A3 .... ; pour la région B les villes B1 B2 B3 ....)
je veux lorsque je choisi dans ComboBox1 la région A je ne trouve que les villes A1 A2 A3 dans ComboBox2, lorsque je choisi dans ComboBox1 la région B je ne trouve que les villes B1 B2 B3 dans ComboBox2

[riaolle]

Bonjour et bienvenue au forum,
Quel est ton code pour l'instant ?
Tu peux regarder du côté de la fonction suivante : Application.Match : te permet de trouver la position relative d'un élément dans une plage de cellules. Du coup, si tu prends la ligne 1, cela te permet de trouver la colonne dans laquelle se trouve le nom de la région et donc dans laquelle se trouve les noms de villes. Tu peux aussi utiliser Find qui cherche la cellule contenant la valeur donnée en argument.
Ensuite, une fois que tu as la colonne, il suffit de donner la bonne source à la combobox 2.

[Igloobel]

boujour à tous

voici un exemple à adapter

Liste_filtree.xls

il plein d'autres exemple de ce type dans ce forum

tu dis

à plus

[Invité]

boujour à tous

voici un exemple à adapter

Liste_filtree.xls

il plein d'autres exemple de ce type dans ce forum

tu dis

à plus

mais je peux pas comprendre tout le code

[Igloobel]

tout d'abord cré en colonne A la liste de tes Région (en A2 :A, A3:B, A4:C ... Comme dans mon exemple)

cette liste sera dans ta combobox1

ensuite tu récupères la position de la valeur sélectionnée avec Listindex

puis tu selectionnes la plage qui doit remplir la Combox2

C'est un code pas très compliqué.

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
Private Sub BT_Annul_Click()
    Unload UF
End Sub
 
Private Sub BT_OK_Click()
    Cells(2, 3).Formula = CB_Classe.Value
    Cells(2, 4).Formula = CB_Ele.Value
End Sub
 
Private Sub CB_Classe_Change()
    lign = 6
    posit = CB_Classe.ListIndex + 2
    Select Case posit
        Case 2
            While Cells(lign, posit).Value <> ""
                lign = lign + 1
            Wend
            lign = lign - 1
            CB_Ele.RowSource = "B6:B" & Trim(Str(lign))
        Case 3
            While Cells(lign, posit).Value <> ""
                lign = lign + 1
            Wend
            lign = lign - 1
            CB_Ele.RowSource = "c6:c" & Trim(Str(lign))
        Case 4
            While Cells(lign, posit).Value <> ""
                lign = lign + 1
            Wend
            lign = lign - 1
            CB_Ele.RowSource = "d6:d" & Trim(Str(lign))
        Case 5
            While Cells(lign, posit).Value <> ""
                lign = lign + 1
            Wend
            lign = lign - 1
            CB_Ele.RowSource = "e6:e" & Trim(Str(lign))
    End Select
End Sub
 
Private Sub UserForm_Activate()
    CB_Classe.RowSource = "A6:A9"
    CB_Classe.ListIndex = 0
 
End Sub

[Invité]

merci beaucoup; c'est bien.
un petit problème s'il y a plus d'une feuilles dans mon classeur

[Invité]

j'ai pas bcp d'expérience
voici mon fichier

[Igloobel]

J'ai déjà fait un exemple sur les listes déroulantes dépendantes. Examinez ce modèle : La source

Tu as raison c'est vrai j'aime bien aussi avec les liste de validations mais j'ai donné un vieux fichier fait sous Excel 2003 qui a plus de 10 ans ! ( le seul que j'avais sous la mains )

A+

[patricktoulon]

Bonjour
je sais pas trop ou vous été allés mais si je m'en réfère a la demande initiale il n'est pas question de filtre ici mais de colonnes
3 lignes au max
exemple deux combo (region/ville) voir démo en image

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub ComboBox1_Change()
Set c = Range("A1:C1").Find(ComboBox1.Value, LookIn:=xlValues) 'on cherche la cellule ou il y a la region dans la ligne  1 du sheets
If Not c Is Nothing Then ComboBox2.List = Range(c.Offset(1, 0), Cells(Rows.Count, c.Column).End(xlUp)).Value
End Sub
Private Sub UserForm_Activate()
ComboBox1.List = Application.Transpose(Range("A1:C1").Value) ' on met les regions qui sont dans la ligne 1 du sheets dans la combo 1
End Sub

[Invité]

merci bcp c'est bien fait