Discussion :

[vinz33vinz]

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 !!!

merci..

[rvtoulon]

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

[vinz33vinz]

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

Code :

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

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

etc

Mais pourquoi ça ne marche pas ..

[rvtoulon]

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 :

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

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 :

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

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

[vinz33vinz]

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 :

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
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 ?

[rvtoulon]

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

[casefayere]

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 :

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

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