Microsoft 365 Planning ménage sur 4 semaines (S1 à S4) et onglet 'attendu pour savoir ce qui est attendu. Idées de solution, améliorations ?

[anthoYS]

Bonjour



voir fichier joint, n'hésitez pas à poser des questions si ce n'est pas clair.



Merci

 

[job75]

Bonjour,

En Feuil1 rien ne permet de savoir que le 1er Lundi est le 28 juillet 2025 !!!

A+

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ françois

 

[anthoYS]

Bonjour
Ci joint ma solution

A+ françois

Normal, rien n'apparaît sur la feuille, ni le bouton pour la RAZ, ni les MEFC ni de code VB. Seule une nouvelle feuille voir capture ci-joint. Merci ! (Où alors c'est une histoire de sécurité mais je n'ai aucun message à l'ouverture)

 

[anthoYS]

Bonjour,

En Feuil1 rien ne permet de savoir que le 1er Lundi est le 28 juillet 2025 !!!

A+

En fait, la feuille 'attendu permet de le comprendre.

Sinon, partir du 1er lundi en fonction de la date du jour. Dans 4 semaines, il faudrait que le premier lundi soit le 25 août 2025.
Ainsi de suite, et repartir de zéro chaque 4 semaines.

 

[fanfan38]

Bonjour
Sur le fichier (post#3) le 25 Août est le premier Lundi
Aucune macro... Pas de bouton RAZ...
Si tu change la semaine le tableau se met à jour automatiquement
Ce ne sont que des formules qui utilise la date (en colonne B) pour faire la correspondance avec la feuille1
la date est divisé par 28 et le reste de la division donne la ligne...

A+ François

 

[job75]

Bonjour le forum,

On peut mettre en A2 le dernier lundi précédent la date du jour :

=AUJOURDHUI()+1-JOURSEM(AUJOURDHUI();2)

En A3 =A2+1 et tirer sur 4 semaines.

Le tableau se mettra à jour chaque lundi.

A+

 

[anthoYS]

Bonjour le forum,

On peut mettre en A2 le dernier lundi précédent la date du jour :

=AUJOURDHUI()+1-JOURSEM(AUJOURDHUI();2)

En A3 =A2+1 et tirer sur 4 semaines.

Le tableau se mettra à jour chaque lundi.

A+

bonjour le forum,

tout est coloré de jaune or voir onglet 'attendu... seul le jour en cours doit être en jaune, la ligne...

 

[anthoYS]

Bonjour
Sur le fichier (post#3) le 25 Août est le premier Lundi
Aucune macro... Pas de bouton RAZ...
Si tu change la semaine le tableau se met à jour automatiquement
Ce ne sont que des formules qui utilise la date (en colonne B) pour faire la correspondance avec la feuille1
la date est divisé par 28 et le reste de la division donne la ligne...

A+ François

D'accord, c'est impeccable, merci beaucoup !

 

[fanfan38]

Bonjour
Avec les couleurs et la modif de JOB 75 (Salut)
Si cellule fond vert, au double clic on enlève le vert...
qui dit double clic dit MACRO (VBA)...

A+ François

 

[job75]

Bonjour le forum,

Une solution VBA avec dans ThisWorkbook :

Private Sub WorkBook_Open()
Dim i As Byte
With [A2]
    If Not IsDate(.Cells) Then MsgBox "A2 doit être une date !": Exit Sub
    If Weekday(.Cells) <> 2 Then MsgBox "A2 doit être un lundi !": Exit Sub
    .Cells = Date - (Date - .Cells) Mod 28 + 28 * (Date < .Cells)
    For i = 2 To 28: .Cells(i) = .Cells(i - 1) + 1: Next i 'sécurité
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

La macro s'exécute à l'ouverture du fichier.

Vous pouvez tester en décalant la date en A2 d'un multiple de 28 jours, par exemple :

- 26/03/1900, 23/04/1900

- 20/12/9999, 22/11/9999.

A+

 

[anthoYS]

Bonjour,

Merci beaucoup à tous les deux !