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

[Chrystel01]

Bonjour,

J'utilise un modèle tableau alimenté par macro avec des enregistrements.
Les données de cette zone tableau sont effacées au départ puis la zone est alimentée par des nouveaux enregistrements.
La zone est donc flexible avec plus ou moins de lignes
Le format tableau va s'étendre si on a de nouveaux enregistrements mais il ne s'efface pas quand j'ai moins de lignes.
Je cherche comment adapter le format tableau sur les seules lignes alimentées par les données.
Une option pourrait être de supprimer les lignes au dessous du total général mais j'ai du mal à faire le code VBA.
Pourriez-vous m'aider svp ?
Merci d'avance

Chrystel

 

[Staple1600]

Bonjour

Une façon de faire

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

 

[shinozak]

Bonjour test ça,

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

 

[Staple1600]

Re

Et la version light

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

 

[Staple1600]

Re , Bonjour shinozak

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

 

[shinozak]

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

 

[Staple1600]

Re

Une version pour le fun

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)

 

[Chrystel01]

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

 

[Staple1600]

Re

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

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

Ce qui simplifie les choses, non ?

 

[Chrystel01]

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

 

[Staple1600]

Re

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

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

 

[Chrystel01]

Super, merci beaucoup !!!

 

[Chrystel01]

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

 

[Staple1600]

Re

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

 

[Chrystel01]

je comprends. Merci