Bonjour
Après multiples essais je vois une évolution satisfaisante, pour la macro qui effectue les calculs, les résultats on l'air d'être bon.
Malheureusement quelques petit hic !!
- au moment d'effectuer une modification il y a un beug à la macro :
Private Sub CmbModifier_Click() "dans UF_Modif"
With Sheets("Data")
.Range("A" & Ligne) = CDate(Me.TextBox1.Value) ' La date
.Range("B" & Ligne) = Me.ComboBox1 ' Nom de la personne
.Range("C" & Ligne) = CDate(Me.TextBox2) ' Heure début
.Range("C" & Ligne).NumberFormat = "hh:mm;@" ' On formate la cellule
.Range("D" & Ligne) = CDate(Me.TextBox3) ' Heure fin
.Range("D" & Ligne).NumberFormat = "hh:mm;@" ' On formate la cellule
* Je suppose que c'est le CDate qui pose problème car ces TextBox qui corresponde à des heures.
J'ai tenté de supprimer le CDate et les paranthèses, ça avez l'air de fonctionné mais ensuite ---->
- au moment de quitter sur UF1 il y a le beug de la macro :
Sub Calcul()
Else ' Ce n'est pas un dimanche
If .Cells(Ligne, Colonne) <> "" Then ' Des horaires ?
TotSem = TotSem + (.Cells(Ligne, Colonne + 1) - .Cells(Ligne, Colonne)) ' On ajoute au compteur hebdomadaire les heures
End If
End If
du coup ça ne calcul plus le total du mois pour les 2 dernières personnes. Mais on vois la fin arriver, c'est bon signe
J'ai rempli Février pour les essais , fichier en PJ.