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