cocher et décocher automatiquement une case de TCD

[zeff]

Bonjour à tous 🙂

Cela fait un petit bout de temps que je n'étais pas revenu sur le forum. L'Aide précieuse fournit par ce site m'avait amené à créer un super outil. Tellement super qu'on me demande désormais de l'étendre...

Du coup je cherche à automatiser certaines tâches simples et me permettant de gagner un temps précieux!!

J'ai cherché dans le forum, certaines problèmatiques se rapprochent de mon problème mais je n'ai pourtant pas trouver une solution clair...

J'ai un tableau composé de plusieurs onglets avec des TCD dans chaque onglet

chaque semaine, je rempli ma base de données en ajoutant la semaine actuel (par exemple 201232 pour 32eme semaine de 2012 puis 201233...)

une fois remplit et mis à jour, je dois aller sur chacun de mes TCD, décocher la semaine dernière, puis cocher la semaine en cours.

j'ai pensé avoir une solution à l'aide de l'enregistreur de macro mais il me donne la solution suivante:

ActiveSheet.PivotTables("TCD1").PivotFields("SEMAINE").CurrentPage = "(All)"
With ActiveSheet.PivotTables("TCD1").PivotFields("SEMAINE")
.PivotItems("201232").Visible = False
.PivotItems("201233").Visible = True
End With
End Sub

Si je fais ça pour les 52 semaines de l'année, ça risque d'être un peu long...

je sollicite donc votre bon coeur pour m'aider à trouver comment lui dire:

"cocher "semaine déja coché" +1"
"décocher "semaine déja coché"

Merci de m'avoir lu!!