Calcul temps production : Pause, Déjeuner, Jours fériés

Quitte à ajouter du code pour effacer avant calcul, autant écrire propre, une ligne suffit :

    With Sheets("Données")
        lg = .Cells(Rows.Count, "A").End(xlUp).Row
        .Range("C2:C" & lg).ClearContents ' <= 1 ligne suffit
        For i = 2 To lg

Bonjour à tous,

Pour quelques cas, il y a des erreurs et/ou imprécisions dans les versions précédentes. Voici une version plus propre qui permet le calcul dans les 2 sens (ce qui permet une vérification de la méthode) :

• Calcul d'une date-heure de fin en fonction d'une date-heure de début et d'une durée
• Calcul d'une durée en fonction d'une date-heure de début et d'une date-heure de fin

La méthode utilise une boucle avec une limite (pour éviter les boucles sans fin en cas d'erreur de calcul). Pour des durées particulièrement longues, il peut être utile de repousser cette limite à une valeur supérieure en modifiant la constante dans le code => Public Const LIMITE = 200

Pierre