Discussion :

[arnold95]

Bonjour,
J'ai un peyit problème...en fait ce que je souhaite c'est selon la valeur choisie dans la combobox-domaine, la combobox_metier selectionne les valeurs de la feuille domaine correspondante sans doublons.
Voici le code.
Merci de votre aide.

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
Private Sub Combobox_Domaine.click()
 
 
If Combobox_Domaine = "Mécanique" Then
Worksheets("mécanique").Select
'Supprime les données existantes dans le ComboBox
    Me.ComboBox_metier.Clear
 
 
    'alimenter le ComboBox
    For Each Cell In Worksheets("mécanique").Range("A2:A50,C2:C50,E2:E50,G2:G50")
        Me.ComboBox_metier = Cell
        'remplissage sans doublon
        If Me.ComboBox_metier.ListIndex = -1 Then _
            Me.ComboBox_metier.AddItem Cell
    Next Cell
End If
 
If Combobox_Domaine = "Comptabilité" Then
Worksheets("Comptabilité").Select
'Supprime les données existantes dans le ComboBox
    Me.ComboBox_metier.Clear
 
 
    'alimenter le ComboBox
    For Each Cell In Worksheets("Comptabilité").Range("A2:A50,C2:C50,E2:E50,G2:G50")
        Me.ComboBox_metier = Cell
        'remplissage sans doublon
        If Me.ComboBox_metier.ListIndex = -1 Then _
            Me.ComboBox_metier.AddItem Cell
    Next Cell
End If
 
End Sub

[fring]

Bonjour,

Essaye ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Combobox_Domaine_Change()
Dim CbVal As String, Cell As Range
 
CbVal = Combobox_Domaine.Value
 
Me.ComboBox_metier.Clear
 
For Each Cell In Worksheets(CbVal).Range("A2:A50,C2:C50,E2:E50,G2:G50")
    Me.ComboBox_metier = Cell
    'remplissage sans doublon
    If Me.ComboBox_metier.ListIndex = -1 Then Me.ComboBox_metier.AddItem Cell
Next Cell
 
End Sub

Je pense que l'évènement click fonctionne également mais tu dois l'écrire avec un underscore(_) et pas un point(.)

Code :

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

Private Sub Combobox_Domaine_Click()