Calcul de Formules Résolu

Question

Bonjour, 

Bonjour à toutes et à tous, Je vous présente mes meilleurs respects et mes meilleurs remerciements sur vos efforts pour aider l'ensemble, et je vous sollicite si vous permettez de m'aider à compléter mon tableau de pointage pour les additions des totaux du tableau ci-joint,

a) Absences Heures (Hr) Colone AJ :
1- Trouvez les cellules <au chiffre (7,5) ;
2- Si oui (s'il existe), calculer l'écart dans les cellules demandées (la valeur < (inférieur) à 7,5 - 7,5), Résultat en négative (-) ;
Exemple dans mon état: (Employé1)
E7=6{6-7,5=-1,5}; F7=7{7-7,5=-0,5}; I7=1,5{1,5-7,5=-6}; Z7=6{6-7,5=-1,5}; AD7=6,5{6,5-7,5=-1}
Total Heures Absences (Hr Abs) = -1,5+-0,5+-6+-1,5+-1=-10,5
3- exclus (ne pas compter) les weekend et les fériées ;
Ne pas Compter (Tableau) = X7(Vendredi)=3; Y7(Samedi)=5; aussi que les fériées s'il y a des valeurs;

b) Heures Supplémentaires (Total Hr Sup 50%) (Colone AQ) = (Les chiffres Supérieur à 7,5) =
Formule = (Toutes Les Valeurs (Supérieur) > à 7,5 - 7,5) + (Uniquement les valeurs de Samedi)
Exemple dans mon état: (Employé2)
E8=6{8-7,5=0,5}; F8=8{8-7,5=0,5}; G8=10{10-7,5=2,5}; H8=9{9-7,5=1,5}; I8=8,5{8,5-7,5=1}; AA8; AB8, AC8; AD8; AG8; AH8=8{8-7,5=0,5}; sans oublié
le Samedi de la cellule K8=6
Total Hr Sup 50%) (Colone AQ) = 0,5+0,5+2,5+1,5+1+0,5+0,5+0,5+0,5+,05+0,5+6=15

c) Heures Supp à 100% - (Colone AS) = (Tous les chiffres)
Formule = (Les Valeurs Vendredi) + (les Valeurs journées Fériées)
Exemple dans mon état: (Employé2)
J8=4
Heures Sup à 100%) (Colone AS) = 4

le lien du Tableau : 
https://forum.excel-pratique.com/d/download?p=901327&f=73829_5f6400e9aa958077681957

Sincères Salutations et Merci encore.

Raymond PENTIER · Answer

Bonsoir.

Cette feuille de calcul, c'est toi qui l'a créée ? Ou bien l'as-tu récupérée quelque part ?
Elle contient des macros : Tu pratiques le VBA ? 
Dans les colonnes AK à AP tu as déjà des formules vachement compliquées ; alors pourquoi nous solliciter pour des formules qui ne sont pas plus difficiles, et dont tu as tous les éléments ?

Frenchie83 · Answer

Bonjour,

Avec des fonctions personnalisées
Pour les absences en AJ7et à tirer vers le bas, formule: =hr(D7:AH7;Feries)

Function Hr(Plage As Range, Feries As Range) As Double
    For Each cell In Plage
        On Error Resume Next
        If Application.Match(Cells(6, cell.Column), Feries, 0) = 0 Then
            If cell <> "" And cell < 7.5 And IsNumeric(cell) And _
            Application.Weekday(Cells(6, cell.Column), 1) < 6 Then Hr = Hr + cell - 7.5
        End If
    Next
End Function

Pour les heures suppl à 50% en AQ7et à tirer vers le bas, formule: =hs_50(D7:AH7;Feries)

Function Hs_50(Plage As Range, Feries As Range) As Double
    For Each cell In Plage
        On Error Resume Next
        If Application.Match(Cells(6, cell.Column), Feries, 0) = 0 Then
            If Application.Weekday(Cells(6, cell.Column), 1) < 6 Then
                If cell <> "" And cell > 7.5 And IsNumeric(cell) Then Hs_50 = Hs_50 + cell - 7.5
            ElseIf Application.Weekday(Cells(6, cell.Column), 1) = 7 Then
                If cell <> "" And IsNumeric(cell) Then Hs_50 = Hs_50 + cell
            End If
        End If
    Next
End Function

Pour les heures suppl à 100% en AS7et à tirer vers le bas, formule: =hs_100(D7:AH7;Feries)

Function Hs_100(Plage As Range, Feries As Range) As Double
    For Each cell In Plage
        If cell <> "" And IsNumeric(cell) Then
            On Error Resume Next
            If Application.WorksheetFunction.IfError(Application.Match(Cells(6, cell.Column), Feries, 0), 0) > 0 Then
                Hs_100 = Hs_100 + cell
            Else
                If Application.Weekday(Cells(6, cell.Column), 1) = 6 Then Hs_100 = Hs_100 + cell
            End If
        End If
    Next
End Function

Le fichier
https://mon-partage.fr/f/xDnIzj5F/

Cdlt

Calcul de Formules

2 réponses

Votre réponse

Discussions similaires