Boucles jours féries tombant le week end

Bonjour le forum,

Je vous expose mon probléme, le 14/07 tombant un dimanche, et on s'en rappelle encore,

je comprends pas pourquoi ma double boucle le prend en fériés quand c'est pour compter les jours hebdo, avec ce code:

                'boucle jours feries ne tombant pas le we feuille data
                Dim féries As Variant
                        feries = 0
                For o = 0 To duree - 1
                   For p = 1 To 11
                       If CDate(TextBox1.Value) + o = CDate(Sheets("data").Range("H" & p)) And _
                      (Weekday(Sheets("data").Range("H" & p) <> 7) Or _
                        Weekday(Sheets("data").Range("H" & p) <> 1)) Then
                            feries = feries + 1
                        End If
                    Next p
                Next o

quand je remplace p par la position réelle 7, çà ne prend pas le jour férié.

Si quelqu'un trouve, je me déguise en

merci

fronck

Bonjour Fronck

C'est comme l'histoire du gars qui demande quand tombe Noël

Le 14/07 est un JOUR FERIE peut importe quand il tombe

Sinon par rapport à ce que tu veux faire, il faut remplacer le OR par AND je pense

bonjour BrunoM45,

Cà tombe un dimanche (1), et si tu simplifies à:

  'boucle jours feries ne tombant pas le we feuille data
                Dim féries As Integer
                         If Weekday(Sheets("data").Range("H2") <> "1") Then
                         feries = 1
                        MsgBox "feries " & feries
                        End If

il m'affiche toujours 1

fronck

sans titre

Bonjour,

Et ceci ?

Dim féries As Double
    For o = 0 To duree - 1
        For p = 1 To 11
            If CDate(TextBox1.Value) + o = CDate(Sheets("data").Range("H" & p)) _
               And Weekday(Sheets("data").Range("H" & p), 2) < 6 Then
                feries = feries + 1
            End If
        Next p
    Next o

Bonjour,

ah génial.

mais pourrais tu m'expliquer la variable as Double et ",2" dans la formule weekday.

merci

fronck

Re,

Regarde l'aide Excel sur la fonction WEEKDAY ou JOURSEM !...

Chez nous, la semaine commence le lundi (1) et se termine le dimanche (7).

Cdlt.

Rechercher des sujets similaires à "boucles jours feries tombant week end"