Exécution macro et TCD

[Hady]

Bonjour @ tous!

Voici mon petit pb.
J'ai une macro qui me permet de mettre en forme un TCD.
Dans ce TCD il y a des filtres de pages. A chaque fois que la personne change de filtre de pages, je voudrais que ma macro de mise en forme tourne car je la perds. Mais je n'y arrive pas!
J'ai essayé avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Mais cela ne fonctionne pas!
Peut-on déclencher une macro à la modif de certaines cellules uniquement? Quelqu'un a t il une soluce?

Merci

 

[DSA]

Bonjour hady,

j'ai déjà eut ce type de besoin et j'ai utilisé le code ci-dessous:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Cells(2, 2) <> Cells(3, 2) Then
    Cells(2, 2) = Cells(3, 2)
    'Ton appel macro ici
End If
End Sub

en décoder, en cells(3,2) j'ai la cellule ou tu peux faire le choix des pages du TCD et en cellule (2,2) je recopie la valeur du choix (couleur de police blanche).
A adapter en fonction de ton fichier

A+

DSA