Listbox

[DRANAC]

Bonjour,
J'ai une question :
Je fais une selection dans une feuille avec la commande suivante :

i = 0
Do
i = i + 1
Loop While Sheets("ETUDIANTS").Cells(i, 1).Value = ComboBox2.Value
Sheets("ETUDIANTS").Cells(i, 1).Select
Range(Selection, Selection.End(xlDown)).Select

Comment puis-je mettre cette sélection dans mon listbox ?
j'ai tenté une listbox.list = Range(Selection, Selection.End(xlDown)).Select
mais a que neni, ce n'est pas la bonne méthode.
HELP

 

[Roland_M]

Re : Listbox

bonsoir

voir avec ceci

I = 0
Do
I = I + 1
If Sheets("ETUDIANTS").Cells(I, 1).Value = "" Then Exit Do
ComboBox2.AddItem Sheets("ETUDIANTS").Cells(I, 1).Value
Loop
'là dessous je sais pas ce que tu en fais !?
Sheets("ETUDIANTS").Cells(I, 1).Select
Range(Selection, Selection.End(xlDown)).Select

 

[DRANAC]

Re : Listbox

Bonjour,
J'ai une question :
Je fais une selection dans une feuille avec la commande suivante :

i = 0
Do
i = i + 1
Loop While Sheets("ETUDIANTS").Cells(i, 1).Value <> ComboBox2.Value
Sheets("ETUDIANTS").Cells(i, 1).Select
Range(Selection, Selection.End(xlDown)).Select

Comment puis-je mettre cette sélection dans mon listbox ?
j'ai tenté une listbox.list = Range(Selection, Selection.End(xlDown)).Select
mais a que neni, ce n'est pas la bonne méthode.
HELP

Ce code fonctionne, mon probléme j'aimerais mettre ma selection :

Sheets("ETUDIANTS").Cells(i, 1).Select
Range(Selection, Selection.End(xlDown)).Select

dans mon listbox et la je galère.

 

[Guest]

Re : Listbox

Bonjour Dranac, Le Forum

Pas besoin de tout sélectionner:

'Selection de la première cellule
Sheets("ETUDIANTS").Cells(i, 1).Select
'Remplir le combo avec les éléments de la première cellule à la fin du tableau
ComboBox2.List=range(Selection, Selection.End(xlDown)).Value

A bientôt

 

[DRANAC]

Re : Listbox

Un grand MERCI, ça tourne.
Voila ce qui arrive quand on une tête dans le cul, mon code était :

Range(Selection, Selection.End(xlDown)).Select
listbox.list = Range(Selection, Selection.End(xlDown)).Select

Je n'ai même pas vu que j'avais laissé .select à la place de .value.
Rhalala
Un grand merci