• Initiateur de la discussion Initiateur de la discussion Mat1987
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mat1987

XLDnaute Nouveau
bonjour je vous joint un exemple de cette macro.

Mon but est d'activé un tableau croiser dynamique en inscrivant les une information dans une cellule pour activé le TCD.

merci
 

Pièces jointes

Re : Probleme Macro

Bonjour,
dans l'évènement de la feuille1, tu mets ce code :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("b5").Address Then MaCell = Target: macro1
End Sub

et dans un module standard, celui-ci :

Code:
Public MaCell As Date

Sub macro1()
Sheets("Feuil4").PivotTables("Tableau croisé dynamique2").PivotFields("date "). _
        CurrentPage = "" & MaCell & ""
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
733
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
773
Retour