Discussion :

[pythfred]

bonjour,

je cherche un moyen de calculer le temps d'arrêt machine,
pour ca j'ai une Macro qui lance le début et l'arrêt de l'intervention,
jusque la tout va bien!
la ou sa ce complique c'est dans le calcul du temps d'arrêt car je ne peut pas utiliser une fonction basic( j'ai fouiné sur le net et j'ai trouvé un code qui créer une fonction mais ca ne marche pas avec ma macro et ca ne décompte pas les jour fériée ).ce que je voudrais c'est que le temps d'arrêt soit calculé en fonction du temps d'ouverture de l'entreprise.
ex: durée d'une journée de travail 16h de 6h jusqu'a 22h et que les week -end et les jours férié ne soit pas prise en compte.
ci joint le fichier.
d'avance merci pour votre aide!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 12 Then
If Target.Value <> "" Then Cells(Target.Row + 1, Target.Column).Activate
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then
Target.Offset(0, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss") 'incrit la date
Target.Offset(0, 3) = Format(Now, "hh:mm:ss") ' inscrit l'heure
End If
If Target.Column = 12 Then
 Target.Offset(0, 1) = Format(Now, "dd/mm/yyyy hh:mm:ss") 'incrit la date
Target.Offset(0, 2) = Format(Now, "hh:mm:ss") ' inscrit l'heure
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function tps(debut, fin)
For n = debut To fin Step 1 / 14440
If Weekday(n) <> 1 And Weekday(n) <> 7 Then
 tp = tp + 1 / 14440
End If
End If
Next
tps = tp
End Function

[Philippe Tulliez]

Bonjour,
Pour calculer le nombre de jours ouvrés
sht Nom de la feuille
cells(15,1) date début cells(15,2) date fin
Le troisième argument de la fonction permet d'indiquer la plage des jours fériés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With sht
  Debug.Print Application.WorksheetFunction.NetworkDays(.Cells(15, 1), .Cells(15, 2))
 End With

nb : Cette fonction existe native dans Excel depuis la version 2007 avant il faut installler l'utilitaire d'analyse

[ZebreLoup]

Je me rappelle avoir déjà répondu à un ou deux sujets avec exactement la même problématique. Fais une recherche sur le forum, tu trouveras ton bonheur.

[pythfred]

tout d'abord merci pour votre aide!

j'ai trouvé ce code qui fonctionne bien mais si il y a une erreur de calul dans les donnée le code tourne en boucle et ne s'arrête plus !

y a-t-il une solution pour executer ce code pendant un temps donné ou bien pour sauter par dessus les éventuels erreur qui pourrait ce trouver dans les données ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function HeureOuvrées(Début, Fin, PlageFériés)
Application.Calculation = xlManual
For i = Début * 1 To Fin * 1 Step TimeValue("0:01")
If Hour(i) >= 6 And Hour(i) < 22 And Day(i) = Day(i + TimeValue("0:01")) _
And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _
 And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1
Next
HeureOuvrées = x / 1440
Application.Calculation = xlAutomatic
End Function

[ZebreLoup]

Tu as bien On Error Resume Next, mais fais très attention. Déjà il faut bien remettre On Error Goto 0 à la fin, et surtout, ta fonction risque de faire n'importe quoi !

Autre remarque, ça doit mettre longtemps à tourner. Pourquoi ne pas calculer les jours complet entre les deux dates et ensuite seulement les heures pour premier et le dernier jour.

[pythfred]

non ca tourne en quelque seconde !
par contre si il ya une erreur dans les données la sa tourne en boucle et ca ne s'arrête plus !

comment faire pour que la boucle passe par dessus les erreurs?