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

  • Initiateur de la discussion Initiateur de la discussion Chrystel01
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Chrystel01

XLDnaute Occasionnel
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
 

Pièces jointes

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour