badraaliou4
XLDnaute Occasionnel
Bonsoir ici,
Je cherche un code qui me permet de supprimer une ou plusieurs lignes sélectionnées dans un tableau.
le code que j'ai me permet de supprimer uniquement une ligne sélectionnée.
merci pour votre aide..
ci-joint mon ficher.
Je cherche un code qui me permet de supprimer une ou plusieurs lignes sélectionnées dans un tableau.
le code que j'ai me permet de supprimer uniquement une ligne sélectionnée.
merci pour votre aide..
ci-joint mon ficher.
VB:
Sub SuprimerLigneVente()
If ActiveCell.Row <= 28 Then
MsgBox " Impossible de supprimer cette ligne.", , " SUPPRESSION DE LIGNE"
Else
If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, " SUPPRESSION DE LIGNE") = vbYes Then
Set lot = ActiveCell.ListObject
If lot Is Nothing Then Exit Sub
l = ActiveCell.Row - lot.HeaderRowRange.Row
lot.ListRows(l).delete
End If
End If
End Sub