Discussion :

[alex.a]

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.

[tonton fred]

Bonjour,
L'erreur se situe ou ? Tu as essaye le pas a pas pour voir ou il va ?

[alex.a]

Bonjour tonton fred,

je n'ai pas d'erreur qui apparaît et ma liste déroulante reste vide. Comment faire pour faire le mode pas a pas? (espion) je sais que NomProjet est lu car je l'ai affiché. Après la partie en Gras ne doit pas passée

J'ai placé le code suivant dans mon formulaire :

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
Private Sub UserForm_Initialize()
    
    Dim hWnd As Long
    Dim Plage1 As Range
    Dim FL1 As Worksheet
  
    'Récupération window de l'userform et ajoute 'Réduire/Agrandir'
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
    'Ici pour éliminer la fermeture
    'SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
     
    FenetreFMESUser.LblMargeDetecF.Value = FenetrePrincipale.LblMargeDetec.Value
    FenetreFMESUser.LblMargeIndetecF.Value = FenetrePrincipale.LblMargeIndetec.Value
    
    NomProjet = FenetrePrincipale.LblProjet.Value
        
    Set FL1 = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
    Set Plage1 = FL1.Range("A4:A" & FL1.UsedRange.Rows.Count)
    
    FenetreFMESUser.CmbListeFonction.Clear
    For Each Cell1 In Plage1
        FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
    Next
End Sub

merci pour votre aide et vos conseils.

[alex.a]

C'est bon ca marche, j'ai pas tout compris mais il semble que le code ci dessus marche.
Par contre, comment ne pas faire apparaitre les doublons de la plage, dans la liste déroulante?

[alex.a]

J'ai modifier mon code en rajoutant la ligne de code en gras. Je n'ai pas d'erreur mais les données de la plage sont rangées par doublons, mais ils sont toujours là

quelqu'un a t-il une idée?

Code :

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

1
2
3
4
For Each Cell1 In Plage1
        FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
        If FenetreFMESUser.CmbListeFonction.ListIndex = -1 Then FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
    Next

[SilkyRoad]

bonjour

tu peux tester

Code :

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

1
2
3
4
5
For Each Cell1 In Plage1
    FenetreFMESUser.CmbListeFonction = Cell1.Value
    If FenetreFMESUser.CmbListeFonction.ListIndex = -1 Then _
        FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
Next

michel

[alex.a]

Bonjour Michel, merci pour ta réponse

ton code marche
j'ai juste rajouté une ligne pour enlever les cellules vides.

Code :

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

1
2
3
4
5
6
7
For Each Cell1 In Plage1
    If Cell1 <> "" Then
    FenetreFMESUser.CmbListeFonction = Cell1.Value
    End If
    If FenetreFMESUser.CmbListeFonction.ListIndex = -1 Then _
        FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
    Next

encore merci