XL 2013 Supprimer toutes les lignes tableau au dessous du total général

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #2

Bonjour

Une façon de faire

VB:

Sub Supprimer_Lignes_Tableau()
With Application
.ScreenUpdating = False
Cells(2, 1).Resize(CLng(.Match("Total général", Columns(1), 0)) - 2).EntireRow.Delete
End With
End Sub

 

Vote positif 0 Vote négatif

shinozak

XLDnaute Occasionnel

• 27 Mars 2020

• #3

Bonjour test ça,

VB:

Sub suppr()
x = Application.Match("Total général", Range("A1:A" & Range("A1048576").End(xlUp).Row), 0)
Rows(x + 1 & ":" & Range("A1048576").End(xlUp).Row).Delete Shift:=xlUp
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #4

Re

Et la version light

VB:

Sub Supprimer_Lignes_Tableau_ONLINER()
Cells(2, 1).Resize(Application.Match("Total général", Columns(1), 0) - 2).EntireRow.Delete
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #5

Re , Bonjour shinozak

shinozak
Penses à rafraichir ton navigateur avant de poster
(cf message#2)

 

Vote positif 0 Vote négatif

shinozak

XLDnaute Occasionnel

• 27 Mars 2020

• #6

Bonjour Staple1600,
Ahah t'es le Lucky Luke du VBA, j'ai pas eu le temps de poster mon message

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #7

Re

Une version pour le fun

VB:

Sub Suppr_UltraLight()
Range([A2], [T_X].Rows(0)).EntireRow.Delete
End Sub

T_X est une plage nommée
(C'est la cellule qui contient Total général)

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #8

Merci pour vos réponses. C'est toujours aussi rapide Désolée du retard de réponse, je n'avais pas reçu de notification.
Merci Staple 1600 pour toutes tes propositions. Elles me seront utiles dans d'autres situations car ce que je cherche dans le cas présent, c'est à supprimer les lignes sous le total et pas au-dessus.
Je vais reprendre la poposition de Shinozak.
Bonne journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #9

Re

Puisque tu utilises un Tableau (au sens de Tableau Excel)
Tu peux aussi cocher ceci: Ligne des totaux
En VBA, cela donne:

VB:

Sub Affiche_Totaux()
ActiveSheet.ListObjects("Tableau1").ShowTotals = True
End Sub

Ce qui simplifie les choses, non ?

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #10

Super cette formule
J'ai décidément beaucoup à apprendre en vba

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #11

Re

Et donc pour effacer les lignes en dessous d'un Tableau
(avec l"option: Lignes des totaux cochée)

VB:

Sub Suppr_Lignes_LO()
Dim Dl&, xL As Range, LIGNES_A_EFFACER As Range
'ici le tableau s'appelle Tableau1 -< adapter si besoin
Set xL = ActiveSheet.ListObjects("Tableau1").TotalsRowRange
Dl = Cells(Rows.Count, 1).End(3).Row
If xL.Row = Dl Then
Set LIGNES_A_EFFACER = Range(xL.Offset(1), xL.Offset(1).End(xlDown))
Else
Set LIGNES_A_EFFACER = Range(xL.Offset(1), Cells(Rows.Count, 1).End(3))
End If
''NB: le tableau commence en colonne A
LIGNES_A_EFFACER.EntireRow.Clear
End Sub

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #12

Super, merci beaucoup !!!

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #13

juste une question : "end(3)" cela veut dire quoi ?
merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #14

Re

C'est l'écriture raccourcie de: End(xlUp)

 

Vote positif 0 Vote négatif

Solution

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #15

je comprends. Merci

 

Vote positif 0 Vote négatif