XL 2013 Supprimer la ligne activée dans un tableau

[badraaliou4]

Bonjour,
Je voulais supprimer la ligne active dans mon tableau mais je n'arrive pas. Ci-dessous mon code
Merci pour votre aide.

Sub delete()
L=ActiceCell.Row
Selection.ListObject.ListRows(L).Delete
End Sub

' help me please

 

[Dranreb]

Bonsoir.
Essayez comme ça :

Sub Delete()
   Dim LOt As ListObject, L As Long
   Set LOt = ActiveCell.ListObject
   If LOt Is Nothing Then Exit Sub
   L = ActiceCell.Row - LOt.HeaderRowRange.Row
   If L > 0 Then LOt.ListRows(L).Delete
   End Sub

À tester

 

[badraaliou4]

Re
Merci beaucoup ça marche très bien 😀

 

[Staple1600]

Bonjour le fil, badraaliou4, Dranreb

badraaliou4
Tu n'étais pas loin (avec du Selection dans le VBA comme dans ton code initial)

Sub Orbital()
Dim L&
On Error Resume Next ' pour la sauvegarde de l'entête ;-)
  With Selection
    L = .Row - .ListObject.Range.Row
    .ListObject.ListRows(L).Delete
  End With
End Sub

 

[badraaliou4]

Re,
Merci beaucoup
J'ai utilisé le code que Dranreb m'a offert.

 

[Staple1600]

Re

Tu fais ce que tu veux avec tes cadeaux 😉
Moi, je vois une question, j'y apporte une réponse possible même si il y a déjà déjà d'autres.
Plaisir d'offrir, joie de recevoir 😉

PS: J'ai toujours en tête que le demandeur n'est pas le seul à tirer bénéficies des réponses fournies à ses questions.

 

[badraaliou4]

Ok Merci.