Bonjour a tous,

Je voudrais remplir une liste déroulante avec une plage de cellule d'un classeur, mais je n'ai aucun résultat. Je voudrais également que ma liste n'affiche pas les doublons.

voilà mon code qui ne fonctionne pas!


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
Private Sub ListeFonction()
    Dim Plage1 As Range
    Dim FL1 As Worksheet
 
    NomProjet = FenetrePrincipale.LblProjet.Value
 
    Set FL1 = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
    Set Plage1 = FL1.Range("A4:A" & FL1.UsedRange.Rows.Count)
 
    CmbListeFonction.Clear
    For Each Cell1 In Plage1
    CmbListeFonction.AddItem Cell1.Value
    Next
 
End Sub
Merci d'avance pour votre aide.