Microsoft 365 planning pour gestion d'horaire modif

smahancharif · 3 Septembre 2021

bonjour je suis nouvelle ici et je souhaiterai créer un planning où les 47 employés pourrait intégrer leurs horaires il y 4 types d'horaires et 3 tupes de pauses.

merci

GALOUGALOU · 12 Janvier 2022

bonsoir le fil, salutations à etoto et à chti160
re smahancharif

j'ai pris en compte votre demande, (ce qui m'a amené à modifier beaucoup de macro) tout en développant une solution basée sur le fil 143, Classeur perpétuel avec sauvegarde automatique une fois par semaine. (si vous ne souhaitez pas de sauvegarde vous pouvez la neutraliser, en cellule X2 de la feuille Configuration)

J'ai supposé que vous ne travaillez pas les jours fériés, j'ai donc adopté une solution ou les jours fériés sont neutralisé dans le formulaire. (faites un essai avec la semaine 21, 44, 45 de l'année 2022)

exemple : si vous travaillez le lundi de pentecôte, supprimez la date de la feuille configuration

Dans ce classeur, l'année à l'ouverture correspond à la...

GALOUGALOU · 9 Septembre 2021

re etoto
j'ai essayé de telecharger le classeur du fil 22 sur un autre ordi et je n'ai pas constaté le problème évoqué, donc je n'ai pas de réponse pour l'immédiat
cdt
galougalou

smahancharif · 9 Septembre 2021

smahancharif à dit:
et il y a aussi un problème avec l'horaire du lun au jeu: j'ai pas mes 8h?
oucou non ca ira c'est super gentil. par contre peux-tu m'expliquer a quoi ser la colonne A et pourquoi au niveau des semaines colonne c il a y 1 horaire sem37 et 40? merci
Regarde la pièce jointe 1115126

Citer

@GALOUGALOU excuse-moi j'ai bien mes 8h mais c'est la Casa AM qui m'a induite en erreur... d'ailleurs pourquoi il y est indique 3h30? merci encore pour tout

GALOUGALOU · 9 Septembre 2021

re
après choix des combobox sur la prise de service et la pause, c'est la durée de travail restant pour l'après midi pour respecter la durée hebdomadaire de 8h00
petite précision l'opérateur ne doit pas oublier de faire le choix du numéro de semaine
cdt

GALOUGALOU · 9 Septembre 2021

re etoto fil 23
as-tu essayé de choisir débogage pour mettre en évidence ligne de macro qui pause problème ?

Etoto · 9 Septembre 2021

Ouais, ça bloque là :

VB:

 ActiveWorkbook.Worksheets("Base").Sort.SortFields.Add2 Key:=Range("C3:C10000") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

GALOUGALOU · 9 Septembre 2021

re etoto
c'est une macro dans l'événement feuille, pour trier la feuille Base
elle n'est pas indispensable, essaye de la supprimer pour voir le résultat.
cdt

Etoto · 9 Septembre 2021

GALOUGALOU à dit:
re etoto
c'est une macro dans l'événement feuille, pour trier la feuille Base
elle n'est pas indispensable, essaye de la supprimer pour voir le résultat.
cdt

Oui ça fonctionne désormais, tu savais pourquoi ça bloquait ?

GALOUGALOU · 9 Septembre 2021

Je ne suis pas sur et c'est bien dommage, j'aimerais comprendre pourquoi cela ne fonctionne pas chez toi.
(je pense qu'au moment du tri, la feuille Base ne doit pas être visible et c'est ce qui déclenche l'erreur)

GALOUGALOU · 9 Septembre 2021

re etoto
allez je te sollicite pour un essai
pourrais-tu modifier la macro evenenent feuille de la feuille base et me faire retour de ton experience

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If Sheets("Base").Visible = True Then
On Error Resume Next
   Range("A3:L10000").Select

    ActiveWorkbook.Worksheets("Base").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Base").Sort.SortFields.Add2 Key:=Range("C3:C10000") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Base").Sort
        .SetRange Range("A3:L10000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
      Range("A9500:L10000").Select
    Selection.ClearContents
     Range("A3").Select
     End If
    Application.ScreenUpdating = True
End Sub

cdt

Etoto · 9 Septembre 2021

GALOUGALOU à dit:

re etoto
allez je te sollicite pour un essai
pourrais-tu modifier la macro evenenent feuille de la feuille base et me faire retour de ton experience

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If Sheets("Base").Visible = True Then
On Error Resume Next
   Range("A3:L10000").Select

    ActiveWorkbook.Worksheets("Base").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Base").Sort.SortFields.Add2 Key:=Range("C3:C10000") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Base").Sort
        .SetRange Range("A3:L10000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
      Range("A9500:L10000").Select
    Selection.ClearContents
     Range("A3").Select
     End If
    Application.ScreenUpdating = True
End Sub

cdt

Hello,

J'ai testé ton code et il est fonctionnel, je n'ai pas eu l'erreur qui est apparue. Merci !

GALOUGALOU · 9 Septembre 2021

re smahancharif
suite au retour d'expérience de Etoto, il faut modifier la macro évenement feuille de la feuille base

-vous ouvrez le classeur en admin
-dans ce fil, vous copier le code du fil 39
-clic droit sur la feuille base, en bas sur le nom de l'onglet
-visualiser le code
-supprimer le code visible et coller le nouveau code
-enregistrer votre classeur
cdt
galougalou

ChTi160 · 9 Septembre 2021

Bonjour le Fil
Bonjour le forum
Etoto
tu dis :

je n'ai pas eu l'erreur qui est apparue.

Normal non ? y'a le :

On Error Resume Next

si tu le supprimes ca donne quoi ?
Bonne fin de Journée
jean marie

Etoto · 9 Septembre 2021

Hello @ChTi160,
Je sais qu'il y'a le On error resume Next et si je le supprime l'erreur réapparait, selon @GALOUGALOU la ligne qui pose problème :

GALOUGALOU à dit:
n'est pas indispensable

Du coup y'a pas de problème.

smahancharif · 9 Septembre 2021

GALOUGALOU à dit:
re smahancharif

il suffit de cliquer sur la petite flèche pour voir tous les horaires. Si d'aventure il manque une information, il faut corriger la feuille configuration colonne M et N

utile a la macro. en cas de modification sur une saisie valide, cela permet d'identifier la bonne ligne.

Il faut prendre du recul. C'est un classeur de test avec des informations inutiles (mais utile aux test)
toutes ces informations sont a supprimés. au bout de plusieurs semaine cette feuille sera remplie par des centaines d'informations. (voir les messages précédent)(pour les opérateurs il n'est pas utile de consulter la feuille Base, cette feuille ne sert qu'à stocker l'ensemble des informations saisies par les collaborateurs
cdt
galougalou

merci! autre petite modification: est-ce que l'on pourrait faire le même planning mais en laissant la possibilité de choisir la pause de midi en fonction du jour et non pas le figer pour le lundi au jeudi?
merci

Etoto · 9 Septembre 2021

smahancharif à dit:
en fonction du jour et non pas le figer pour le lundi au jeudi?

Cela va pas lui faciliter la tache, bonne chance @GALOUGALOU

Microsoft 365 planning pour gestion d'horaire modif

smahancharif

XLDnaute Junior

GALOUGALOU

GALOUGALOU

XLDnaute Accro

smahancharif

XLDnaute Junior

GALOUGALOU

XLDnaute Accro

GALOUGALOU

XLDnaute Accro

Etoto

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

Etoto

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

GALOUGALOU

XLDnaute Accro

Etoto

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

smahancharif

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Discussions similaires