Macro pour choisir la date dans une Pivotable

fabibi001 · 24 Janvier 2010

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 · 24 Janvier 2010

Re : Macro pour choisir la date dans une Pivotable

Bonjour à tous,

Peux-tu essayer avec :

Code:

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 · 24 Janvier 2010

Re : Macro pour choisir la date dans une Pivotable

re,

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

Merci !!!

JCGL · 24 Janvier 2010

Re : Macro pour choisir la date dans une Pivotable

Bonjour à tous,

fabibi001 à dit:
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 :

Code:

=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

Macro pour choisir la date dans une Pivotable

fabibi001

XLDnaute Occasionnel

Pièces jointes

JCGL

XLDnaute Barbatruc

fabibi001

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

Discussions similaires