Microsoft 365 Ecrire une formule de calcul en Vba Excel

[NONO14]

Bonjour à toutes et à tous,

Comment pourrait-on écrire cette formule de calcul en Vba, s'il vous plaît ? Pour le moment elle est écrite en dur dans des cellules Excel de mon tableau.
Cependant, il m'est demandé de l'écrire dans du code afin que personne ne puisse y accéder. Cette formule se trouve dans la colonne J du tableau de la feuille "Recap", il y en d'autres du même genre dans les colonnes K et L et un peu plus simples dans les colonnes M, N, O.
Bien sûr je pourrais protéger ces colonnes mais ce n'est pas ce qui m'est demandé, j'ai proposé cette solution, mais elle ne garantie pas une sécurité suffisante en cas d'effacement malencontreux par la personne qui va gérer ce fichier.
MAX_MAT et autres sont des Noms donnés à des cellules de la feuille "Données", soit les cellules L3 à O5.
Mot de passe de la feuille "falaise"
Merci par avance pour vos idées.

=SI(A2="";"";SI(A2<>"";SI(ET(D2<>"";E2<>"");E2-D2;SI(ET(D2<>"";E2="";F2<>"");MAX_MAT-D2;SI(ET(D2<>"";E2="";ET(F2<>"";G2=""));"";SI(ET(D2<>"";E2="";F2="";G2="";H2="";I2<>"");MAX_MAT-D2;SI(ET(D2<>"";E2="";F2="";G2<>"");MAX_MAT-D2;SI(ET(D2<>"";E2="";ET(F2="";G2="");ET(H2="";I2<>""));I2-D2;SI(ET(D2<>"";E2="";F2="";G2="");MAX_MAT-D2;SI(D2="";""))))))))))

 

[vgendron]

c'est en V7 ou V8,
la macro SauvegarderPointages existe toujours dans la V9 dans le module2

 

[NONO14]

Hello

dans le code du TexCode_Change,
il y a des redondances ==> tu refais ce qui a été fait juste avant..

1) la boucle que je t'ai expliquée, affiche ou masque les CheckBox si il y a une saisie ou pas dans le textbox associé

2) ensuite, il y a une serie de test "if..... then" pour chaque checkbox ==> ca refait la meme chose ==> inutile

3) après tu as toute la série des if pour afficher ou pas, et mettre le message d'autorisation de badger
l'usine à gaz est peut etre la...
mais encore une fois.. ca refait ce qui a déjà été fait dans la boucle..
==> comme il semble y avoir pas mal de conditions dans ces if, peut etre que c'est la boucle qui est inutile...?

Dans le code de "CalculerTotalJournée"
il faut revoir, parce que tu y a fait des modifs par rapport à mon original qui n'ont pas de sens..
exemple
Total=cdate(Total=0)

(Total=0)==> retourne Vrai ou faux
cdate( vrai ou faux)==> ca ne donnera jamais une date
enfin.. si.; mais pas du tout ce que tu penses
Vrai = 1==> Cdate(1) = 01/01/1900 00:00
Faux=0 ==>Cdate(0) = 00/01/1900 00:00

Lorsque j'écris Total=0, je veux dire que le résultat du calcul sera zéro.
Apparemment ce n'est pas la bonne façon de faire.

 

[NONO14]

c'est en V7 ou V8,
la macro SauvegarderPointages existe toujours dans la V9 dans le module2

Je l'ai retrouvé.

 

[vgendron]

pour le calcul total, il faut "juste" définir comment tu calcules lorsqu'il manque des pointages

