Discussion :

[Arsene22]

Bonjour,
Je viens demander de l'aide.

J'ai un userform avec 15 Combobox. Je souhaiterai que 4 de mes combobox soient en cascade.

combobox 24 = liste des Départements

Combobox 12 = liste des localités

combobox 2 = liste des structures

Combobox 3 = liste des services rattachés

Quand je choisi un département dans ma combo 24, la combo12 se remplir des villes rattachées au département choisi. Ensuite le choix d'une ville dans la combo12, la combo 2 se remplir de toutes les structures de la ville. En choix dans la combo 2, la combo 3 se remplir des services.


Merci d'avance pour votre aide.

[mfoxy]

Bonjour,

Il est assez compliqué de t'aider sans en savoir plus sur la disposition de tes données.

Cette discussion, surtout le post de Pierre F., pourrait certainement te mettre sur la piste.

https://www.developpez.net/forums/d2...bobox-cascade/

Bat,

[Arsene22]

Bonjour mfoxy
,

Merci pour votre attention. Je comprend[ rien dans le lien que vous m'avez transmis. Ci-joint un fichier pour vous présenter en quelque sorte ce que veux.
Mon application est déja en cours d"utilisation, je a travers l’utilisation de combobox en cascade améliorer mon application

[Igloobel]

Bonjour,

A titre d'exemple je te joint un fichier qui ressemble à ce que tu cherches


_Liste_filtree.xls

là c'est un userform mais on peut le faire avec des listes de validation c'est toi qui voit

Tu nous dis si cela te convient

A +

[Vba14]

Bonjour,

J'ai ce fichier qui m'a été utile pour mes applications.
CascadeCombobox.xls
Bon courage

[Arsene22]

Bonjour,

A titre d'exemple je te joint un fichier qui ressemble à ce que tu cherches


_Liste_filtree.xls

là c'est un userform mais on peut le faire avec des listes de validation c'est toi qui voit

Tu nous dis si cela te convient

A +

Merci à vous pour votre aide. J'ai reussi avec deux combobox. Mais je n'y arrive pas avec les 2 autres combobox. J'ai donc opté pour se code qui ne fonctionne pas correctement

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
Private Sub Structures_Change()
Worksheets("Feuil3").Select
Services.Value = ""
If Structures.Value = "Centre " Then
Services.RowSource = "M2:M250"
End If
If Structures.Value = "Direction Régi" Then
Services.RowSource = "N2:N10"
End If
If Structures.Value = "Direction R" Then
Services.RowSource = "G2:G35"
End If
If Structures.Value = "Tribunal P" Then
Services.RowSource = "S2:S6"
End If
If Structures.Value = "IE" Then
Services.RowSource = "q2:q300"
End If
end sub

[Vba14]

Bonjour Arsene 22

Pouvez-vous être plus complet dans votre demande, qu'est-ce qui ne fonctionne pas dans votre code ?
Vous aurez beaucoup plus de réponse en étant précis. Je parle en connaissance de cause.
Meilleurs salutations