Discussion :

[Brkahh]

Bonjour,
Je cherche à faire une macro qui vérifie si mes dates dans une Sheet sont des business days. En gros, j’ai un sheet avec 10 colonnes (disons C à L) ayant des dates. Je précise que certaines lignes dans ces colonnes n’ont pas de date.
J’aimerai que ma macro screen ces colonnes et remplace les dates qui ne sont pas des business days par le prochain business day.

Est-ce que quelqu'un pourrait m’aider ?
Merci !
B.

[Daniel.C]

Bonjour,

Si on ne tient compte des samedis et des dimanches comme jours non ouvrés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub OuvréSuivant()
    Dim DerLigne As Long, c As Range, Plage As Range
    DerLigne = [C:L].Find("*", , , , xlByRows, xlPrevious).Row
    Set Plage = Range("C1:L" & DerLigne)
    For Each c In Plage
        If c <> "" Then
            If Application.Weekday(c.Value) = 1 Then
                c.Value = c.Value + 1
            ElseIf Application.Weekday(c.Value) = 7 Then
                c.Value = c.Value + 2
            End If
        End If
    Next c
End Sub