Microsoft 365 planning pour gestion d'horaire modif

smahancharif

XLDnaute Junior
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
 
Solution
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...

smahancharif

XLDnaute Junior
Bonjour,

vous êtes extraordinaire!!! merci!! par contre je vien de faire un test et voici ce que j'ai
1641542309330.png
 

smahancharif

XLDnaute Junior
Re,

Je test le fichier en même temps que toi pour vérifier si j'ai pas un autre résultat, mais moi ça fonctionne avec les mêmes heures du lundi. C'est peut-être parce que les autres jours sont vides et que c'est pas mon cas.
Re,

Je test le fichier en même temps que toi pour vérifier si j'ai pas un autre résultat, mais moi ça fonctionne avec les mêmes heures du lundi. C'est peut-être parce que les autres jours sont vides et que c'est pas mon cas.
ok je vais essayer en remplissant tout
 

GALOUGALOU

XLDnaute Accro
re fil 136
Le système indique une incohérence et ne met pas le nombre d'heures prestées?
on peut voir dans votre image que le curseur clignote dans la textbox. l'évenement se déclenchant en quittant la textbox, les calculs ne sont pas réalisés". (voir deuxième macro) donc la solution soit clic dans un autre textbox ou alors valider par la touche entrée.
Effectivement pour le lundi

au fur et à mesure de la saisie ce code pour le respect du format horaire
VB:
Private Sub TextBoxh1_change()
If TextBoxh1.TextLength = 2 Then TextBoxh1.Text = TextBoxh1 + ":"
End Sub

après la saisie pour la mise à jour des calculs
Code:
Private Sub TextBoxh1_AfterUpdate()
On Error Resume Next
TextBox22 = "12:00"
If ComboBox4 = "X" Then TextBox301 = CDate(TextBoxh1) - CDate(ComboBox3): TextBox26 = "": TextBox23 = "": TextBox22 = "": TextBox27 = ""
If ComboBox4 <> "X" Then TextBox27 = CDate(TextBoxh1) - CDate(ComboBox4): TextBox26 = CDate(ComboBox4) - CDate(TextBox22)
If TextBoxh1 >= "12:00" Then TextBox23 = CDate(TextBox22) - CDate(ComboBox3)
If TextBoxh1 < "12:00" Then TextBox23 = CDate(TextBoxh1) - CDate(ComboBox3)
If TextBoxh1 < ComboBox4 Then CheckBox1 = True
If TextBoxh1 >= ComboBox4 Then CheckBox1 = False
If ComboBox4 = "X" Then CheckBox1 = False
TextBox301 = CDate(TextBox23) + CDate(TextBox27)
Call heureplus24
ComboBox3.Value = Format(ComboBox3.Value, "hh:mm")
ComboBox4.Value = Format(ComboBox4.Value, "hh:mm")
TextBoxh1.Value = Format(TextBoxh1.Value, "hh:mm")
TextBox22.Value = Format(TextBox22.Value, "hh:mm")
TextBox23.Value = Format(TextBox23.Value, "hh:mm")
TextBox26.Value = Format(TextBox26.Value, "hh:mm")
TextBox27.Value = Format(TextBox27.Value, "hh:mm")
TextBox301.Value = Format(TextBox301.Value, "hh:mm")
TextBox701.Value = Format(TextBox701.Value, "hh:mm")
End Sub
cdt
 

GALOUGALOU

XLDnaute Accro
re smahancharif
j'ai corrigé plusieurs problèmes de fonctionnement, (impression de fiche individuelle, Planning), une meilleure gestion des mots de passe.
j'ai réorganisé les macros pour une meilleure compréhension.
il me semble que ce classeur mériterait d'être amélioré. Actuellement figé sur une année, on pourrait le rendre perpétuel, on pourrait rajouter une sauvegarde automatique, une fois par semaine.
cdt
galougalou
 

Pièces jointes

  • Copie de 47 EMPLOYE EN FINALISATION v5.xlsm
    506.1 KB · Affichages: 4

GALOUGALOU

XLDnaute Accro
bonsoir chti160

yes, effectivement ils ont été supprimés de la feuille d'information
le mot de passe vba est MDP, l'ouverture par l'administrateur identifiant ADMIN mot de passe ADMIN. je vais le rajouter sur la page d'accueil.
perso j'ai téléchargé le fichier à partir d'internet et je n'ai pas eu ce problème, donc si tu peux m'éclairer ça serait top
cdt
 

smahancharif

XLDnaute Junior
re smahancharif
j'ai corrigé plusieurs problèmes de fonctionnement, (impression de fiche individuelle, Planning), une meilleure gestion des mots de passe.
j'ai réorganisé les macros pour une meilleure compréhension.
il me semble que ce classeur mériterait d'être amélioré. Actuellement figé sur une année, on pourrait le rendre perpétuel, on pourrait rajouter une sauvegarde automatique, une fois par semaine.
cdt
galougalou
Bonjour,

merci pour ces modifications. Par contre serait-il possible de le rendre perpétuel. ce serait l'idéal.

pourriez-vous le faire dans un second temps?

merci
 

ChTi160

XLDnaute Barbatruc
Bonjour le Fil
Bonjour le Forum
j'ai un problème avec, je pense, les Formes qui servent de Boutons !
est-ce dû a la protection ?????
Sinon ça fonctionne.
Bonne journée
Jean marie
 

Pièces jointes

  • GALOUGALOU-1.gif
    GALOUGALOU-1.gif
    126.4 KB · Affichages: 6
  • GALOUGALOU-2.gif
    GALOUGALOU-2.gif
    74.2 KB · Affichages: 3

GALOUGALOU

XLDnaute Accro
Re smahancharif

Il faudra quelques jours pour une mise au point.
Le principe de fonctionnement. Toutes les informations dépassées de 6 mois avec comme référence de départ aujourd’hui, seront effacé automatiquement une fois par semaine.
Année après année, Le calendrier s’actualisera automatiquement.

Re chti160

Comme quoi on est toujours plus fort à plusieurs, ce que je propose est le fruit de connaissance que j’ai glané sur le net, et entre autre, j’ai appris de ce que tu as proposé sur ce fil et ailleurs.
Cdt
galougalou
 

Discussions similaires

Statistiques des forums

Discussions
311 709
Messages
2 081 774
Membres
101 816
dernier inscrit
Jfrcs