utilisation de GETOBJECT

[gibert]

J'ai utilisé le code ci-dessous pour une liste déroulante dans un userform qui utilsera des données venant d'un classeur fermé(liste.xls).
Mais il ne m'affiche que la première ligne de cette liste et non l'ensemble .
Quelqu'un peut-il m'aider ?
Il y a pet-être une autre façon de procéder?

MERCI


'Private Sub UserForm_Initialize()
Dim classeurauteurs As Workbook
Set classeurauteurs = GetObject("d:\liste.xls")

Dim compteur As Long
Dim ajoutauteur As String
For compteur = 2 To classeurauteurs.Sheets(1).Range("b1").End(xlDown).Row
ajoutauteur = classeurauteurs.Sheets(1).Range("b" & compteur).Value
cbonom.AddItem (ajoutauteur)
Next compteur

End Sub'

 

[Zon]

Bonjour à tous,


Range("b1").End(xlDown).Row renvoie la première cellule non vide, donc si B1 a une valeur c'est normal que ta liste n'est qu'une ligne.

Utilises plutôt:



For compteur = 2 To classeurauteurs.Sheets(1).Range("b65536").End(xlup).Row