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