calcul jour férié fixe

[SlayX]

Bonjour,
Je cherche à enlever un jour à chaque fois qu'un jour férié est présent dans le mois.
Je n'ai pas sût traiter en une fois, il a fallut qu'à chaque fois qu'un jour férié tombe, j'applique mon calcul.
Je vous expose la partie qui m'embête ci-dessous
Si avez plus simple je suis ouvert aussi


Dim A, B, C, D, E, F, G, H
A = DateValue("01/01/" & Year(y))
B = DateValue("01/05/" & Year(y))
C = DateValue("08/05/" & Year(y))
D = DateValue("14/07/" & Year(y))
E = DateValue("08/15/" & Year(y))
F = DateValue("01/11/" & Year(y))
G = DateValue("11/11/" & Year(y))
H = DateValue("25/12/" & Year(y))
If Day(A) = Month(m) And Weekday(A) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(B) = Month(m) And Weekday(B) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(C) = Month(m) And Weekday(C) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(D) = Month(m) And Weekday(D) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(E) = Month(m) And Weekday(E) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(F) = Month(m) And Weekday(F) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(G) = Month(m) And Weekday(G) < vbSaturday Then
Range("M3") = Range("L3") - 1
If Day(H) = Month(m) And Weekday(H) < vbSaturday Then
Range("M3") = Range("L3") - 1
End If
End If
End If
End If
End If
End If
End If
End If

merci à vous

 

[JCGL]

Re : calcul jour férié fixe

Bonjour à tous,

Je pense qu'il peut y avoir plus simple en formule

Merci de joindre ton fichier

A+ à tous

 

[Bebere]

Re : calcul jour férié fixe

bonjour SlayX,Jcgl
vois si cela te convient
avec fichier c'est mieuux
bonne année
à bientôt

 

[SlayX]

Re : calcul jour férié fixe

Bonjour à tous,

Je pense qu'il peut y avoir plus simple en formule

Merci de joindre ton fichier

A+ à tous

Je ne peux pas t'envoyer le fichier car dépasse 48ko! à moins que je te l'envoie en PM!

Merci à toi

 

[SlayX]

Re : calcul jour férié fixe

bonjour SlayX,Jcgl
vois si cela te convient
avec fichier c'est mieuux
bonne année
à bientôt

Je vais regarder de suite... par contre j'ai développé mon programme dans :
Private Sub Workbook_SheetActivate(ByVal sh As Object)
car je veux qu'au changement de feuille, cela se fasse automatiquement.

merci à toi et je te tiens au courant

 

[JCGL]

Re : calcul jour férié fixe

Bonjour à tous,

As-tu essayé de le compresser ?

A+ à tous

 

[SlayX]

Re : calcul jour férié fixe

Bonjour à tous,

As-tu essayé de le compresser ?

A+ à tous

Oui j'ai essayé, mais excel-download refuse les fichiers *.rar

 

[jeanpierre]

Re : calcul jour férié fixe

Bonjour,

Clic droit sur ton fichier, dans l'explorateur, et Envoyer vers/Dossier compressé, pas besoin de logiciels annexes depuis Windows 2000.

Bonne année.

Jean-Pierre

 

[SlayX]

Re : calcul jour férié fixe

C'est ok voilà le fichier

merci jeanpierre

 

[JCGL]

Re : calcul jour férié fixe

Bonjour à tous,

Un essai avec formule et plages nommées

A+ à tous

 

[SlayX]

Re : calcul jour férié fixe

Merci JCGL,
Mais j'essaye quand même de le faire avec virtual basic... Je sais je suis compliqué mais je veux trouver une solution en VBA.

 

[Bebere]

Re : calcul jour férié fixe

bonjour Slay,Jcgl
explication dans feuille
à bientôt