Vérifier si valeur est contenue dans un Range

Version imprimable

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:

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

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:

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

29/10/2018, 07h45
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
29/10/2018, 11h07
78chris

Bonjour

En MFC on utilise

Code:

=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
29/10/2018, 11h22
Theze

1 pièce(s) jointe(s)

Re,

Voici un classeur pour le test !