Discussion :

[Paindep]

Bonjour,

j'ai une ComboBox qui va chercher des données dans un fichier excel, or dans ce fichier excel il peut y avoir des doublons dans une colonne, sa arrive fréquemment et c'est meme normal.
Mais dans ma ComboBox j'aimerais ne pas afficher ces doublons mais n'afficher qu'une seule fois chaque valeur.

Exemple dans mon fichier excel j'ai :
a
b
c
a
b
a

dans ma combobox j'aimerais qu'il n'y ai que :
a
b
c

merci d'avance !

[BERRACHED SAID]

Bonjour le Forum

Voici un exemple pour remplir un combo sans doublons essaye de l'adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
 
Dim i As Integer
 
For i = 1 To Sheets("Nom de la Feuille").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("Nom de la Feuille").Range("A" & i) ici c'est la colonne "A"
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Nom de la Feuille").Range("A" & i)
Next i
 
End Sub

[Paindep]

J'essaye ça de suite

[Paindep]

Tout d'abord merci de m'aider,
mais j'ai testé et cela ne marche pas

enfin sa marche mais sa ne change rien par rapport a mon code initial

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
 
Dim i As Integer
 
For i = 1 To Sheets("Nom de la Feuille").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("Nom de la Feuille").Range("A" & i) ici c'est la colonne "A"
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Nom de la Feuille").Range("A" & i)
Next i
 
End Sub

mais je ne pense pas que la propriété ListIndex puisse me servir ou alors il manque du code...

[BERRACHED SAID]

Bonjour

j'ai pas compris ce que tu veux au juste ?

fait nous part exactement de ton problème on pourra peut être t'aider

Bonne journée

[Paindep]

Ce que je voulais c'etait enlever les doublons d'un combobox, mon exemple me parait très clair
dans ma combobox j'ai différente valeur présentes :
123
abc
def
456
abc
def
et moi je veux virer les doublons, donc qu'il ne reste que :
123
abc
def
456

je poste le code que j'ai trouvé et fonctionnel, merci à plus !

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
Dim Valeur As String
    Dim i As Integer
    Dim j As Integer
    'Pour tous les éléments
    For i = 0 To lst_ref.ListCount - 1
        'Memorisation de la valeur de l'item
       Valeur = Combobox.List(i)
       'Seconde boucle qui passe en revu la fin du combo
        For j = i + 1 To Combobox.ListCount - 1
            'Si l'élément est égale a la valeur tampon
            If Valeur = Combobox.List(j) Then
                'Suppression de l'item
                Call Combobox.RemoveItem(j)
            End If
        Next j
    Next i

voili voilou

[BERRACHED SAID]

Salut

je suis très content pour toi

n'oublie pas de cocher resolu

Bonne journée