Discussion :

[lterru]

Voici ce que je tape

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
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

[oOVaveOo]

Quand tu passe en déboguage, quelle ligne est surlignée ?

Sinon :

Code :

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

1
2
3
4
5
6
For i = 1 To 3000
 
  List_Product_Ep(i, 1) = sheets("Base_Mat").Range("B1").Offset(i, 0)
  List_Product_Ep(i, 2) = sheets("Base_Mat").Range("J1").Offset(i, 0)
 
Next i