Macro pour choisir la date dans une Pivotable

[fabibi001]

Bonsoir le forum,
Bonsoir les exceliens,

J'ai créé un fichier dans lequel se trouvent 2 onglets.

L'un contient les données et l'autres la Pivotable.

Je souhaiterais ajouter une macro qui choisissent le dernier enregistrement de ma pivotable, en clair la dernière date.

J'ai commencé à enregistrer ma macro mais je ne sais pas quoi mettre dans le champs "date" de la macro pour qu'il prenne la dernière valeur du champs DENREG.

Actuellement ma macro resssemble à ça :

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 24/01/2010
'

'
Sheets("Day").Select
Range("B12").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").PivotFields("DENREG").CurrentPage = _
Range("A42")

End Sub

Je vous joins le fichier en question.

Merci d'avance pour votre aide

 

[JCGL]

Re : Macro pour choisir la date dans une Pivotable

Bonjour à tous,

Peux-tu essayer avec :

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 24/01/2010
'

'
    Sheets("Day").Select
    Range("B12").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    ActiveSheet.PivotTables("PivotTable1").PivotFields("DENREG").CurrentPage = Format(Range("A42").Value, "dd/mm/yyyy")
        
End Sub

A+ à tous

 

[fabibi001]

Re : Macro pour choisir la date dans une Pivotable

re,

Merci JCGL, c'est exactement ce que je souhaite.

Merci !!!

 

[JCGL]

Re : Macro pour choisir la date dans une Pivotable

Bonjour à tous,

Je souhaiterais ajouter une macro qui choisissent le dernier enregistrement de ma pivotable, en clair la dernière date.

Si tu souhaites la dernière date, je te conseille en A42 :

=RECHERCHE(9^9;Liste!D:D)

Tu auras la dernière cellule numérique de la colonne D.
A la différence de MAX qui te donnera la date la plus "grande"

A+ à tous