XL 2016 Suppression ligne

[Bruce68]

Bonjour à tous
Dans un tableau nommé "Tableau1" je voudrais pouvoir supprimer la dernière Ligne en cas d'erreur en mettant le N° de ligne dans une variable en modifiant la macro ci-dessous

Sub Macro1()
Rows("11:11").Select
Selection.Delete Shift:=xlUp
End Sub

("11:11"). = Variable N° Ligne
Je vous remercie de votre aide

 

[fanfan38]

Bonjour

Dim dl As Long
dl = Range("A1").CurrentRegion.Rows.Count
Rows(dl).Delete Shift:=xlUp

A+ François

 

[Robert]

Bonjour Bruce, bonjour le forum,

Pas sûr d'avoir bien compris. Peut-être comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Derniere Ligne)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
DL = O.ListObjects("Tableau1").ListRows.Count 'définit la derniere ligne du Tableau1
O.ListObjects("Tableau1").ListRows.Item(DL).Delete 'suprimme la dernière ligne du Tableau1
End Sub

[Édition]
Bonjour Fanfan, nos posts se sont croisés...

 

[soan]

Bonjour Bruce68, le fil,

Option Explicit

Sub Macro1()
  Dim lig&
  With ActiveSheet.ListObjects("Tableau1")
    lig = .ListRows.Count + 2 '+2, car la ligne d'en-têtes est en ligne 2
    Rows(lig).Delete
  End With
End Sub

fais Ctrl e ➯ ligne 8 supprimée ; remarque : puisque tu supprimes
la dernière ligne de ton tableau, c'est inutile de faire un décalage
haut avec Shift:=xlUp (à moins que tu aies autre chose sous ton
tableau structuré ; mais si oui, ça va gêner l'extension vers le bas)

soan

 

[Bruce68]

Je vous remercie de vos réponses.
Cela fonctionne pour la dernier ligne du tableau.
Je voudrais également supprimer de la 4° Ligne à la dernière Ligne .
Je vous remercie de votre aide

 

[soan]

Au lieu de Rows(lig).Delete, il suffit de mettre : Rows(4 & ":" & lig).Delete

soan

 

[Bruce68]

Bonjour à tous
Je vous remercie de vos réponses et vous souhaite à tous une bonne journée

 

[soan]

Merci, bonne journée à toi aussi !

soan