RÉSOLU J'essaie d'adapter un code de J.Boisgontier, pour un Planning...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais, à nouveau votre aide, pour me dire ce qui ne va pas dans mon appli....

voir explications dans fichier joint.

Merci pour votre aide, si précieuse.
Bien amicalement,
Christian

 

[Christian0258]

Re, le forum,

Alors pas trop inspiré par ma demande...lol

Bien amicalement.
Christian

 

[RoyalP]

je regarderais en rentrant ce soir, la je suis au bureau mais ,ne vous inquietez pas si ca ne repond pas toujours dans la journée, nous sommes des humains avant tout

 

[Christian0258]

Re, le forum, RoyalP
Merci, à toi, pour ton aide.

Bien à toi,
Christian

 

[Shakki]

Bonjour,

On dirait que RoyalIP est toujours enfermé dans son bureau. Voici donc ma proposition.

Ta variable fin commençait à la ligne 2 au lieu de la ligne 3 où se trouvent les dates, d'où l'erreur d'exécution.
D'autre part, le calcul du nombre de jours ne m'a pas paru bon (a priori le tableau de JB contenait les weekends contrairement au tien), du coup j'ai aussi modifié cette ligne. Peut-être à tort... A toi de voir.

A+

 

[Christian0258]

Bonjour à tout le forum, Shakki,

Merci infiniment, Shakki, pour le super boulot.

Tu as tout à fait bien vu, pour ne pas prendre en compte les week ends...
Dis-moi peut-on également exclure les fériés dans le report... ?

Encore un grand merci à toi, pour le temps passé et le boulot.

Bien à toi,
Christian

 

[RoyalP]

désolé j'ai vraiment pas eu le temps de m'y pencher, femme et enfants malades !!!
content que Shakki est pu t'aider.
cdl

 

[Shakki]

Re,

J'ai modifié la macro pour que le nombre de jours calculé exclut les jours fériés mais ton tableau sur la feuille Essai le fait déjà puisqu'il n'y a que les jours ouvrés qui sont pris en compte.

A+

 

[Christian0258]

Re, le forum, RoyalP, Shakki,

Salut, RoyalP, tu n'a pas à t'excuser, chacun à ses problèmes et tu fait du bénévolat sur ce forum...
tout comme Shakki que je remercie à nouveau pour le beau boulot.
C'est vrai j'exclus les WE et Fériés dans la feuille essai.

Bien à vous,
Cordialement.
Christian

 

[Christian0258]

Re, le forum

Suite et fin j'espère...lol
J'ai à nouveau besoin de vos lumières
voir fichier joint

Merci pour votre aide si précieuse.
Cordialement,
Christina

PS : merci à RoyalP et Shakki pour leur aide

 

[Shakki]

Re,

On peut s'inspirer de ce qui avait été fait sur l'autre fichier ou alors j'ai pas tout compris.
Sur la 1ere ligne, j'ai donc repris la formule qui utilise tableCodes et sur la 2eme, j'ai utilisé une RechercheH. A toi de choisir.

A+

 

[Christian0258]

Re, le forum, Shakki,

Merci, à nouveau, Shakki pour le boulot.
Oui, c'est vrai pour les formules, maintenant que c'est fait ça semble plus simple....lol

Merci pour tout.
Bien à toi,
Christian

 

[Christian0258]

Bonjour à tout le forum,

Suite et fin j'espère...
Je suis sous la Calendrier 1904, et le résultat diffère si ce Calendrier 1904 est décoché...
Que faudrait-il ajouter ou modifier dans la macro feuille Congés pour régler ce problème... ?

Merci pour votre aide si précieuse.
Bien à vous.
Christian
P.S un grand merci à Shakki

 

[JCGL]

Bonjour à tous,
Salut Christian,

Le Nom Défini 'An' étant posé en dur, le fait de cocher ou décocher le Calendrier 1904 ne doit pas avoir d'incidence sur la feuille "Congés".
Les re-calculs se font à l'activation de la feuille donc les 1462 jours de plus se trouvent mis à jour

Si je n'ai pas compris la demande :

 s.Cells(ligneessai, 5) = IIf(ActiveWorkbook.Date1904 = False, WorksheetFunction.NetworkDays(début + 1462, fin + 1462, [Feries]), WorksheetFunction.NetworkDays(début, fin, [Feries]))

A+ à tous

 

[Christian0258]

Re, bonsoir à tout le forum, JCGL

Salut, Jean-Claude, merci pour ton aide.
J'ai placé ta ligne de commande, mais ça n'a pas d'influence sur les calculs.

Regardez le fichier joint feuille Congés...

Merci pour votre aide.
Cordialement,
Chrsistian