Mettre un filtre automatique dans un tableau croisé dynamiqueVBA

Résolu/Fermé

solidarinfo Messages postés 147 Date d'inscription jeudi 26 mars 2009 Statut Membre Dernière intervention 8 décembre 2021 - Modifié par solidarinfo le 8/01/2017 à 22:32
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 8 janv. 2017 à 22:01

Bonjour,

Je veux mettre en place un filtre automatique dans un tableau croisé va VBA.
L'idée est que la dernière information du filtre soit celle qui sera sélectionnée.

En effet une fois que je mets à jour le TCD le nouvel element rajouté est toujours en bas.

j'arrive à sélectionner et deselectionner tous les elements jusqu'au dernier mais il plante à la fin.
Voici ce que j'ai fait :

 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("STATUT")
    For i = 1 To .PivotItems.Count
        If .PivotItems(i).Value > (Deb - 1) And .PivotItems(i).Value < (Fin + 1) Then
            .PivotItems(i).Visible = True
        Else
            .PivotItems(i).Visible = False
        End If
    Next i
    '.Orientation = xlPageField
End With

Ce que je souhaite c'est qu'avec cette boucle, elle me selectionne la derniere valeur du filtre.
"s'il y a plus de valeur aprés, arrete la boucle et selectionne la valeur actuelle".

Inutile de vous préciser que je suis débutant :)

Merci d'avance de votre aide.

A voir également:

Vba tableau croisé dynamique filtre
Tableau croisé dynamique - Guide
Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
Photo filtre gratuit - Télécharger - Retouche d'image
Tableau ascii - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
8 janv. 2017 à 22:01

Il plante sur quelle ligne, avec quel message d'erreur?
Quel est le rôle de Deb et de Fin?
Tu n'as pas clairement expliqué ce que tu voulais obtenir.
Tu as peut-être simplement besoin de ceci?

For i = 1 To .PivotItems.Count -1
            .PivotItems(i).Visible = False
Next i
 .PivotItems(.PivotItems.Count).Visible = True

Sinon, explique ce que tu entends par "dernier".

Discussions similaires

Filtre date par mois dans TCD

VBA TCD filtre

EXCEL - COLLER données dans cellules filtrées

Problème de filtre date dans TCD

Appliquer un filtre TCD par VBA

Vba Suppression de filtre

Discussions similaires

Newsletters