VBA dépendance Combobox

Bonjour,

Je réalise un formulaire avec entre autre deux combobox dépendante.
La combobox3 qui gère les secteurs (cher, indre, loiret) situés sur cette plage : Infos!B22:B24
La combobox 4 gère les commerciaux :
les commerciaux du cher sont en =Infos!D20:D25
les commerciaux de l'indre sont en =Infos!D26:D28
les commerciaux du loiret sont en =Infos!D29:D32

Comment faire en sorte que lorsque je choisis "cher" dans la combobox 1, j'obtienne uniquement les commerciaux de la plage Infos!D20:D25 ??
et de même pour le loiret avec les commerciaux du loiret etc....

Je suis sûr que ce n'est pas compliqué mais j'y suis depuis un moment sans y arriver....

Help !!! :cry::cry::cry:

merci.. :)

Bonsoir,
tu peux t'inspirer de ce sujet :faire interagir 2 combobox

Honnêtement je ne comprends plus rien :(
Je voulais faire un truc simple avec :

Code:

---

1 2	If ComboBox3.Value = "Cher" Then ComboBox4.RowSource = Infos!D20:D25

---

etc

Mais pourquoi ça ne marche pas ..

Citation:

---

Mais pourquoi ça ne marche pas .

---

c'est une bonne question, mais pour avoir la réponse il serait très pratique que tu mettes le code que tu as déjà fait et que tu nous donnes plus de précision.

Ce formulaire est une sur feuille ou sur un userform? comment est construit ton tableau etc...

bref dans l'hypothèse ou tu utilises un userform:
Dans initialize du formulaire tu remplis la combobox 3 ex:

Code:

---

1 2 3

Private Sub UserForm_Initialize() Me.ComboBox3.RowSource = "Infos!B22:B24" End Sub

---

ensuite pour remplir la combobox 4 en fonction du choix fait dans la 3 il faut utiliser l'événement change de la combobox 3 comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub ComboBox3_Change() Select Case Me.ComboBox3.Value Case "cher" Me.ComboBox4.RowSource = "" Me.ComboBox4.RowSource = "Infos!D20:D25" Case "indre" Me.ComboBox4.RowSource = "" Me.ComboBox4.RowSource = "Infos!D26:D28" Case "loiret" Me.ComboBox4.RowSource = "" Me.ComboBox4.RowSource = "Infos!D29:D32" End Select End Sub

---

J'ai utilisé select case au lieu de if then. Personellement je ne trouve pas pratique pour beaucoup de raisons d'utiliser rowsource pour initializer les combo.

en attendant d'en savoir plus

Hey mais ça marche ! J'ai repris tout votre code...
Alors oui j'ai un formulaire nommé formulaire_sys_sol

Dans les propriété de la ComboBox3 onglet Rowsource : =Infos!B21:B23

mon code est donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub UserForm_initialize()   End Sub Private Sub ComboBox3_Change()   Select Case Me.ComboBox3.Value Case "Cher" Me.ComboBox4.RowSource = "" Me.ComboBox4.RowSource = "Infos!D20:D25" Case "Indre" Me.ComboBox4.RowSource = "" Me.ComboBox4.RowSource = "Infos!D26:D28" Case "Loiret " Me.ComboBox4.RowSource = "" Me.ComboBox4.RowSource = "Infos!D29:D32" End Select End Sub

---

Il suffit juste que je crée une commande clear pour effacer à chaque changement...

Je peux continuer sur cette conversation si j'ai d'autre question ?

normalement tu n'as pas besoin de mettre la commande clear car à chaque fois rowsource prend la valeur "" et ensuite d20 : D etc...

Si ton problème est résolu il est préférable de cloturer le sujet en cliquant sur résolu.

En ouvrant un nouveau sujet tu augmenteras tes chances de recevoir des réponses appropriées à tes problèmatiques

Bonsoir,
Dansun premier temps, pprends à mettre les Balises sur ton code et tu ne verras plus de smiley,
Reprends ton message => Editer => selectionnes le code => appuyes sur #
ci-dessous, je reprends ton code ave effacementdu combo

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ComboBox3_Change()   Select Case Me.ComboBox3.Value ComboBox4.clear Case "Cher" Me.ComboBox4.List = Sheets("Infos").Range("d20:d25") Case "Indre" Me.ComboBox4.List = Sheets("Infos").Range("d26:d28") Case "Loiret " Me.ComboBox4.List = Sheets("Infos").Range("d29:d32") End Select End Sub

---

Bonne soirée