LISTBOX

Question

Bonjour

Comment fait-on avec le code ci-dessous pour selectionner plusieurs lignes de la listbox et que les valeurs des deux colonnes soient renvoyées dans le feuille excel. Pour l'insant, la macro renvoit toutes les lignes mais ce que je veux, c'est qu'il renvoit uniquement les lignes selctionnées. 

Merci d'avance

Private Sub CommandButton1_Click()
 Dim element_select As Boolean
Dim nb_elements, i   As Integer

element_select = False
nb_elements = test1.ListBox1.ListCount

    For i = 0 To nb_elements - 1
        If test1.ListBox1.Selected(i) = True Then
            element_select = True
            Exit For
       End If
    Next

    If element_select = False Then
        MsgBox "Vous n'avez rien sélectionné; fin du programme"
        Exit Sub
    End If

    Label1.Caption = "Il y a " & nb_elements & " éléments sélectionnés" 
Range("C1").Select 

For i = 0 To nb_elements - 1 
ActiveCell.Value = ListBox1.List(i, 0) 
ActiveCell.Offset(0, 1).Value = ListBox1.List(i, 1) ActiveCell.Offset(1, 0).Select
Next i

test1.Hide

End Sub
FASH

Renfield · Answer

J'ai refait toute ta procedure, et l'ai changée quelques peu.....


Private Sub CommandButton1_Click()
Dim nb_elements As integer, i As Integer

Range("C1").Select 

For i = 0 To nb_elements - 1 
   If test1.ListBox1.Selected(i) Then
      nb_elements = nb_elements + 1 
      ActiveCell.Value = ListBox1.List(i, 0) 
      ActiveCell.Offset(0, 1).Value = ListBox1.List(i, 1) 
      ActiveCell.Offset(1, 0).Select
   End if
Next i

If nb_elements = 0Then
   MsgBox "Vous n'avez rien sélectionné; fin du programme"
Else
   Label1.Caption = "Il y a " & nb_elements & " éléments sélectionnés" 
   test1.Hide
End If

End Sub


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

LISTBOX

1 réponse

Discussions similaires