TDC Filtre par macro si la valeur existe

[Touna]

Bonjour à tous,
Les vacances finies, au boulot pour moi.
Je reviens sur mon projet professionnel, et bataille depuis un certain temps sur ce projet.

Je souhaiterai obtenir un calendrier qui affiche les jours d'intervention planifiées (avec calcul des heures). Il est partagé, en trimestre.

Sur une feuille excel, on rentre la date de début et de fin d'interevntion, les jours et horaires d'intervention.

J'ai 4 TDC (1 par trimestre), et mon problème est que je n'arrive pas à filtrer automatiquement (sur la colonne des heures), les valeurs "00:00".
Les bases de données de ces TDC sont sur la feuille 2, je pense qu'il a y a un problème de format sur mes conditions, car des fois ca marche et des fois ça marche pas !!

Dernier point ma macro s'active en changeant d'onglet.

A votre dispo pour plus d'info,
Merci d'avance à vous
Touna

 

[Touna]

Re : TDC Filtre par macro si la valeur existe

Bonjour,
personne a une idée !!!

J'ai mis dans ma macro :

With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("heure")
.PivotItems("00:00").Visible = False
End With

pour filtrer, ça marche sauf quand cette valeur n'existe pas dans mes données. Ne peut on pas ecrire :

si 0 appartient aux valeur du filtre alors .PivotItems("00:00").Visible = False
si non on continue

Mais je n'arrive pas à l'ecrire en VBA

Merci pour vos réponses
Touna

 

[Bebere]

Re : TDC Filtre par macro si la valeur existe

bonjour Touna
écrit les formules comme suit
=SI(I2=0;0;RECHERCHEV(I2;Calendrier!$W$17:$Y$24;3;FAUX))
=SI(ET(J2>=Calendrier!$E$3;J2<=Calendrier!$E$4);JOURSEM(J2;2);0)

 

[Touna]

Re : TDC Filtre par macro si la valeur existe

Bonjour Bebere,
Ça marche
Je te remercie pour ta réponse
Touna