« Macros-commandes VBA/Création de Tableau croisé » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 589 :
Sub Enlev_Sous_Totaux()
Dim
Dim
ThisWorkbook.Sheets("TCD automatique").Select
Set
For Each
If
Next
End Sub
Ligne 612 :
Sub Initialise_Sous_Totaux()
Dim
Dim
ThisWorkbook.Sheets("TCD automatique").Select
Set
For Each
'Seuls les champs "Age" et "Catégorie" auront l’attribut subtotals activé
Select Case
Case "Age", "Catégorie"
Case Else
End Select
Next
End Sub
|