VBA: remplir combobox à partir d'une colonne

Private Sub UserForm_Initialize()
Dim i As Long

  For i = 2 To 20
      ComboBox1.AddItem Sheets("ListOfParameters").Cells(i, 1)
Next i

UserForm1.Show

End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = worksheets("Feuil1").Range("A2:A20").Value
End Sub

Private Sub UserForm_Initialize() 
Dim i As Long 
With Sheets("ListOfParameters") 
  For i = 2 To 20 
      ComboBox1.AddItem .Cells(i, 1) 
  Next i 
End With 
End Sub

Discussions similaires