Comparaison dates avec jours ouvrés

Bonjour, étant novice en VBA, j'ai besoin d'une aide précieuse

Je cherche à calculer la différence de jours de retard entre deux colonnes

exemple : colonne A colonne B

14/02/19 28/01/19 --> 13 (en jours ouvrés)

Et ceci sur les deux colonnes entières (puisqu'il y a une multitude de dates)

Je sais qu'une fonction NB.JOURS.OUVRES(A1;B1) mais je ne vois pas comment l'utiliser en VBA....

Je précise que lorsque mes dates sont en retard elles sont coloriés en rouge (vbRed) et en vert (vbGreen) quand elles sont dans les délais

L'objectif provisoire serait de stocké tous ces retards dans une colonne pour pouvoir les analyser ensuite

Merci d'avance

Help please...

Bonjour,

Un exemple à adapter.

Cdlt.

5adbla.xlsm (17.21 Ko)
Public Sub WorkingDays()
Dim lastRow As Long, rng As Range
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng = .Cells(3).Resize(lastRow)
        With rng
            .FormulaR1C1 = "=NETWORKDAYS(RC[-2],RC[-1])"
            .Value = rng.Value
        End With
    End With
End Sub
Rechercher des sujets similaires à "comparaison dates jours ouvres"