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
mais j'aimerais mettre les parametres de la colonne (y2) dans une autre feuille ( ici sheet(2))
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
comme ceci mais je n'y arrive pas , voi code ci dessous
Merci pour votre aide
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
Partager