macro : supprimer la ligne(vide) de mes tableaux croisés

  • Initiateur de la discussion Initiateur de la discussion kenavo
  • 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 !

kenavo

XLDnaute Junior
Bonjour,

Ma macro pour mon tableau croisé marche très bien mais comme le nbre de lignes change suivant mes fichiers je me retrouve avec une ligne (vide) : normal car je prends comme place A:O

Je souhaiterais supprimer à chaque fois cette ligne (vide) de mon tableau X

Voici le code:

Code:
Sub tableauSIF()
    Range("A:O").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "sheet1!A:O").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").RowGrand = False
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
        Array("Entité", "compte", "Clé lettrage", "SIF")
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Montant" _
        )
        .Orientation = xlDataField
        .Caption = "Somme de Montant"
        .Function = xlSum
    End With
    
    'Supprime les sous totaux de "clé de lettrage"
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect _
        "'Clé lettrage'[All;Total]", xlDataAndLabel, True
    Selection.Delete
    
    'Mise en forme de la colonne SIF
      Range("D:D").Select
    Selection.NumberFormat = "#,##0"
    Range("F9").Select
End Sub

Merci
Bonne journée
 
- 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

Réponses
69
Affichages
9 K
Réponses
2
Affichages
2 K
Retour