Bonjour, j'ai ENCORE un problème sur ma macro, ça commence à m'énerver.
En faite, j'ai créer un tableau croisé dynamique où je décoche et ensuite coche des champs (qui corresponde à mes colonnes).
Je fais ensuite un copier/coller sur autres fauilles où les calculs sont automatisés pour me donner un tableau final.
Mon problème est que j'ai créé une macro pour tout automatiser (pour l'instant tout va bien). Mais quand la macro déroule et qu'un champ de mon TCD s'est rajouté ou a disparu, il beug.
En faite, j'aimerais avoir la possibilité de décocher tel argument de la colonne si il est là, pour garder que 2 éléments qui m'interresse.
Je m'explique, j'ai une extraction EXCEL, je dois créer un TCD, mais seul 2 champs m'interesse
exemple : vélo et VTT
Donc, je ne veux que ses 2 champs sélectionnés.
Donc, je décoche les autres.
Exemple : voiture, à pied...
Mais que faire quand il n'y a plus voiture dans l'extraction excel. Je voudrais donc, que la macro passe à l'étape suivante si il n'y a pas voiture.
Voici mon VBA:
'Création du TCD
ActiveSheet.PivotTables("Tableau croisé dynamique23").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique23").PivotFields( _
"appli / appli / appli / appli"), "Nombre de appli / appli / appli / appli", _
xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tableau croisé dynamique23").PivotSelect _
"'rien / Date depot / rien / rien'[All;Total]", xlDataAndLabel, True
Selection.Delete
'Voici le problème de mes colonnes décochées
With ActiveSheet.PivotTables("Tableau croisé dynamique23").PivotFields( _
"Traitement")
.PivotItems("voiture").Visible = False
.PivotItems("a pied").Visible = False
.PivotItems("moto").Visible = False
.PivotItems("mobilette").Visible = False
.PivotItems("autre").Visible = False
End With
Merci
En faite, j'ai créer un tableau croisé dynamique où je décoche et ensuite coche des champs (qui corresponde à mes colonnes).
Je fais ensuite un copier/coller sur autres fauilles où les calculs sont automatisés pour me donner un tableau final.
Mon problème est que j'ai créé une macro pour tout automatiser (pour l'instant tout va bien). Mais quand la macro déroule et qu'un champ de mon TCD s'est rajouté ou a disparu, il beug.
En faite, j'aimerais avoir la possibilité de décocher tel argument de la colonne si il est là, pour garder que 2 éléments qui m'interresse.
Je m'explique, j'ai une extraction EXCEL, je dois créer un TCD, mais seul 2 champs m'interesse
exemple : vélo et VTT
Donc, je ne veux que ses 2 champs sélectionnés.
Donc, je décoche les autres.
Exemple : voiture, à pied...
Mais que faire quand il n'y a plus voiture dans l'extraction excel. Je voudrais donc, que la macro passe à l'étape suivante si il n'y a pas voiture.
Voici mon VBA:
'Création du TCD
ActiveSheet.PivotTables("Tableau croisé dynamique23").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique23").PivotFields( _
"appli / appli / appli / appli"), "Nombre de appli / appli / appli / appli", _
xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tableau croisé dynamique23").PivotSelect _
"'rien / Date depot / rien / rien'[All;Total]", xlDataAndLabel, True
Selection.Delete
'Voici le problème de mes colonnes décochées
With ActiveSheet.PivotTables("Tableau croisé dynamique23").PivotFields( _
"Traitement")
.PivotItems("voiture").Visible = False
.PivotItems("a pied").Visible = False
.PivotItems("moto").Visible = False
.PivotItems("mobilette").Visible = False
.PivotItems("autre").Visible = False
End With
Merci