Dan,
Je suis reven
u (je suis un mec
), tout simplement pour remercier ceux qui prennent du temps (toi en l'occurence) pour aider les débutants comme moi.
Je n'ai pas repris ton code qui c'est vrai, simplifiait la macro, car je ne suis pas arrivé à le faire fonctionner dans ma macro. Peut être une mauvaise manip de ma part, je ne sais pas ?
Par contre, j'ai mis mon résultat pour montrer le résultat que j'avais obtenu grâce à ton aide, mais il est certain qu'il vaut mieux chercher soit même ce dont on a besoin.
Sinon j'ai de nouveau besoin de vos services, en fait j'ai cherché cette macro pour simplifier le travail de mes 9 collègues qui passaient chaque mois une demi journée à faire des stats, maintenant ils mettront 5 minutes, mais comme on dit quand on donne un doigt, c'est le bras qu'on perd.... Mes collègues veulent une macro plus pointue.
Donc j'aimerais que n'apparaissent que certaines des valeurs de mon TCD, et par consèquent que les autres soient cachées.
J'ai un bout de code mais il n'est pas compris dans vb.
Je veux que les items 1, 4, 9, 11, 15 apparaissent et que tous les items restant soient masqués
Le code :
With ActiveSheet.PivotTables('PivotTable1').PivotFields('PK')
Fori = 1
.PivotItems(i).Visible = True
Fori = 4
.PivotItems(i).Visible = True
Fori = 9
.PivotItems(i).Visible = True
Fori = 11
.PivotItems(i).Visible = True
Fori = 15
.PivotItems(i).Visible = True
Fori = 5
.PivotItems(i).Visible = False
Fori = 6
.PivotItems(i).Visible = False
Fori = 7
.PivotItems(i).Visible = False
Fori = 8
.PivotItems(i).Visible = False
Fori = 16
.PivotItems(i).Visible = False
Fori = 19
.PivotItems(i).Visible = False
Si vous avez une solution ?
Merci par avance
Noeste
Message édité par: Noeste, à: 18/11/2005 14:26