« Macros-commandes VBA/Création de Tableau croisé » : différence entre les versions

Contenu supprimé Contenu ajouté
Mepothe (discussion | contributions)
Mepothe (discussion | contributions)
Ligne 589 :
Sub Enlev_Sous_Totaux()
Dim TCD pvtTCD As PivotTable
Dim tcd_fldpvfTCD As PivotField
ThisWorkbook.Sheets("TCD automatique").Select
Set TCDpvtTCD = ActiveSheet.PivotTables("TCD_Adhérents")
For Each tcd_fldpvfTCD In TCDpvtTCD.PivotFields
If tcd_fldpvfTCD.Subtotals(1) Then tcd_fldpvfTCD.Subtotals(1) = False
Next tcd_fldpvfTCD
End Sub
Ligne 612 :
Sub Initialise_Sous_Totaux()
Dim TCD pvtTCD As PivotTable
Dim tcd_fldpvfTCD As PivotField
ThisWorkbook.Sheets("TCD automatique").Select
Set TCDpvtTCD = ActiveSheet.PivotTables("TCD_Adhérents")
For Each tcd_fldpvfTCD In TCDpvtTCD.PivotFields
'Seuls les champs "Age" et "Catégorie" auront l’attribut subtotals activé
Select Case tcd_fldpvfTCD.Name
Case "Age", "Catégorie"
tcd_fldpvfTCD.Subtotals(1) = True
Case Else
tcd_fldpvfTCD.Subtotals(1) = False
End Select
Next tcd_fldpvfTCD
End Sub