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
Partager