VBA : date sur TCD

Fermé

ju - 13 nov. 2007 à 14:56
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 - 13 nov. 2007 à 22:34

Bonjour,

Je suis en train d'automatiser un reporting a partir d'un fichier de BD avec une macro excel..
J'ai fait ce qu'il fallait pour mettre mon fichier enforme pour faire un TCD
Dans mon TCD j'ai des données sur les lignes, et sur les colonnes j'ai les dates.

Par exemple, si mon fichier rassemble les données des 7 derniers jours, comment ecrire en VBA que je ne veux dans mon TCD uniquement celles du jour J ?

Pour résumer, j'ai :

Datedujour = Format(Date, dd/mm/yyyy)
Je veux
".PivotItems("25/10/2007").Visible = False " pour Datedujour-6jour, Datedujour-5jour...ect jusqu'a Datejour-2jour.

et ".PivotItems("25/10/2007").Visible = True" pour Datedujour-1jour

Mes explications ne sont sans doute pas tres clair mais c'est pas simple de s'expliquer !!

Merci de votre aide

A voir également:

VBA : date sur TCD
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 nov. 2007 à 16:21

Bonjour,

Ma question va sous doute être idiote, mais c'est quoi un TCD ???

Réponse 2 / 3

ju
13 nov. 2007 à 16:31

Bonjour,

Désolé de l'abbréviation ;)
tcd = tableau croisé dynamique

Réponse 3 / 3

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
13 nov. 2007 à 22:34

Bonsoir,

Je n'ai jamais pratiqué les TCD sous VBA mais vu que c'est une collection tu peux peut-être faire ainsi:
with ...

For i = 1 To .PivotItems.Count 
    .PivotItems(i).Visible = False
Next i
.PivotItems(Format(Date - 1, dd / mm / yyyy)).Visible = True

end with

Pas testé, peut-être une grosse bétise, c'est juste une suggestion des fois que ça déclenche une idée chez toi

eric

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters