Problème d'utilisation de variables avec la fonction Rowsource !

[Bipede]

Bonjour et bonne année à tous!
Malgré mes multiples recherches je n'ai pas trouvé de réponses qui correspondait à ma requête voila pourquoi je vous écrit !
Mon problème est simple.
Je souhaite intégré à la fonction row source une variable.J'ai une listbox dont la rowsource est fonction d'une ligne et colonne particluière.
Lorsque l'on connait la colonne et la ligne le code est le suivant :

listbox.RowSource = "bib!B2:B50"

Dans mon cas la colonne est une variable
Voila ce que j'ai essayé de faire fonctionner

listbox.RowSource = Range(Sheets("bib").Cells(2, col), Sheets("bib").Cells(50, col))
(ou col est la variable colonne)

Cela sans résultats...
J'espère avoir été clair dans mes propos je souhaite intégrer la variable colonne dans ma rowsource! Merci à vous!

 

[kjin]

Re : Problème d'utilisation de variables avec la fonction Rowsource !

Bonjour,
Evite RowSource

with sheets("bib")
ListBox1.List = .Range(.Cells(2, col), .Cells(50, col)).Value
end with

A+
kjin

 

[Bipede]

Re : Problème d'utilisation de variables avec la fonction Rowsource !

Merci pour ta réponse kjin et exuse moi du retard je viens à peine de consulter le site.
Ton code ne fonctionne pas.En fait j'ai oublié de précisé que mon col venait d'un test.Voici le code complet:

For col = 2 To 250
If bib = Sheets("bib").Cells(1, col) Then
listbib.List = Range(Sheets("bib").Cells(2, col), Sheets("bib").Cells(50, col))
listdev.List = Range(Sheets("dev").Cells(2, col), Sheets("bib").Cells(50, col))

Ou listdevet listbib sont des zones de liste.bib une combobox!
Mais cela ne fonctionne pas...
Voila tu peux me demander d'autre renseignements si je ne suis pas assez clair !Merci d'avance!

 

[kjin]

Re : Problème d'utilisation de variables avec la fonction Rowsource !

Bonsoir,

With Sheets("bib")
    col = Application.Match(bib, .Rows(1), 0)
    listbib.List = .Range(.Cells(2, col), .Cells(50, col)).Value
    With Sheets("dev")
        listdev.List = Range(.Cells(2, col), .Cells(50, col)).Value
    End With
End With

A+
kjin