J
JB
Guest
Bonjour à tous,
J'ai réussi à créer une listbox grace à des récherche sur ce site (merci pour les astuces). Maintenant je voudrias que ma plage de référence ne soit plus dans la 'feuil3' mais dans le fichier 'Base de donée' en 'Feuil1'. Ca doit être tout simple à réaliser mais je bloque!!!
Merci pour votre aide.
Private Sub UserForm_Initialize()
'Indique le chemin d'accès au n° de lot
Dim c As Range
Dim i As Integer
Dim data As Collection
Set data = New Collection
With Sheets('feuil3')
'alimentation d'une collection (data) avec les données de la colonne A de la feuille 3
'sans doublons
For Each c In .Range('a2:a' & .Range('a65536').End(xlUp).Row)
On Error Resume Next
data.Add c, CStr(c)
On Error GoTo 0
Next c
'renvoi de la collection (data) dans la combobox1
For i = 1 To data.Count
combobox1.AddItem data(i)
Next i
End With
End Sub
J'ai réussi à créer une listbox grace à des récherche sur ce site (merci pour les astuces). Maintenant je voudrias que ma plage de référence ne soit plus dans la 'feuil3' mais dans le fichier 'Base de donée' en 'Feuil1'. Ca doit être tout simple à réaliser mais je bloque!!!
Merci pour votre aide.
Private Sub UserForm_Initialize()
'Indique le chemin d'accès au n° de lot
Dim c As Range
Dim i As Integer
Dim data As Collection
Set data = New Collection
With Sheets('feuil3')
'alimentation d'une collection (data) avec les données de la colonne A de la feuille 3
'sans doublons
For Each c In .Range('a2:a' & .Range('a65536').End(xlUp).Row)
On Error Resume Next
data.Add c, CStr(c)
On Error GoTo 0
Next c
'renvoi de la collection (data) dans la combobox1
For i = 1 To data.Count
combobox1.AddItem data(i)
Next i
End With
End Sub