Calcul de Formules [Résolu]

Signaler
Messages postés
7
Date d'inscription
mardi 22 septembre 2020
Statut
Membre
Dernière intervention
26 septembre 2020
-
Messages postés
7
Date d'inscription
mardi 22 septembre 2020
Statut
Membre
Dernière intervention
26 septembre 2020
-
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.

2 réponses

Messages postés
52505
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 octobre 2020
14 364
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 ?
Messages postés
7
Date d'inscription
mardi 22 septembre 2020
Statut
Membre
Dernière intervention
26 septembre 2020

Bonsoir Monsieur Raymond;

Merci de votre collaboration, aussi-que de l'intérêt que vous vous m'aviez réservé,

Or, je vous informe que cette feuille vraiment c'est moi qui la créer, selon le travail de la société ou je bricole, et à cette effet, je vous informe que la réglementation en Algérie prévoie 40 heures de travail en semaine, sur 05 jours de travail, dont une 1/5 (une demi-heure) est considérée comme pause, aussi-que les heures supplémentaires ne doivent en au qu'un cas dépassées les 20%, Soit 35 Heures au mois.

Au sein de la Société, il existe 2 équipe organisée en 2x8 discontinu, soit 8 h de travail pour chaque équipe, étant donné que le repas n'est pas assuré par la Société, ,pour l'inexistence de cantine, donc chaque équipe ouvre droit à cette demi heure, puisque celle-ci ne s'arrête pas et continue son travail.

par ailleurs, vous considérés que les formules réalisées par mes soins sont des cellules compliquées, je vous dis le contraire, que les cellules restantes (Absences Heures et Heurs supplémentaires sont très compliquées par apport aux autres;

a titre d'information je suis un débutant dans la programmation d'Excel, et j'ai réalisé cette feuille en basant sur les court de youtube

Merci Monsieur et Bon Courage
Messages postés
2169
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
22 octobre 2020
293
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
Messages postés
7
Date d'inscription
mardi 22 septembre 2020
Statut
Membre
Dernière intervention
26 septembre 2020

Monsieur Frenchie83 ;

Vraiment je vous remercie infiniment de votre collaboration et votre soutenance, vraiment c'est géniale ;

recevez mes meilleurs souhaits, et sincères salutations;