Jours Ouvrés

tototiti2008

XLDnaute Barbatruc

• 16 Octobre 2008

• #2

Re : Jours Ouvrés

Bonjour sonskriverez,

à priori :

 

Pièces jointes

• Classeur1.xls

  13.5 KB · Affichages: 86
• Classeur1.xls

  13.5 KB · Affichages: 85
• Classeur1.xls

  13.5 KB · Affichages: 85

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Octobre 2008

• #3

Re : Jours Ouvrés

Bonjour à tous,

Une date en A1 et nombre en B1 et en C1 :

Code:

=SI(JOURSEM(A1+B1;2)=6;A1+B1-1;SI(JOURSEM(A1+B1;2)=7;A1+B1-2;A1+B1))

A+

Edition : Bonjour Toto

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2008

• #4

Re : Jours Ouvrés

Bonjour,

Il faudrait voir votre fichier avec la liste des jours fériés.

Il faut réaliser une fonction macro qui à partir de la date trouvée remonte les jours (par une boucle sur 4 jours par exemple) pour trouver le 1er jour non férié ou chomé.

A+

Edit : salut tototiti, JCGL

 

Dernière édition: 16 Octobre 2008

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 16 Octobre 2008

• #5

Re : Jours Ouvrés

Bonjour, Salut à tous,

Essaye la formule suivante :

Code:

=SERIE.JOUR.OUVRE(DATE_DEBUT;NB.JOURS.OUVRES(DATE_DEBUT;DATE_FIN)-1)

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 16 Octobre 2008

• #6

Re : Jours Ouvrés

Bonsoir Raja, Job75, JCGL, tototiti2008, le forum

Merci de votre aide, j'ai essayé vos solutions mais cela ne prend pas en compte une plage de jours fériés, il faudrait que la date + 60 jrs ne tombe pas un jour férié, samedi ou dimanche.

Je joins un fichier pour exemple

Merci de votre aide

 

Pièces jointes

• essais 1.xls

  16.5 KB · Affichages: 76
• essais 1.xls

  16.5 KB · Affichages: 74
• essais 1.xls

  16.5 KB · Affichages: 80

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 16 Octobre 2008

• #7

Re : Jours Ouvrés

Bonjour,

à essayer
=SERIE.JOUR.OUVRE(C3+61;-1;Fer)

Fer, c'est la plage de fériés qui est nommée comme ça.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2008

• #8

Re : Jours Ouvrés

Bonsoir à tous,

J'ai poursuivi mon idée de départ en créant la fonction Datefin. Voir fichier ci-joint.

Le code :

Code:

Function Datefin(dat)
Dim i As Byte
For i = 0 To 4
dat = dat - i
If Weekday(dat) = 1 Or Weekday(dat) = 7 Or IsNumeric(Application.Match(dat, Range("F3:F18"), 0)) Then GoTo 1
Datefin = dat
Exit Function
1 Next
End Function

A+

Edit : je ne m'explique pas pour l'instant le jeudi 28 mai...

 

Pièces jointes

• sonskriverez.xls

  25.5 KB · Affichages: 86
• sonskriverez.xls

  25.5 KB · Affichages: 89
• sonskriverez.xls

  25.5 KB · Affichages: 88

Dernière édition: 16 Octobre 2008

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 16 Octobre 2008

• #9

Re : Jours Ouvrés

Bonsoir Job75,

Je viens de tester, cela fonctionne sur l'exemple et merci beaucoup, par contre dans mon fichier la plage de jrs fériés se trouve dans une autre feuille et j'ai nommé une plage "ferie" comment puis-je integrer cela dans la macro ?

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 16 Octobre 2008

• #10

Re : Jours Ouvrés

Autre questions, si je fais :

en B1 lun 05 janv 09 en C1 =Datefin(B1+1) resultat mar 06 janv --- ok
Datefin(B1+2) resultat mer 07 janv --- ok

cela va bien jusqu'au vendredi

Datefin(B1+5) resultat ven 09 janv --- super ven a la place sam
ou cela plante
Datefin(B1+6) resultat jeu 08 jav --- cela devrait être ven 9 janv

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2008

• #11

Re : Jours Ouvrés

Re,

Il y avait une erreur grossière dans la macro, prenez le fichier ci-joint.

Code:

Function Datefin(dat As Long)
Dim i As Byte, x As Long
For i = 0 To 4
x = dat - i
If Weekday(x) = 1 Or Weekday(x) = 7 Or IsNumeric(Application.Match(x, [COLOR="Red"]Sheets(1).[/COLOR]Range("ferie"), 0)) Then GoTo 1
Datefin = x
Exit Function
1 Next
End Function

Par ailleurs j'ai nommé comme vous la plage "ferie" en Feuil1. Si elle est en Feuil2, remplacez Sheets(1) par Sheets(2).

A+

 

Pièces jointes

• sonskriverez.xls

  27 KB · Affichages: 64
• sonskriverez.xls

  27 KB · Affichages: 64
• sonskriverez.xls

  27 KB · Affichages: 62

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Octobre 2008

• #12

Re : Jours Ouvrés

Bonjour à tous,

Euh sonskriverez, as-tu testé la formule de Monique...

Garde un mémoire qu'une formule est SOUVENT plus efficace qu'un code.

Bien évidement ceci n'enlève rien au code de l'ami Job.

A+

 

Vote positif 0 Vote négatif

S

sonskriverez

XLDnaute Occasionnel

• 16 Octobre 2008

• #13

Re : Jours Ouvrés

Ca y est, la méthode de Monique et de Job fonctionne.

Effectivement entre une macro et une formule je n'hesite pas et j'utilise la formule, merci JCGL de ton rappel.

Nonique merci de ta formule t'es toujours la plus forte le tps n'a plus de secret pour toi 🙂

Job un grand merci cela est toujours trés utile de comprendre une macros.



Merci à tous ceux qui ont planchés sur mon pbl

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 16 Octobre 2008

• #14

Re : Jours Ouvrés

Re,

A toutes fins utiles, jete un coup d'oeil sur le fichier joint :

PS : La formule marchait bien, il suffit de prendre en compte les jours fériés.

 

Pièces jointes

• essais%201.xls

  17.5 KB · Affichages: 62

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2008

• #15

Re : Jours Ouvrés

Re,

Je vote aussi pour la formule de Monique (toujours la meilleure).

Pour la macro, celle-ci est beaucoup plus élégante, désolé pour mon travail laborieux :

Code:

Function Datefin(dat)
While Weekday(dat) = 1 Or Weekday(dat) = 7 Or IsNumeric(Application.Match(dat, Sheets(1).Range("ferie"), 0))
dat = dat - 1
Wend
Datefin = dat
End Function

A+

 

Pièces jointes

• sonskriverez.xls

  27 KB · Affichages: 78
• sonskriverez.xls

  27 KB · Affichages: 78
• sonskriverez.xls

  27 KB · Affichages: 75

Vote positif 0 Vote négatif