Ilino
XLDnaute Barbatruc
Bonsoir forum
ci joint un fichierdont mon souci est le suivant , je souhaite supprimer des lignes de la feuille 1 via un bouton dans la feuille 2
a quel niveau je modifié le code
GRAZIE par avance
ci joint un fichierdont mon souci est le suivant , je souhaite supprimer des lignes de la feuille 1 via un bouton dans la feuille 2
a quel niveau je modifié le code
Code:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
Range("a" & i + 5).EntireRow.Delete
End If
Next i
ListBox1.Clear
majlistbox1
End Sub
Sub majlistbox1()
Dim c As Range
For Each c In Range("a5:a" & Range("a65000").End(xlUp).Row)
ListBox1.AddItem c.Value
Next c
End Sub
Private Sub UserForm_Initialize()
majlistbox1
End Sub
Pièces jointes
Dernière édition: