Supprimer des lignes

[apdf1]

Bonjour,

Comment supprimer à l'aide d'un bouton sur USF les lignes "A3:L200" des feuilles sélectionner dans la listbox.
Merci d'avance.

Cordialement

Max

 

[Pierrot93]

Re : Supprimer des lignes

Bonjour,

regarde ceci :

Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Sheets(ListBox1.List(i)).Range("A3:L200").EntireRow.Delete
    End If
Next i

bonne journée
@+

 

[apdf1]

Re : Supprimer des lignes

Bonjour Pierrot

Génial je te remercie infiniment

Bonne journée

Max