Bonjour à tous,
je travaille actuellement sur la réalisation d'un planning de production qui est mis à jour quotidiennement. A chaque mise à jour, je dois remettre :

  • B1 à la date d'aujourd'hui
  • C1 à J+1
  • D1 à J+2
  • Etc


Pour l'instant, voici mon code (ma boucle saute 6 car j'ai fusionné des cellules de ma ligne n°1) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Sheets("Planning").Range("B1").Value = Format(Now(), "dd mmm")
For j = 8 To 168 Step 6
 
        Sheets("Planning").Cells(1, j).Value = DateAdd("ww", j / 6, Date)
 
Next j
MAIS je veux exclure uniquement les dimanches et étant donné que B1 peut être n'importe quel jour de la semaine, je ne vois pas comment faire.
Pourriez-vous m'aider ?
Merci d'avance.