Bonjour à tous,
J'aimerais supprimer les lignes d'un tableau une par une avec un bouton, seulement je veux m’arrêter à la première pour pouvoir en créer d'autres plus tard sur le modèle de la première.
Voici ce que j'ai mais il y a une erreur :
Sub supp_rows()
Dim vnom As String, vrech As Range, derlign As Long
vnom = "Nombre de licences par Services"
Set vrech = Columns(1).Find(vnom)
If Not vrech Is Nothing Then
derlign = Range("A" & vrech.Row).End(xlDown).Row
If derlign = vnom(1, 0) Then
MsgBox "Vous ne pouvez pas supprimer la première ligne !" & Chr(10) & Chr(13) _
& "Aucune nouvelle ligne n'a été ajoutée."
Exit Sub
End If
Range("A" & derlign).EntireRow.Delete
End If
End Sub
D'avance merci pour votre aide.