Discussion :

[bosk1000]

bonsoir a tous

je cherche depuis un moment,
dans une listbox, avec la possibilité de séléctionné plusieurs ligne ( fmMultiSelectMulti), je voudrais récupérér les lignes sélectionné dans une feuilles vierges

merci pour votre aide

[Krovax]

Bonsoir,
http://silkyroad.developpez.com/VBA/...serForm/#LII-G
Il y a un exemple pour boucler sur les données selectionné tu as juste a l'adapter pour le mettre dans un onglet au lieu d'une messagebox

[bosk1000]

merci

le terme a comprendre est boucler

j'ai donc pris ce code

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
    Dim i As Integer
    'Les index des Listbox commencent par zéro
    For i = 0 To ListBox1.ListCount - 1
        Debug.Print ListBox1.List(i)
    Next i
End Sub

mais après je ne vois pas ce que je dois faire
comment transférer ma sélection dans la feuille 2 depuis la cellule a1

[laetitia]

bonsoir bosk1000 l' ami Krovax le forum une approche de solution
dans ma listobox1 3 colonnes a adapter!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 Dim element As Boolean, nb As Byte, i As Integer
  element = False
 nb = ListBox1.ListCount
 For i = 0 To nb - 1
If ListBox1.Selected(i) = True Then
 element = True
 With Sheets(2)
.Range("A65536").End(xlUp)(2) = ListBox1.List(i, 0)
 .Range("b65536").End(xlUp)(2) = ListBox1.List(i, 1)
 .Range("c65536").End(xlUp)(2) = ListBox1.List(i, 2)
 End With: End If: Next: Beep
If element = False Then MsgBox "vous n'avez rien selectionné"
 End Sub

[Lynx92260]

Pour une listbox multiselection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim i As Byte
    Dim iLig as Integer
    Dim Xls  as  Worksheet
    iLig=2
    set Xls = ThisWorkBook("le nom de la feuille")
    'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        ' on verifie si la ligne est selectionnée 
        If ListBox1.Selected(i) = True Then 
                Xls.Cells(iLig,2)= ListBox1.List(i)
                iLig=iLig+1
        end if
    Next i

Il suffira d 'adapter ce code sur la feuille le nom de feuille la ligne de départ à insérer et la colonne à remplir .......


Bonne continuation

[bosk1000]

merci a vous tous

Lynx92260, je n'ai pas réussi car "lLig" me ressort comme une variable non définie, et quelle terme dois-je utiliser pour sélectionner la colonne
exemple : Columns("A:A")

laetitia, j'ai réussi avec ton code mon test, mais j'ai 1 bémol

- les éléments se mette à partir de la 2eme ligne, je voulais la faire a partir de la 1er, j'ai changé le 2 en 1 de cette ligne de code

Code :

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

1
2
 
.Range("A65536").End(xlUp)(2) = ListBox1.List(i, 0)

mais ça ne la pas fait