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
merci
Re,Le système indique une incohérence et ne met pas le nombre d'heures prestées?
merci et agréable journée.
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 toutRe,
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.
C'est ce que je pensais, l'incohérence était les jours incomplets.ca fonctionne!!!!!
merci!!!! je vais faire encore quelques tests...
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.Le système indique une incohérence et ne met pas le nombre d'heures prestées?
Private Sub TextBoxh1_change()
If TextBoxh1.TextLength = 2 Then TextBoxh1.Text = TextBoxh1 + ":"
End Sub
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
Bonjour,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