VBA déplacer une forme en fonction de la date AUJOURDH'HUI et N°SEMAINE

Bonjour à tous, le forum !

Sur un calendrier comportant la date =AUJOURD'HUI() et les N° de semaines, j'aurais voulu déplacer un curseur (forme automatique : un rectangle par exemple) en fonction de la date du jour.

Ci-dessous un fichier exemple avec une forme automatique :

Voilà mon objectif est de déplacer la forme orange sur le N° de semaine actuel en fonction de la date.

Pourriez vous m'aider dans cette tâche s'il vous plaît ?

Cordialement,

Bonjour,

le plus simple serait de faire une MFC avec un fond coloré

par ailleurs, pour tes cellules en mois, je pense qu'il faudrait éviter de fusionner sinon tu devras les refaire chaque année !

Bonjour,

Une solution avec macro :

Coller cette macro dans le module ThisWorkbook

Private Sub Workbook_Open()
Dim i%
i = DatePart("ww", Date, 2, 2)
Feuil1.DrawingObjects(1).Left = Cells(9 + (2 * i)).Left
End Sub

A+

Bonjour Steelson et galopin01 !

Super ! je vous remercie tout les deux pour vos réponses elles fonctionnent à merveille.

Je vais voir si j'utilise l'une ou l'autre mon fichier n'est pas encore totalement fini

PS : merci pour le conseil sur les mois ;)

Cordialement,