Autres Calcul de jour ouvrable

[philcanonice]

Bonjour à tous,
Je suis nouveau sur le forum. Je travaille sur Excel 2007 et j’aimerai savoir comment calculer le nombre de jours ouvrables (du lundi au samedi). Je n’ai pas une grande connaissance en Excel mais il me semble que l’emploi de formule serait plus élégant. J’ai joint un fichier pour montrer ce à quoi ça devrait ressembler.

 

[JHA]

Bonjour à tous,

A essayer.

JHA

 

[Jocelyn]

Bonjour le Forum,
Bonjour philcanonice,

vraiment pas sur d'avoir compris la demande mais bon un essai quand même avec cette formule a mettre en H10

=CHOISIR(EQUIV(G10;{"ouvrés";"ouvrables";"calendaires"};0);SERIE.JOUR.OUVRE(E10;F10);SERIE.JOUR.OUVRE.INTL(E10;F10;"0000001");E10+7)

et à étirer vers le bas

voir fichier

cordialement

EDIT Bonjour JHA 🙂 presque la même 😉

 

[job75]

Bonjour philcanonice, JHA, Jocelyn,

Je ne vous comprends pas les amis car pour les jours ouvrés ou ouvrables il faut tenir compte des jours fériés...

A+

 

[JHA]

Bonjour à tous,

Avec les fériés 2019 et en attendant une réponse de notre ami "Philcanonice"

JHA

 

[philcanonice]

Bonjour à tous,
je tiens d’abord à remercier votre communauté. Il est excellent de voir votre vitesse de réaction. Je suis hélas en week-end à la maison, on ne peut pas dire que je me repose, je suis en train de repeindre ma salle de bain, suite à un dégât des eaux. Je dis hélas car je ne suis pas au boulot où se trouve l’ordinateur avec Excel 2007, je ne peux donc pas essayer les solutions que vous m’apportez.
Je ne peux que visualiser vos fichiers sur Numbers, seul tableur que je possède à la maison, je sais que cela n’est pas l’idéal.
@JHA la fonction workday.intl ne me rappelle rien sur la version Excel 2007 que je possède au boulot. Je ne crois pas qu’elle soit pris en compte dans cette version de Microsoft.
@Jocelyn, ta solution a l’air élégante, je l’essaie dés que possible (lundi)
@job75, tu as raison, il faut tenir compte des jours fériés également, c’est un point auquel je n’avais pas pensé, cela doit être pris en compte. Je devrais peut-être inclure un calendrier dans ma futur feuille. Et sur ce calendrier, indiquer/marquer les jours non travaillés.
@toud De façon à être plus précis dans les réponses je vous propose d’attendre lundi soir. Je vous dirai si vous avez réussi à résoudre un de mes problèmes majeur. En attendant, je vous souhaite à tous un bon et agréable week-end.

 

[job75]

@ JHA : il ne faut pas abuser de CHOISIR/EQUIV qui prennent beaucoup d'octets en mémoire.

Dans tes formules CHOISIR(EQUIV($D14;{"ouvrés";"ouvrables"};0);1;11) "pèse" 74 octets.

Alors que plus simplement 1+10*(D14="Ouvrables") "pèse" 26 octets.

 

[Jocelyn]

re,
Bonjour Job75

@job75 effectivement il faut tenir compte des jours fériés (méaculpa)

je reposte un fichier avec une solution par formule un peu capillotracté pour géré le fait que Philcanonice n'a à priori pas la fonction série.jours.ouvrés.intl() je suis reparti du dernier fichier de JHA

Bon week-end

Cordialement

 

[job75]

Une solution par fonction VBA dans le fichier joint :

Function MaSerieJoursOuvres(DateIni, n, critere$)
If n = 0 Or critere = "calendaires" Then MaSerieJoursOuvres = DateIni + n: Exit Function
Dim i, dat, wd, j
Do
    i = i + 1
    dat = DateIni + i
    wd = Weekday(dat, 2)
    If critere = "ouvrés" And wd < 6 Or critere = "ouvrables" And wd < 7 Then _
        If Application.CountIf([Feries], dat) = 0 Then j = j + 1
Loop While j < n
MaSerieJoursOuvres = dat
End Function

Le code doit être placé impérativement dans un module standard.

Edit : j'ai inversé les 2 tests, c'est plus rapide ainsi.