Discussion :

[moulery]

Bonjour ,
ce code ci dessous (code1) fonctionne tres bien, il fait apparaitre
sur la feuille actuelle
dans une listbox les informations ci dessous
(colonne y2)
libelle
poire
pomme
peche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(code 1) 
Sheets(1).Agrisq.Clear
Dim flist1()
Range("Y2").Resize(Range("Y2").End(xlDown).Row).Select
fcont = Selection.Count - 1
ReDim flist1(fcont)
i = 0
For Each cc In Selection
 
flist1(i) = cc
i = i + 1
Next
Sheets(1).Agrisq.List() = flist1

mais j'aimerais mettre les parametres de la colonne (y2) dans une autre feuille ( ici sheet(2))

comme ceci mais je n'y arrive pas , voi code ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(code 2) 
Sheets(1).Agrisq.Clear
Dim flist1()
Sheets(2).Range("Y2").Sheets(2).Sheets(2).Resize(Range("Y2").End(xlDown).Row).Select
fcont = Selection.Count - 1
ReDim flist1(fcont)
i = 0
For Each cc In Selection
 
flist1(i) = cc
i = i + 1
Next
Sheets(1).Agrisq.List() = flist1

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
A adapter selon tes besoins.
Alimentation d'un LisBox d'une plage de cellules se trouvant en A2:A6 de la feuille(2)

Code :

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

1
2
3
 Dim rng As Range
 Set rng = Sheets(2).Range("A2:A6")
 Me.ListBox1.List() = rng.Value

Petite remarque : C'est dangereux d'utiliser l'indice numérique d'une feuille parce-que si l'on déplace la feuille, elle ne sera plus en deuxième position à partir de la gauche.
Il est préférable d'utiliser le nom comme Sheets("LeNom") ou encore mieux le CodeName de la feuille

[moulery]

trouve de moi meme

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
 
(code 1) 
Sheets(1).Agrisq.Clear
Dim flist1()
Sheets(2).select ;
Range("A2").Resize(Range("A2").End(xlDown).Row).Select
fcont = Selection.Count - 1
ReDim flist1(fcont)
i = 0
For Each cc In Selection
 
flist1(i) = cc
i = i + 1
Next
Sheets(1).Agrisq.List() = flist1