Définir une plage de cellule pour plusieurs combobox

[ikki]

Bonjour à tous et toutes,

si vous pouviez orienter un noob dans le debug,
merci d'avance

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim Cell1 As Range
With Sheets("DB")
For Each Cell In .Range("A2:A" & .Range("A1000").End(xlUp).Row)
Me.FOLIOComboBox.AddItem (Cell)
Next Cell
For Each Cell1 In .Range("B2:A" & .Range("B1000").End(xlUp).Row)
Me.TYPEComboBox.AddItem (Cell1)
Next Cell1
End With
End Sub

 

[Pierrot93]

Re : Définir une plage de cellule pour plusieurs combobox

Bonjour,

essaye peut être ceci, en utilisant la propriété "llist" des combo... sans plus de détails...

With Sheets("DB")
    Me.FOLIOComboBox.List = .Range("A2:A" & .Range("A1000").End(xlUp).Row).Value
    Me.TYPEComboBox.List = .Range("B2:B" & .Range("B1000").End(xlUp).Row).Value
End With

bonne journée
@+