TCD piloté par MACRO

[Berg1664]

Bonjour à toutes et à tous,

J'aimerais pouvoir selectionner le filtre d'un TCD avec une macro à partir d'une info se situant dans une cellule ailleurs

Dans l'exemple de la pièce jointe, j'aimerais que la macro aille chercher le nom du "chef des ventes" dans la feuille "test" et fasse la selection de celui ci dans le TCD

D'avance merci pour votre aide

Cordialement
Berg1664

 

[Guest]

Re : TCD piloté par MACRO

Bonjour,

A mettre dans le module de code de la feuille 'test'

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$3" And Not IsEmpty(Target) Then
        With Sheets("Feuil4").Range("A1").PivotTable.PivotFields("Chef des ventes")
            .EnableMultiplePageItems = True
            .CurrentPage = Target.Text
        End With
    End If
End Sub

A+

 

[Berg1664]

Re : TCD piloté par MACRO

Hello merci Hasco mais j'ai à chaque fois une erreur de compilation ...
Je m'y prends sûrement mal, saurais tu me renvoyer le fichier avec la macro dedans?
D'avance merci
Cordialement

 

[tbft]

Re : TCD piloté par MACRO

Bonjour

serait il possible d'avoir la dernière version du fichier (avec données bidon)?

 

[Guest]

Re : TCD piloté par MACRO

Re,

Voici; c'est une question de compatibilité [2010-2003] corrigé dans le fichier joint.

A+

 

[Berg1664]

Re : TCD piloté par MACRO

Oui il est dans mon premier envoi à 12h59 plus haut
Cdt

 

[Berg1664]

Re : TCD piloté par MACRO

Merci HASCO c'est parfait !!!
Excellente fin de journée à tous
Berg1664