XL 2013 Supprimer la ligne activée dans un tableau

Dranreb

XLDnaute Barbatruc

• 7 Décembre 2019

• #2

Bonsoir.
Essayez comme ça :

VB:

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

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 7 Décembre 2019

• #3

Re
Merci beaucoup ça marche très bien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #4

Bonjour le fil, badraaliou4, Dranreb

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

VB:

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

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 7 Décembre 2019

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2019

• #6

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.

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 8 Décembre 2019

• #7

Ok Merci.

 

Vote positif 0 Vote négatif