Discussion :

[BigSkyyyz]

Bonjour,
Je cherche un solution depuis deux jours et malheureusement je ne trouve pas la solution.
N'hésitez pas à me relancer vers un topic qui traite de mon problème!

J'espère que vous allez comprendre mes propos car c'est la première fois que je fais des macros...

J'ai créé un document dans mon stage pour traiter un tableau extrait d'un des logiciels de ma société, jusque là pas de problème!
Ce document doit être universel pour que tout le monde dans la société puissent utilisé ma macro de tableau dynamique.

Dans mon tableau dynamique j'ai choisis de ne pas sélectionner des colonnes qui sont traduit par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        .PivotItems("VOITURE]").Visible = False
        .PivotItems("CAMION").Visible = False
        .PivotItems("MOTO").Visible = False

Cependant, dans le fameux document excel extrait de mon logiciel ces noms ne sont pas toujours présents, et quand je copie colle les donnée d'un tableau ou l'une de ces colonne n'est pas présente j'ai une message "Erreur d’exécution '1004'"

En gros excel me dit qu'il n'a pas pu ne pas sélectionner cette colonne car elle n’existe pas...
J'aimerai trouver un ligne macro qui se traduit par si la colonne "VOITURE" est présente ne pas la sélectionner sans avoir un message d'erreur.

Mon message est un peu confus et j’espère ne pas vous avoir perdu

Merci pour votre aide, bonne journée!
Cordialement Allan!

[halaster08]

Bonjour,

Une solution possible mais pas idéale est d'ignorer les erreurs juste pour ces lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
On error resume next
.PivotItems("VOITURE]").Visible = False
 .PivotItems("CAMION").Visible = False
 .PivotItems("MOTO").Visible = False
on error goto 0

une autre solution c'est de boucler sur les tout tes pivotitems

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim pvti as pivotitem
for each pvti in .pivotitems
 if pvti.name = "VOITURE" or pvti.name = "CAMION" or pvti.name = "MOTO" then pvti.visible = False
next pvti

[BigSkyyyz]

je pense que c'est la solution qu'il me faut, je test ça Lundi en retournant au boulot

Merci beaucoup pour votre aide!!!

[78chris]

Bonjour

Il serait nettement plus propre de tester l'existence des items...