Combobox list ne m'affiche pas toute la liste

**rihab92** · 20/04/2015, 16h09

Bonjour tout le monde,

SVP je viens de découvrir un problème dans ma liste déroulante dans un userform c'est qu'elle ne m'affiche pas la totalité de ma liste dans une colonne d'une feuille AuditMensuel

Code vba :

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

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
 
Set O = Sheets("AuditMensuel")
Me.ComboBox1.List = O.Range("B6:B" & O.Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
ComboBox1.Font.Size = 13
 
End Sub

Cette liste est dynamique ( je peux tjrs ajouter un élément dans la liste )

est ce que la formule nécessite qlqs changements ?

Merci

**joe.levrai** · 20/04/2015, 16h31

Bonjour,

tu fais référence à la dernière ligne non vide de ta colonne A au lieu de la colonne B :

Code :

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

1
2
Me.ComboBox1.List = O.Range("B6:B" & O.Cells(Application.Rows.Count, 1).End(xlUp).Row).Value

**Theze** · 20/04/2015, 16h33

Bonjour,

Hé oui, il y a une petite erreur dans la définition de ta plage !
Tu cherche à récupérer les valeurs en colonne B mais tu fais référence à la colonne A pour trouver la dernière cellule non vide.
ça devrait être :

Code :

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

1
2
 
Me.ComboBox1.List = O.Range("B6:B" & O.Cells(Application.Rows.Count, 2).End(xlUp).Row).Value

et non :

Code :

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

1
2
 
Me.ComboBox1.List = O.Range("B6:B" & O.Cells(Application.Rows.Count, 1).End(xlUp).Row).Value

Sinon, teste ce qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
 
    With Worksheets("AuditMensuel")
 
        ComboBox1.List = .Range(.Cells(6, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value
 
    End With
 
    ComboBox1.Font.Size = 13
 
End Sub