ntesenforce
XLDnaute Nouveau
Bonjour à tous,
Je suis nouveau sur le forum et j'ai choisi de soumettre mon problème car il me semble qu'il y a beaucoup de personnes très compétentes sur ce forum.
Alors j'ai essayé pendant un long moment mais je n'y arrive pas, mon niveau de VBA est moyen, je me débrouille et je tatonne beaucoup.
Mon problème :
Je dois sortir des résultats hebdos sur un fichier excel et les présenter dans un tableau présentant l'historique des 5 dernières semaines et un graphique avec l'historique des 4 dernières semaines.
J'ai choisi l'option de tableaux croisés et graphiques dynamiques. En tout ca m'en fait 8 de chaque à mettre à jour chaque semaine, c'est à dire que je dois décocher la semaine -5 (ou -4) et cocher la semaine 0 dans chacun des tableaux et graphiques. Je voudrais donc faire une macro qui me permet de faire cette manip automatiquement.
Voici la macro actuellement qui ne fonctionne pas :
Reponse = INPUTBOX("Entrez votre prénom")
Cells(21, 21).Value = Reponse
Cells(21, 22).Value = Reponse - 100
With ActiveSheet.PivotTables("PivotTable16").PivotFields("WEEK")
Cells(21, 21).Value = Reponse
Cells(21, 22).Value = Reponse - 500
.PivotItems(Cells(21, 22).Value).Visible = False
.PivotItems(Cells(21, 21).Value).Visible = True
End With
J'ai opté pour une boîte de dialogue dans laquelle j'indique la semaine en cours (sous le format 2309 (SSAA / semaineannée)). Puis je mets ce chiffre dans une case, je prends une autre case et je lui ôte 500. Ensuite je prends mon tableau croisé dynamique et je sélectionne l'item que je décoche et celui que je coche. Cependant je n'arrive pas à faire prendre conscience au Pivotitem que Cells(21, 22).Value est une valeur. (du moins je crois que c'est le soucis).
Je suis preneur de toute aide, que ce soit pour proposer une autre solution qu'une inputbox (je ne peux pas revenir sur le tableau croisé) ou tout simplement m'apporter la solution complète...
Je vous remercie par avance.
Bonne journée
Steven
P.S.: dans le cas où je n'aurais pas été très clair, n'hésitez pas à me le signaler.
Je suis nouveau sur le forum et j'ai choisi de soumettre mon problème car il me semble qu'il y a beaucoup de personnes très compétentes sur ce forum.
Alors j'ai essayé pendant un long moment mais je n'y arrive pas, mon niveau de VBA est moyen, je me débrouille et je tatonne beaucoup.
Mon problème :
Je dois sortir des résultats hebdos sur un fichier excel et les présenter dans un tableau présentant l'historique des 5 dernières semaines et un graphique avec l'historique des 4 dernières semaines.
J'ai choisi l'option de tableaux croisés et graphiques dynamiques. En tout ca m'en fait 8 de chaque à mettre à jour chaque semaine, c'est à dire que je dois décocher la semaine -5 (ou -4) et cocher la semaine 0 dans chacun des tableaux et graphiques. Je voudrais donc faire une macro qui me permet de faire cette manip automatiquement.
Voici la macro actuellement qui ne fonctionne pas :
Reponse = INPUTBOX("Entrez votre prénom")
Cells(21, 21).Value = Reponse
Cells(21, 22).Value = Reponse - 100
With ActiveSheet.PivotTables("PivotTable16").PivotFields("WEEK")
Cells(21, 21).Value = Reponse
Cells(21, 22).Value = Reponse - 500
.PivotItems(Cells(21, 22).Value).Visible = False
.PivotItems(Cells(21, 21).Value).Visible = True
End With
J'ai opté pour une boîte de dialogue dans laquelle j'indique la semaine en cours (sous le format 2309 (SSAA / semaineannée)). Puis je mets ce chiffre dans une case, je prends une autre case et je lui ôte 500. Ensuite je prends mon tableau croisé dynamique et je sélectionne l'item que je décoche et celui que je coche. Cependant je n'arrive pas à faire prendre conscience au Pivotitem que Cells(21, 22).Value est une valeur. (du moins je crois que c'est le soucis).
Je suis preneur de toute aide, que ce soit pour proposer une autre solution qu'une inputbox (je ne peux pas revenir sur le tableau croisé) ou tout simplement m'apporter la solution complète...
Je vous remercie par avance.
Bonne journée
Steven
P.S.: dans le cas où je n'aurais pas été très clair, n'hésitez pas à me le signaler.
!
