Calcul de Formules
Résolu
mak1865
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
mak1865 Messages postés 11 Date d'inscription Statut Membre Dernière intervention - 22 sept. 2020 à 18:10
mak1865 Messages postés 11 Date d'inscription Statut Membre Dernière intervention - 22 sept. 2020 à 18:10
A voir également:
- Calcul de Formules
- Calcul moyenne excel - Guide
- Formules - Télécharger - Études & Formations
- Formules excel de base - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
- Formule calcul excel somme - Guide
2 réponses
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 ?
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 ?
Bonjour,
Avec des fonctions personnalisées
Pour les absences en AJ7et à tirer vers le bas, formule: =hr(D7:AH7;Feries)
Pour les heures suppl à 50% en AQ7et à tirer vers le bas, formule: =hs_50(D7:AH7;Feries)
Pour les heures suppl à 100% en AS7et à tirer vers le bas, formule: =hs_100(D7:AH7;Feries)
Le fichier
https://mon-partage.fr/f/xDnIzj5F/
Cdlt
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
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