Discussion :

[modus57]

Bonjour.
Comment dans une Listbox multi-sélection boucler sur les lignes sélectionnées et supprimer les lignes correspondantes dans une feuille (RowSource).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton2_Click()
Dim i As Byte
'boucle sur les éléments sélectionnés de la listbox et les supprime
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Worksheets("data").Columns(1).Find(What:=ListBox1.List(i)(ListBox1.ListIndex(i)), After:=ActiveCell, _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).EntireRow.Delete
    End If
Next i
End Sub

Certainement que le code de la ligne « Worksheets("data").Columns(1)… » n’est pas bon.
Quelle est la solution.
Merci d’avance pour votre réponse.

[modus57]

Re bonjour.
J'ai la solution:

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
    'boucle sur les éléments sélectionnés de la listbox et les supprime
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Worksheets("data").Columns(1).Find(What:=ListBox1.List(i), After:=ActiveCell, _
            LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).EntireRow.Delete
        End If
    Next i