Probleme création ComboBox!
Voici ce que je tape
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub UserForm_Initialize()
Liste
End Sub
Private Sub Liste()
Dim i As Integer
Dim List_Product_Ep(1 To 3000, 1 To 2) As String
For i = 1 To 3000
List_Product_Ep(i, 1) = Base_Mat!Range("L1C2").Offset(i)
List_Product_Ep(i, 2) = Base_Mat!Range("L1C10").Offset(i)
Next i
ComboBox1.List = List_Product_Ep
End Sub |
Quand je lance l'application j'ai un message d'erreur "424 Objet requis" je ne comprend pas ou est l'erreur. Je travaille sous MSOffice 2007. Le but etant de prendre des donner dans une feuille excel et de les mettre dans la ComboBox.
Merci d'avance pour votre aide
