Bonjour,

Après un filtre de la colonne "A" un combobox s'alimente avec les lignes visibles de la colonne "R"
J'aimerai ajouter dans le code l’enlèvement de doublon.

Voici le code ;

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestRecuperation()
Range("R10").Select
Dim i As Integer
Dim ILIGNE As String
'Parcours les lignes visibles
While ActiveCell.Value <> ""
    With ActiveCell
        ILIGNE = .Row
        Cells(ILIGNE + 1, .Column).Resize(16384 - ILIGNE).SpecialCells(xlVisible).Cells(1).Select
    End With
    ActiveSheet.ComboBox1.AddItem ActiveCell.Value
    i = i + 1
Wend
End Sub
Pouvez-vous m'aider svp.
En vous remerciant d'avance