Automatiser la sélection des filtres du TDC grâce à une macro

Version imprimable

03/07/2020, 14h03
Le ptit nouveau

1 pièce(s) jointe(s)

Automatiser la sélection des filtres du TDC grâce à une macro

Bonjour,

Toutes les semaines, je dois faire le compte rendu du pourcentage de défauts que nous avons eu sur nos machines en fonction des OF. J'ai donc créé un graphique dynamique croisé, mais pour gagner en efficacité, j'aurais voulu faire une macro qui puisse sélectionner uniquement mes 6 dernières semaines. Par exemple, si nous sommes en semaine 27, je voudrais que la macro sélectionne, dans le filtre "SEMAINE" de mon TDC, les semaines 27, 26, 25, 24, 23 et 22.

Cependant, je n'ai pas vraiment d'expérience dans la programation VBA, et tout ce que j'ai tenté pour l'instant ne fonctionne pas... Si jamais vous avez des proposition, je suis preneur !

Je vous joint mon fichier excel

Pièce jointe 574329

Bonjour,

Voici un code à insérer dans un module standard.
Il convient d'adapter, dans le code d'appel, le numéro de semaine et le nombre de semaine.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub appel()
    FiltreSemaine 27, 6  '******* A ADAPTER : 27 = numéro de semaine; 6 = nombre de semaines
End Sub
 
Sub FiltreSemaine(NumSemaine As Integer, NbreSemaine As Integer)
Dim i As Integer
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("SEMAINE")
        For i = 1 To .PivotItems.Count
            If IsNumeric(.PivotItems(i).Name) Then
                If CInt(.PivotItems(i).Name) > NumSemaine - NbreSemaine And CInt(.PivotItems(i).Name) <= NumSemaine Then
                    .PivotItems(.PivotItems(i).Name).Visible = True
                Else
                    .PivotItems(.PivotItems(i).Name).Visible = False
                End If
            End If
        Next
    End With
End Sub

Pour demander la saisie du numéro de semaine et du nombre de semaine, utilisez ce code au lieu de la procédure Appel :

Code:

1
2
3
4
5
6
Sub appel_avec_saisie()
Dim Nsem As Integer, Nbre As Integer
    Nsem = Application.InputBox(Prompt:="Saisir le numéro de semaine", Title:="Numéro de semaine", Type:=1)
    Nbre = Application.InputBox(Prompt:="Saisir le nombre de semaines", Title:="Nombre de semaines", Type:=1)
    FiltreSemaine Nsem, Nbre
End Sub

03/07/2020, 15h18
Le ptit nouveau

Re,

Merci pijaku d'avoir pris du temps pour me répondre. Je viens de tester ton programme, et c'est exactement ce dont j'avais besoin !

Je vais maintenant pouvoir l'utiliser pour tous mes graphes.

Encore merci et bonne journée