Discussion :

[arnold95]

Bonjour,

J'ai un souci avec la macro pour supprimer les doublons dans la combobx. En effet j'ai plusieurs données et sur des colonnes différentes, le problème est qu'au résultat la macro a bien retirer les doublons sauf pour les valeurs qui sont vides dans les colonnes. Voici la macro et bonne journée a tous.

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

[fring]

Comme ça à la volée, sans tester, un truc du style

Code :

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

If Me.ComboBoxDomaine.ListIndex = -1 And Cell.Value <> "" Then

[arnold95]

Oui effectivement tout simplement on pouvait faire çà et çà marche.lol. Je cherchais un peu plus compliqué. Merci pour cette solution.
Bonne journée