Discussion :

[Floyd-44]

Bonjour,
A priori il s'agit d'un problème assez simple mais malgré les recherches je n'ai pas trouvé encore de solutions.

J'ai une feuille avec une série de dates qui se suivent par formule en ligne 3
J'ai une autre feuille avec un tableau nommé "FERIE" qui liste les jours fériés aussi renseignés par formule

Dans le principe j'ai une boucle qui parcoure toutes les colonnes en vérifiant en 1er lieu la date de la ligne 3
Si dimanche x = x + 1
si samedi x = x + 2
Et je coince sur le Férié pour vérifier si Cells(3,x) est contenu dans le Range "FERIE"

Après plusieurs essais en tout genre je suis arrivé à ça mais ça ne marche toujours pas
erreur 1004 impossible de lire la propriété Vlookup

Code :

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

1
2
3
4
5
 
Set Ferie = Range("FERIE[Jours_Feries]")
X = IIf(Application.WorksheetFunction.VLookup(Cells(3, X), Ferie, 1, False), X = X + 1, X = X) ' erreur 1004 impossible de lire la propriété Vlookup
If Weekday(Cells(3, X)) = 1 Then X = X + 1
If Weekday(Cells(3, X)) = 7 Then X = X + 2

Merci d'avance pour l'aide

[Theze]

Bonjour,

Comme je ne vois pas la finalité de ton code, voici un code qui colore les cellules en rouge si férié et en vert si samedi et dimanche. Attention, dans la fonction "Weekday()" j'ai défini le 1er jour à lundi :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Test()
 
    Dim Ferie As Range
    Dim I As Integer
 
    Set Ferie = Worksheets("Feuil2").Range("Jours_Feries")
 
    Do
 
        I = I + 1
 
        On Error Resume Next
        X = Application.WorksheetFunction.VLookup(Cells(3, I), Ferie, 1, False)
 
        If Err.Number <> 0 Then
 
            If Weekday(Cells(3, I), vbMonday) = 6 Then Cells(3, I).Interior.ColorIndex = 4
            If Weekday(Cells(3, I), vbMonday) = 7 Then Cells(3, I).Interior.ColorIndex = 4
 
        Else
 
            Cells(3, I).Interior.ColorIndex = 3
 
        End If
 
    Loop While Cells(3, I).Value <> ""
 
End Sub

[Floyd-44]

Bonjour Theze et merci

J'ai bien les WE en vert mais toujours rien concernant les jours fériés

je m'étais posé la question si cela ne venait pas des formules dans le classeur; ex:

Pâques = ARRONDI(DATE(Année;4;MOD(234-11*MOD(Année;19);30))/7;0)*7-6

[78chris]

Bonjour

En MFC on utilise

Code :

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

=NB.SI(JF;Date à tester)>0

JF étant la plage des Jours Fériés (juste les dates sans titres ou autre)

On peut aisément transposer en VBA. Attention à l'ordre car Week end et jours fériés ont des communs

[Theze]

Re,

Voici un classeur pour le test !