Microsoft 365 Planning astreinte Excel

[Snake53]

Bonjour à tous,

je suis nouveau sur le forum, et je tiens à vous féliciter pour l’excellent travail d’entraide que vous apportés aux membres de ce forum après avoir parcouru celui-ci à la recherche d’une solution.
Je ne suis pas un expert sur Excel et j'ai créer un planning d'astreinte mensuelle avec 2 personnes par semaine avec1 agent en n°1 (couleur pleine) et 1 agent en n°2 (couleur rayée) avec un début d'astreint le vendredi midi et fin d'astreinte le vendredi midi suivant avec récupération le vendredi après-midi pour les 2 agents et cela pour l'année complète.
Jusque la tout va bien mais cela ce complique pour moi car je voudrais que ce planning soit automatisé c'est à dire qu'avec un bouton regenerer planning par exemple, qu'il modifie les jours et dates en fonction de l'année et qu'il planifie les semaines d'astreinte en fonction des congés de façon aléatoire d'une année sur l'autre et pas avec les mêmes agents systématiquement pour qu'il y est un roulement.
Je vous joint mon fichier planning pour la basse de travail.
Dans l’espoir que vous puissiez m'aider
Bien cordialement
Laurent

 

[Snake53]

Bonjour Laurent,
A priori, je penche pour un problème de version d'excel.
Voici une version "retro-compatible" qui devrait aller avec les anciennes versions d'excel.
Si ça ne fonctionne toujours pas, je ne vois pas bien ce que je peux faire de plus.
En tout cas c'est fonctionnel à partir de Excel 2016.
Pierre

Bonjour p56,
Effectivement j'utilise excel 2010 avec la version retro-compatible cela fonctionne, par contre et j'en suis désolé, mais quand je change de trimestre le numéro de semaine ne s'affiche plus, c’était déjà comme comme ca avec les autres versions
Je vous joins une capteur d’écran

 

[Snake53]

Alors même cause, même conséquence
Votre version ne connait pas la fonction NO.SEMAINE.ISO
Il suffit alors de faire un chercher NO.SEMAINE.ISO/remplacer par IsoWeekNum
Dans ce fichier ça sera Ok
P.
Exemple ici en J4
Regarde la pièce jointe 1209933

il n'y a pas de de fonction NO.SEMAINE.ISO, la formule est deja comme sur votre exemple.

 

[p56]

Alors, pas tout à fait ...
Du fait de votre version d'excel la fonction NO.SEMAINE.ISO a été remplacée par l'expression _xlfn.ISOWEEKNUM
Pour vous le préfixe _xlfn. "de trop" (le point à la fin y compris) est à supprimer pour ne garder que IsoWeeknum
Ceci dit, et si vous le pouvez, il serait grand temps de changer de version pour un Excel plus récent ... si vous le pouvez ...

 

[VIARD]

Bonjour à tous et bonne de fin d'année

Pour le numéro de semaine une solution

Sub Numéro_Semaine()
Dim N$
N = Format(Now, "ww", vbMonday, vbFirstFourDays)
MsgBox N
End Sub

Je suis sous Excel2007, autrement Excel365
il suffit de modifier la date.

Salutation

 

[p56]

Bonjour à tous et bonne de fin d'année

Pour le numéro de semaine une solution

Sub Numéro_Semaine()
Dim N$
N = Format(Now, "ww", vbMonday, vbFirstFourDays)
MsgBox N
End Sub

Je suis sous Excel2007, autrement Excel365
il suffit de modifier la date.

Salutation

Bonjour Viard,
Alors oui ... mais non.
Avec votre code la date du 31/12/2007 donne la semaine 53 alors que la semaine ISO de cette date est 1
Même effet pour le 31/12/2035, et d'autres valeurs => num semaine non ISO
Votre code n'est donc pas sûr à 100% pour de l'ISO
Le code contenu dans le fichier que je propose donne une numérotation ISO correcte
P.

 

[VIARD]

Bonjour Pierre

Tu as raison, mais chez moi ça fonctionne correctement, j'ai omis le traitement supplémentaire.
La dernière semaine c'est bien le 1 et non 53
to err is human

Jean-Paul

 

[VIARD]

Bonjour @Snake53, @p56 et à tous

Concernant le N° de semaine une solution par fonction.

Function lenosem(LaDate As Date) As Variant
    For n = CDate("01/01/" & Year(LaDate)) To CDate("07/01/" & Year(LaDate))
      If Weekday(n) = 5 Then pRe = n - 3
    Next n
      lenosem = Int((LaDate - pRe) / 7) + 1
      If lenosem = 53 And Weekday("31/12/" & Year(LaDate)) < 5 Then lenosem = "1 de " & Year(LaDate) + 1
      If lenosem = 0 Then lenosem = lenosem(LaDate - 1)
End Function
=======================
Sub Numéro_Semaine2() 'Test
Dim Dat As Date
Dat = Cells(10, 1).Value 'date testée en "A10"
Cells(10, 2).Value = lenosem(Dat) 'N° semaine en "B10"
End Sub
=======================

Bonne fête à tous
Cordialement

 

[p56]

Viard, c'est gentil de proposer du code, mais pour ce calcul une fonction existe déjà dans mon fichier au #33
Le tout étant parfaitement fonctionnel sous xl2010 et suivant
Inutile d'ajouter de la confusion pour le demandeur ...

 

[Snake53]

Bonsoir,

Et bien un grand merci pour tout et félicitation👏