Public Sub CalculerTotalJournée() 'à revoir
Dim Total As Date

    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat <> "" Then Total = CDate(Me.Tbx_FinMat) - CDate(Me.Tbx_DebMat) 'total du matin si deux pointages le matin
    If Me.Tbx_DebAPM <> "" And Me.Tbx_FinAPM <> "" Then Total = Total + CDate(Me.Tbx_FinAPM) - CDate(Me.Tbx_DebAPM) 'on rajoute le total de l'APM si deux pointages l'APM
    If Me.Tbx_DebSoir <> "" And Me.Tbx_FinSoir <> "" Then Total = Total + CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebSoir) 'on rajoute le total du soir si deux pointages le soir
 
    'traiter ensuite les cas ou un seul pointage sur deux a été fait ??
    
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" Then
        Total = CDate(Total = 0) 'calcul erroné ==> mettre Total=0 suffit
    End If
    
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM <> "" Then
        Total = CDate(Me.Tbx_FinAPM) - CDate(Me.Tbx_DebMat) 'pas de pause du midi?
    End If
    
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir = "" Then
        Total = CDate(Total = 0) 'calcul erroné ==> mettre Total=0 suffit
    End If
    
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebMat) 'journée continue?
    End If
    
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM <> "" And Me.Tbx_DebSoir <> "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinAPM) - CDate(Me.Tbx_DebMat) + CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebSoir)
    End If
    
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir <> "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebSoir)
    End If
    
    If Me.Tbx_DebMat = "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Total = 0) 'calcul erroné ==> mettre Total=0 suffit
    End If
    
    If Me.Tbx_DebMat = "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM <> "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebAPM)
    End If
    
    Me.T_bx_TotJour = CDate(Total)
    Me.T_bx_TotJour = Application.Text(Total, "[h]:mm")
End Sub

 

[NONO14]

pour le calcul total, il faut "juste" définir comment tu calcules lorsqu'il manque des pointages

Public Sub CalculerTotalJournée() 'à revoir
Dim Total As Date

    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat <> "" Then Total = CDate(Me.Tbx_FinMat) - CDate(Me.Tbx_DebMat) 'total du matin si deux pointages le matin
    If Me.Tbx_DebAPM <> "" And Me.Tbx_FinAPM <> "" Then Total = Total + CDate(Me.Tbx_FinAPM) - CDate(Me.Tbx_DebAPM) 'on rajoute le total de l'APM si deux pointages l'APM
    If Me.Tbx_DebSoir <> "" And Me.Tbx_FinSoir <> "" Then Total = Total + CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebSoir) 'on rajoute le total du soir si deux pointages le soir
 
    'traiter ensuite les cas ou un seul pointage sur deux a été fait ??
   
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" Then
        Total = CDate(Total = 0) 'calcul erroné ==> mettre Total=0 suffit
    End If
   
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM <> "" Then
        Total = CDate(Me.Tbx_FinAPM) - CDate(Me.Tbx_DebMat) 'pas de pause du midi?
    End If
   
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir = "" Then
        Total = CDate(Total = 0) 'calcul erroné ==> mettre Total=0 suffit
    End If
   
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebMat) 'journée continue?
    End If
   
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM <> "" And Me.Tbx_DebSoir <> "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinAPM) - CDate(Me.Tbx_DebMat) + CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebSoir)
    End If
   
    If Me.Tbx_DebMat <> "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir <> "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebSoir)
    End If
   
    If Me.Tbx_DebMat = "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM = "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Total = 0) 'calcul erroné ==> mettre Total=0 suffit
    End If
   
    If Me.Tbx_DebMat = "" And Me.Tbx_FinMat = "" And Me.Tbx_DebAPM <> "" And Me.Tbx_FinAPM = "" And Me.Tbx_DebSoir = "" And Me.Tbx_FinSoir <> "" Then
        Total = CDate(Me.Tbx_FinSoir) - CDate(Me.Tbx_DebAPM)
    End If
   
    Me.T_bx_TotJour = CDate(Total)
    Me.T_bx_TotJour = Application.Text(Total, "[h]:mm")
End Sub

Tu as raison concernant le temps de pause qui est à déterminer selon le planning de travail.
Un(e) employé(e) commençant à 11h00 n'aura pas sa pause au même moment que celui ou celle commençant à 6, 7 ou 8h. Je ne sais pas encore comment on va appliquer ça, c'est pourquoi, pour le moment j'ai besoin de ces calculs. Pour un planning normal, arrivée/départ le matin ou après-midi ou soir ne va pas engendré de problème, mais les plannings sur plusieurs plages ça risque de se compliquer. Est-ce que le responsable va imposer une pause ou pas, cela va dépendre du temps de travail. En tout état de cause, d'après les informations reçues, le temps de travail devrait rarement dépasser le temps prévu au planning de chacun ou chacune.
Cependant, merci beaucoup pour la correction du code.

 

[NONO14]

Légalement, après 6h de travail consécutif, un(e) employé(e) a le droit à une pause de 20mn minimum non déduite. La pause déjeuner, elle, sera déduite, est de 45mn minimum.