Bonjour tout le monde,
je suis un peu en galère sur un projet, le titre me paraît assez explicite.
Je cherche à remplir une combobox à partir d'une colonne d'une feuille Excel filtrée mais sans les doublons.
Pour le moment, je suis arrivé à récupérer les valeurs filtrées comme ceci :
Ceci marche impecable...Mais je n'arrive pas à récupérer cette liste de valeurs sans doublons.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 For ligne = ligneEntete To ThisWorkbook.Worksheets("nom_feuille").Range("A65536").End(xlUp).Row Step 1 If (ThisWorkbook.Worksheets("nom_feuille").Rows(ligne).Hidden = False) Then ComboBox.AddItem ThisWorkbook.Worksheets("nom_feuille").Cells(ligne, 8) End If Next
J'ai trouvé ceci qui marche pour récupérer les valeurs sans doublons, mais j'arrive pas a ajouter ceci avec ce que j'ai au dessus pour avoir que les valeurs filtrées sans doublons.
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 Sub RempliComboUnik(Plage As Range, QuelCombo As MSForms.ComboBox) Dim C As Range Dim Tbl As New Collection Dim i As Integer On Error Resume Next For Each C In Plage If Not IsError(C) Then If C<>"" Then Tbl.Add C.Value, CStr(C.Value) End If Next C On Error GoTo 0 With QuelCombo .Clear For i = 1 To Tbl.Count .AddItem Tbl(i) Next i .ListIndex = 0 End With Set Tbl = Nothing End Sub
Si quelqu'un aurait une idée pour me décoincé, je pense que je dois être pres du but mais j'ai un peu de mal. En attendant votre aide, je continue ma recherche.
Merci encore.
Partager