S
Sebbb
Guest
Bonjour à tous,
La rentrée n'est pas trop dur?
Voilà, j'ai une question concernant les menus des tableaux croisés dynamiques (là où on coche ou décoche les éléments visualisés dans le tableau).
Malheureusement, le fichier est bcp bcp trop gros pour être envoyé.
J'ai dans ce tableau un champ Année et un autre Mois,
Dans Année, 2003, 2004, 2005 mais s'incrémente avec le tps qui passe.
Dans mois,1 jusqu'à 12.
Dans une cellule, j'ai la date du jour.
CE que je voudrais c'est que par macro, les données du tableu correpondent à celles de l'année et mois en cours, pour ca j'ai tapé le code suivant:
Sub Macro1()
'Pour n'afficher que le mois de visualisation
Dim mois As Integer
mois = Month(Sheets('Tb Evol Date').Range('A1')) (cellule qui contient la date du jour)
Sheets('Tb Evol Date').Activate (feuille où se trouve le tbl)
With ActiveSheet.PivotTables('Tb Evol Date').PivotFields('MOIS CREATION')
For i = 1 To 12
.PivotItems(mois).Visible = True
If i <> mois Then
.PivotItems(i).Visible = False
End If
Next i
End With
End Sub
Sub Macro2()
Dim annee As Integer
annee = Year(Sheets('Tb Evol Date').Range('A1'))
With Worksheets('Tb Evol Date').PivotTables('Tb Evol Date').PivotFields('ANNEE CREATION')
For i = 2003 To 2010
.PivotItems(annee).Visible = True
If i <> annee Then
.PivotItems(i).Visible = False
End If
Next i
End With
End Sub
La macro 1 fonctionne très bien, par contre la 2 bug sur ce que j'ai souligné.
Quelqu'un peut-il me venir en aide pour trouver ce qui ne va pas ou me proposer une autre solution?
Merci d'avance à tous les lecteurs.
A bientôt,
Sébbb
La rentrée n'est pas trop dur?
Voilà, j'ai une question concernant les menus des tableaux croisés dynamiques (là où on coche ou décoche les éléments visualisés dans le tableau).
Malheureusement, le fichier est bcp bcp trop gros pour être envoyé.
J'ai dans ce tableau un champ Année et un autre Mois,
Dans Année, 2003, 2004, 2005 mais s'incrémente avec le tps qui passe.
Dans mois,1 jusqu'à 12.
Dans une cellule, j'ai la date du jour.
CE que je voudrais c'est que par macro, les données du tableu correpondent à celles de l'année et mois en cours, pour ca j'ai tapé le code suivant:
Sub Macro1()
'Pour n'afficher que le mois de visualisation
Dim mois As Integer
mois = Month(Sheets('Tb Evol Date').Range('A1')) (cellule qui contient la date du jour)
Sheets('Tb Evol Date').Activate (feuille où se trouve le tbl)
With ActiveSheet.PivotTables('Tb Evol Date').PivotFields('MOIS CREATION')
For i = 1 To 12
.PivotItems(mois).Visible = True
If i <> mois Then
.PivotItems(i).Visible = False
End If
Next i
End With
End Sub
Sub Macro2()
Dim annee As Integer
annee = Year(Sheets('Tb Evol Date').Range('A1'))
With Worksheets('Tb Evol Date').PivotTables('Tb Evol Date').PivotFields('ANNEE CREATION')
For i = 2003 To 2010
.PivotItems(annee).Visible = True
If i <> annee Then
.PivotItems(i).Visible = False
End If
Next i
End With
End Sub
La macro 1 fonctionne très bien, par contre la 2 bug sur ce que j'ai souligné.
Quelqu'un peut-il me venir en aide pour trouver ce qui ne va pas ou me proposer une autre solution?
Merci d'avance à tous les lecteurs.
A bientôt,
Sébbb