Bonjour,

j'aimerai savoir comment supprimé plusieurs ligne dans ma liste de ma feuille excel?

voici mon code qui me permet d'effacé une seule ligne
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 delete_click()
 
Dim NumLigne As Integer
 
If Nligne.Value = "" Then
   MsgBox "Vous n'avez pas saisie le numéro de la ligne à supprimer"
   Nligne.Value = "0"
   Exit Sub
End If
 
    NumLigne = Nligne.Value
    ActiveSheet.Listobjects("Liste1").ListRows(NumLigne - 1).Delete 'suppression de la ligne saisi
    Nligne.Value = ""
End Sub
je souhaiterai saisir mes lignes à supprimé de la même façon, sauf que si il y a par exemple 3 lignes à supprimé, et bien je saisi dans mon Textbox(Nligne)

64;68;89

en fait pour les différencier, on y ajouterai un ;

si quelqu'un peut m'aider