TCD piloté par MACRO

G

Guest

Guest

• 10 Février 2012

• #2

Re : TCD piloté par MACRO

Bonjour,

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

Code:

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+

 

Vote positif 0 Vote négatif

Berg1664

XLDnaute Occasionnel

• 10 Février 2012

• #3

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 10 Février 2012

• #4

Re : TCD piloté par MACRO

Bonjour

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 10 Février 2012

• #5

Re : TCD piloté par MACRO

Re,

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

A+

 

Vote positif 0 Vote négatif

Berg1664

XLDnaute Occasionnel

• 10 Février 2012

• #6

Re : TCD piloté par MACRO

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

 

Vote positif 0 Vote négatif

Berg1664

XLDnaute Occasionnel

• 10 Février 2012

• #7

Re : TCD piloté par MACRO

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

 

Vote positif 0 Vote négatif