ComboBox2 filtré par la ComboBox1

Version imprimable

14/08/2017, 15h29
Invité

ComboBox2 filtré par la ComboBox1

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
14/08/2017, 15h37
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.
14/08/2017, 15h46
Igloobel

1 pièce(s) jointe(s)

boujour à tous

voici un exemple à adapter

Pièce jointe 302931

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

tu dis

à plus
14/08/2017, 16h04
Invité

1 pièce(s) jointe(s)

merci

j'ai pas bcp d'expérience
voici mon fichier
14/08/2017, 16h07
Invité

merci bcp c'est ce que je cherche

Citation:

Envoyé par Igloobel

boujour à tous

voici un exemple à adapter

Pièce jointe 302931

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

tu dis

à plus

mais je peux pas comprendre tout le code

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:

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

14/08/2017, 18h43
Invité

merci beaucoup; c'est bien.
un petit problème s'il y a plus d'une feuilles dans mon classeur
14/08/2017, 21h24
Igloobel

Citation:

Envoyé par ja1050

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

deux questions :

1°) Je comprends pas ta question ? De quel problème parles-tu ?

2°) tu travailles sur quelle Version ?
14/08/2017, 21h28
Igloobel

Citation:

Envoyé par john_red

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 :ptdr: )

A+

1 pièce(s) jointe(s)

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:

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
Pièce jointe 303026
;)

15/08/2017, 13h34
Invité

merci bcp c'est bien fait