Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
Je joins un fichier.... ce sera plus clair
Merci
http://cjoint.com/?jBqkm8Bo0u
Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
Je joins un fichier.... ce sera plus clair
Merci
http://cjoint.com/?jBqkm8Bo0u
Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
Je joins un fichier.... ce sera plus clair
Merci
http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Bonjour à tous
>
> C'est la 3ème fois que je fais ce message...
> Dur, dur...!
> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
> Je joins un fichier.... ce sera plus clair
>
> Merci
> http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Bonjour à tous
>
> C'est la 3ème fois que je fais ce message...
> Dur, dur...!
> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
> Je joins un fichier.... ce sera plus clair
>
> Merci
> http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Bonjour à tous
>
> C'est la 3ème fois que je fais ce message...
> Dur, dur...!
> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
> Je joins un fichier.... ce sera plus clair
>
> Merci
> http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier par
les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la main
les plages de cellules qui correspondent aux autres services, en ajoutant
une sous formule dans le service où il y a plus de deux salariés (RC2) ou
en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de solution
"intégrée" pour ça. A moins que du secours ne t'arrive par ailleurs, il te
faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par
services....
Je joins un fichier.... ce sera plus clair
Merci http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier par
les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la main
les plages de cellules qui correspondent aux autres services, en ajoutant
une sous formule dans le service où il y a plus de deux salariés (RC2) ou
en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de solution
"intégrée" pour ça. A moins que du secours ne t'arrive par ailleurs, il te
faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par
services....
Je joins un fichier.... ce sera plus clair
Merci http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier par
les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la main
les plages de cellules qui correspondent aux autres services, en ajoutant
une sous formule dans le service où il y a plus de deux salariés (RC2) ou
en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de solution
"intégrée" pour ça. A moins que du secours ne t'arrive par ailleurs, il te
faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par
services....
Je joins un fichier.... ce sera plus clair
Merci http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Bonjour à tous
>
> C'est la 3ème fois que je fais ce message...
> Dur, dur...!
> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
> Je joins un fichier.... ce sera plus clair
>
> Merci
> http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Bonjour à tous
>
> C'est la 3ème fois que je fais ce message...
> Dur, dur...!
> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
> Je joins un fichier.... ce sera plus clair
>
> Merci
> http://cjoint.com/?jBqkm8Bo0u
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Bonjour à tous
>
> C'est la 3ème fois que je fais ce message...
> Dur, dur...!
> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
> Je joins un fichier.... ce sera plus clair
>
> Merci
> http://cjoint.com/?jBqkm8Bo0u
Bonsoir Frédéric,
Juste pour faciliter la recopie vers la droite, on peut adapter ainsi :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=COLONNE()-7))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=COLONNE()-7))
--
Ca fait pas beaucoup avancer mais c'est avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"FS" a écrit dans le message de
news:ORL$
> Bonjour,
>
> Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
> surpris cependant si ton "Dur, dur...!" exprime une certaine
> incompréhension devant une absence ou quasi absence de réponses.
> C'est ta demande qui est "dure, dure..".
> Je ne peux pour ma part que te proposer une solution partielle et qui ne
> t'évitera pas une part d'huile de coude.
> Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier par
> les deux personnes du service RC1 avec une formule de ce style en H3 :
>
> =SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
>
> Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
> le mois dans chaque cellule.
> Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la main
> les plages de cellules qui correspondent aux autres services, en ajoutant
> une sous formule dans le service où il y a plus de deux salariés (RC2) ou
> en en supprimant une lorsqu'il n'y en a qu'un.
>
> Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
> compositions des service ne changent pas trop souvent.
>
> Mais restera encore la question des jours fériés. Je n'ai pas de solution
> "intégrée" pour ça. A moins que du secours ne t'arrive par ailleurs, il te
> faudra les défalquer "à la main" par service.
>
> En VBA cela serait probablement plus "facile" d'intégrer tous les
> paramètres à prendre en compte. Relance si besoin.
>
> FS
> --
> Frédéric SIGONNEAU
> Modules et modèles pour Excel :
> http://frederic.sigonneau.free.fr/
>
> PLG a écrit :
>> Bonjour à tous
>>
>> C'est la 3ème fois que je fais ce message...
>> Dur, dur...!
>> Je souhaite récupérer le nombre de jours ouvrables par mis et par
>> services....
>> Je joins un fichier.... ce sera plus clair
>>
>> Merci http://cjoint.com/?jBqkm8Bo0u
Bonsoir Frédéric,
Juste pour faciliter la recopie vers la droite, on peut adapter ainsi :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=COLONNE()-7))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=COLONNE()-7))
--
Ca fait pas beaucoup avancer mais c'est avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"FS" <fs@news.group> a écrit dans le message de
news:ORL$mw4PKHA.3876@TK2MSFTNGP06.phx.gbl...
> Bonjour,
>
> Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
> surpris cependant si ton "Dur, dur...!" exprime une certaine
> incompréhension devant une absence ou quasi absence de réponses.
> C'est ta demande qui est "dure, dure..".
> Je ne peux pour ma part que te proposer une solution partielle et qui ne
> t'évitera pas une part d'huile de coude.
> Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier par
> les deux personnes du service RC1 avec une formule de ce style en H3 :
>
> =SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
>
> Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
> le mois dans chaque cellule.
> Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la main
> les plages de cellules qui correspondent aux autres services, en ajoutant
> une sous formule dans le service où il y a plus de deux salariés (RC2) ou
> en en supprimant une lorsqu'il n'y en a qu'un.
>
> Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
> compositions des service ne changent pas trop souvent.
>
> Mais restera encore la question des jours fériés. Je n'ai pas de solution
> "intégrée" pour ça. A moins que du secours ne t'arrive par ailleurs, il te
> faudra les défalquer "à la main" par service.
>
> En VBA cela serait probablement plus "facile" d'intégrer tous les
> paramètres à prendre en compte. Relance si besoin.
>
> FS
> --
> Frédéric SIGONNEAU
> Modules et modèles pour Excel :
> http://frederic.sigonneau.free.fr/
>
> PLG a écrit :
>> Bonjour à tous
>>
>> C'est la 3ème fois que je fais ce message...
>> Dur, dur...!
>> Je souhaite récupérer le nombre de jours ouvrables par mis et par
>> services....
>> Je joins un fichier.... ce sera plus clair
>>
>> Merci http://cjoint.com/?jBqkm8Bo0u
Bonsoir Frédéric,
Juste pour faciliter la recopie vers la droite, on peut adapter ainsi :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=COLONNE()-7))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=COLONNE()-7))
--
Ca fait pas beaucoup avancer mais c'est avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"FS" a écrit dans le message de
news:ORL$
> Bonjour,
>
> Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
> surpris cependant si ton "Dur, dur...!" exprime une certaine
> incompréhension devant une absence ou quasi absence de réponses.
> C'est ta demande qui est "dure, dure..".
> Je ne peux pour ma part que te proposer une solution partielle et qui ne
> t'évitera pas une part d'huile de coude.
> Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier par
> les deux personnes du service RC1 avec une formule de ce style en H3 :
>
> =SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
>
> Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
> le mois dans chaque cellule.
> Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la main
> les plages de cellules qui correspondent aux autres services, en ajoutant
> une sous formule dans le service où il y a plus de deux salariés (RC2) ou
> en en supprimant une lorsqu'il n'y en a qu'un.
>
> Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
> compositions des service ne changent pas trop souvent.
>
> Mais restera encore la question des jours fériés. Je n'ai pas de solution
> "intégrée" pour ça. A moins que du secours ne t'arrive par ailleurs, il te
> faudra les défalquer "à la main" par service.
>
> En VBA cela serait probablement plus "facile" d'intégrer tous les
> paramètres à prendre en compte. Relance si besoin.
>
> FS
> --
> Frédéric SIGONNEAU
> Modules et modèles pour Excel :
> http://frederic.sigonneau.free.fr/
>
> PLG a écrit :
>> Bonjour à tous
>>
>> C'est la 3ème fois que je fais ce message...
>> Dur, dur...!
>> Je souhaite récupérer le nombre de jours ouvrables par mis et par
>> services....
>> Je joins un fichier.... ce sera plus clair
>>
>> Merci http://cjoint.com/?jBqkm8Bo0u
Re moi
Je viens d'entrer ta formule, effectivement cela fonctionne mais ce n'est
pas adapté à ma demande.... car c'est une saisie qui évolue tous les 4
matins, avec le même service qui peut revenir plusieurs fois... et il doit y
avoir pour l'année entre 300 et 400 saisies...
Merci tout de même à toi et bonne soirée.
Tu développes pas en vba...!??
Etonné je suis !!
"FS" a écrit :Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
Je joins un fichier.... ce sera plus clair
Merci
http://cjoint.com/?jBqkm8Bo0u
Re moi
Je viens d'entrer ta formule, effectivement cela fonctionne mais ce n'est
pas adapté à ma demande.... car c'est une saisie qui évolue tous les 4
matins, avec le même service qui peut revenir plusieurs fois... et il doit y
avoir pour l'année entre 300 et 400 saisies...
Merci tout de même à toi et bonne soirée.
Tu développes pas en vba...!??
Etonné je suis !!
"FS" a écrit :
Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
Je joins un fichier.... ce sera plus clair
Merci
http://cjoint.com/?jBqkm8Bo0u
Re moi
Je viens d'entrer ta formule, effectivement cela fonctionne mais ce n'est
pas adapté à ma demande.... car c'est une saisie qui évolue tous les 4
matins, avec le même service qui peut revenir plusieurs fois... et il doit y
avoir pour l'année entre 300 et 400 saisies...
Merci tout de même à toi et bonne soirée.
Tu développes pas en vba...!??
Etonné je suis !!
"FS" a écrit :Bonjour,
Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
surpris cependant si ton "Dur, dur...!" exprime une certaine
incompréhension devant une absence ou quasi absence de réponses.
C'est ta demande qui est "dure, dure..".
Je ne peux pour ma part que te proposer une solution partielle et qui ne
t'évitera pas une part d'huile de coude.
Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
par les deux personnes du service RC1 avec une formule de ce style en H3 :
=SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
le mois dans chaque cellule.
Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
main les plages de cellules qui correspondent aux autres services, en
ajoutant une sous formule dans le service où il y a plus de deux
salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
compositions des service ne changent pas trop souvent.
Mais restera encore la question des jours fériés. Je n'ai pas de
solution "intégrée" pour ça. A moins que du secours ne t'arrive par
ailleurs, il te faudra les défalquer "à la main" par service.
En VBA cela serait probablement plus "facile" d'intégrer tous les
paramètres à prendre en compte. Relance si besoin.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :Bonjour à tous
C'est la 3ème fois que je fais ce message...
Dur, dur...!
Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
Je joins un fichier.... ce sera plus clair
Merci
http://cjoint.com/?jBqkm8Bo0u
Re,
> Tu développes pas en vba...!??
Si tu me prends par les sentiments :)
Le code ci-dessous suppose que l'organisation de tes données soit la
même que celle de ton fichier exemple en ce qui concerne la liste des
services, noms, prénoms, du, au.
Tu noteras que l'essentiel du travail est effectué par une fonction de
LL, qui permet de trier le bon grain (les jours ouvrés) de l'ivraie (WE
et fériés).
Pour obtenir le nb de jours ouvrés travaillés dans le service RC1 en
janvier, tu peux saisir en H3 :
=nb_jours($A$3:$A$30;G3;1)
Bon, les choses sérieuses (dans un module ordinaire) :
'==================== > Function NB_JOURS(PlageServices, Service, Mois)
Dim i, cell As Range
For Each cell In PlageServices
If cell.Value = Service Then
For i = cell(1, 4).Value2 To cell(1, 5).Value2
If Month(i) = Mois Then
If TYPEJOUR(CDate(i)) = 0 Then NB_JOURS = NB_JOURS + 1
End If
Next i
End If
Next cell
End Function
Function TYPEJOUR(D As Date)
'L. Longre
Dim A As Integer, T As Integer
Dim LP As Date, LD As Long
Dim Toto As Long
A = Year(D)
If A > 2099 Then
TYPEJOUR = CVErr(xlErrValue)
Exit Function
End If
LD = Int(D)
If LD <= 2 Then
If LD = 1 Then TYPEJOUR = 2
Exit Function
End If
T = (((255 - 11 * (A Mod 19)) - 21) Mod 30) + 21
LP = DateSerial(A, 3, 2) + T + (T > 48) _
+ 6 - ((A + A 4 + T + (T > 48) + 1) Mod 7)
Select Case D
' Jours fériés mobiles
Case Is = LP, Is = LP + 38, Is = LP + 49
TYPEJOUR = 2
' Jours fériés fixes
Case Is = DateSerial(A, 1, 1), Is = DateSerial(A, 5, 1), _
Is = DateSerial(A, 5, 8), Is = DateSerial(A, 7, 14), _
Is = DateSerial(A, 8, 15), Is = DateSerial(A, 11, 1), _
Is = DateSerial(A, 11, 11), Is = DateSerial(A, 12, 25)
TYPEJOUR = 2
Case Else
' Samedi ou dimanche
If Weekday(D, vbMonday) >= 6 Then TYPEJOUR = 1
End Select
End Function
'==================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Re moi
> Je viens d'entrer ta formule, effectivement cela fonctionne mais ce n'est
> pas adapté à ma demande.... car c'est une saisie qui évolue tous les 4
> matins, avec le même service qui peut revenir plusieurs fois... et il doit y
> avoir pour l'année entre 300 et 400 saisies...
>
> Merci tout de même à toi et bonne soirée.
> Tu développes pas en vba...!??
> Etonné je suis !!
>
> "FS" a écrit :
>
>> Bonjour,
>>
>> Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
>> surpris cependant si ton "Dur, dur...!" exprime une certaine
>> incompréhension devant une absence ou quasi absence de réponses.
>> C'est ta demande qui est "dure, dure..".
>> Je ne peux pour ma part que te proposer une solution partielle et qui ne
>> t'évitera pas une part d'huile de coude.
>> Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
>> par les deux personnes du service RC1 avec une formule de ce style en H3 :
>>
>> =SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
>>
>> Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
>> le mois dans chaque cellule.
>> Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
>> main les plages de cellules qui correspondent aux autres services, en
>> ajoutant une sous formule dans le service où il y a plus de deux
>> salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
>>
>> Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
>> compositions des service ne changent pas trop souvent.
>>
>> Mais restera encore la question des jours fériés. Je n'ai pas de
>> solution "intégrée" pour ça. A moins que du secours ne t'arrive par
>> ailleurs, il te faudra les défalquer "à la main" par service.
>>
>> En VBA cela serait probablement plus "facile" d'intégrer tous les
>> paramètres à prendre en compte. Relance si besoin.
>>
>> FS
>> --
>> Frédéric SIGONNEAU
>> Modules et modèles pour Excel :
>> http://frederic.sigonneau.free.fr/
>>
>> PLG a écrit :
>>> Bonjour à tous
>>>
>>> C'est la 3ème fois que je fais ce message...
>>> Dur, dur...!
>>> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
>>> Je joins un fichier.... ce sera plus clair
>>>
>>> Merci
>>> http://cjoint.com/?jBqkm8Bo0u
Re,
> Tu développes pas en vba...!??
Si tu me prends par les sentiments :)
Le code ci-dessous suppose que l'organisation de tes données soit la
même que celle de ton fichier exemple en ce qui concerne la liste des
services, noms, prénoms, du, au.
Tu noteras que l'essentiel du travail est effectué par une fonction de
LL, qui permet de trier le bon grain (les jours ouvrés) de l'ivraie (WE
et fériés).
Pour obtenir le nb de jours ouvrés travaillés dans le service RC1 en
janvier, tu peux saisir en H3 :
=nb_jours($A$3:$A$30;G3;1)
Bon, les choses sérieuses (dans un module ordinaire) :
'==================== > Function NB_JOURS(PlageServices, Service, Mois)
Dim i, cell As Range
For Each cell In PlageServices
If cell.Value = Service Then
For i = cell(1, 4).Value2 To cell(1, 5).Value2
If Month(i) = Mois Then
If TYPEJOUR(CDate(i)) = 0 Then NB_JOURS = NB_JOURS + 1
End If
Next i
End If
Next cell
End Function
Function TYPEJOUR(D As Date)
'L. Longre
Dim A As Integer, T As Integer
Dim LP As Date, LD As Long
Dim Toto As Long
A = Year(D)
If A > 2099 Then
TYPEJOUR = CVErr(xlErrValue)
Exit Function
End If
LD = Int(D)
If LD <= 2 Then
If LD = 1 Then TYPEJOUR = 2
Exit Function
End If
T = (((255 - 11 * (A Mod 19)) - 21) Mod 30) + 21
LP = DateSerial(A, 3, 2) + T + (T > 48) _
+ 6 - ((A + A 4 + T + (T > 48) + 1) Mod 7)
Select Case D
' Jours fériés mobiles
Case Is = LP, Is = LP + 38, Is = LP + 49
TYPEJOUR = 2
' Jours fériés fixes
Case Is = DateSerial(A, 1, 1), Is = DateSerial(A, 5, 1), _
Is = DateSerial(A, 5, 8), Is = DateSerial(A, 7, 14), _
Is = DateSerial(A, 8, 15), Is = DateSerial(A, 11, 1), _
Is = DateSerial(A, 11, 11), Is = DateSerial(A, 12, 25)
TYPEJOUR = 2
Case Else
' Samedi ou dimanche
If Weekday(D, vbMonday) >= 6 Then TYPEJOUR = 1
End Select
End Function
'==================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Re moi
> Je viens d'entrer ta formule, effectivement cela fonctionne mais ce n'est
> pas adapté à ma demande.... car c'est une saisie qui évolue tous les 4
> matins, avec le même service qui peut revenir plusieurs fois... et il doit y
> avoir pour l'année entre 300 et 400 saisies...
>
> Merci tout de même à toi et bonne soirée.
> Tu développes pas en vba...!??
> Etonné je suis !!
>
> "FS" a écrit :
>
>> Bonjour,
>>
>> Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
>> surpris cependant si ton "Dur, dur...!" exprime une certaine
>> incompréhension devant une absence ou quasi absence de réponses.
>> C'est ta demande qui est "dure, dure..".
>> Je ne peux pour ma part que te proposer une solution partielle et qui ne
>> t'évitera pas une part d'huile de coude.
>> Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
>> par les deux personnes du service RC1 avec une formule de ce style en H3 :
>>
>> =SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
>>
>> Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
>> le mois dans chaque cellule.
>> Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
>> main les plages de cellules qui correspondent aux autres services, en
>> ajoutant une sous formule dans le service où il y a plus de deux
>> salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
>>
>> Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
>> compositions des service ne changent pas trop souvent.
>>
>> Mais restera encore la question des jours fériés. Je n'ai pas de
>> solution "intégrée" pour ça. A moins que du secours ne t'arrive par
>> ailleurs, il te faudra les défalquer "à la main" par service.
>>
>> En VBA cela serait probablement plus "facile" d'intégrer tous les
>> paramètres à prendre en compte. Relance si besoin.
>>
>> FS
>> --
>> Frédéric SIGONNEAU
>> Modules et modèles pour Excel :
>> http://frederic.sigonneau.free.fr/
>>
>> PLG a écrit :
>>> Bonjour à tous
>>>
>>> C'est la 3ème fois que je fais ce message...
>>> Dur, dur...!
>>> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
>>> Je joins un fichier.... ce sera plus clair
>>>
>>> Merci
>>> http://cjoint.com/?jBqkm8Bo0u
Re,
> Tu développes pas en vba...!??
Si tu me prends par les sentiments :)
Le code ci-dessous suppose que l'organisation de tes données soit la
même que celle de ton fichier exemple en ce qui concerne la liste des
services, noms, prénoms, du, au.
Tu noteras que l'essentiel du travail est effectué par une fonction de
LL, qui permet de trier le bon grain (les jours ouvrés) de l'ivraie (WE
et fériés).
Pour obtenir le nb de jours ouvrés travaillés dans le service RC1 en
janvier, tu peux saisir en H3 :
=nb_jours($A$3:$A$30;G3;1)
Bon, les choses sérieuses (dans un module ordinaire) :
'==================== > Function NB_JOURS(PlageServices, Service, Mois)
Dim i, cell As Range
For Each cell In PlageServices
If cell.Value = Service Then
For i = cell(1, 4).Value2 To cell(1, 5).Value2
If Month(i) = Mois Then
If TYPEJOUR(CDate(i)) = 0 Then NB_JOURS = NB_JOURS + 1
End If
Next i
End If
Next cell
End Function
Function TYPEJOUR(D As Date)
'L. Longre
Dim A As Integer, T As Integer
Dim LP As Date, LD As Long
Dim Toto As Long
A = Year(D)
If A > 2099 Then
TYPEJOUR = CVErr(xlErrValue)
Exit Function
End If
LD = Int(D)
If LD <= 2 Then
If LD = 1 Then TYPEJOUR = 2
Exit Function
End If
T = (((255 - 11 * (A Mod 19)) - 21) Mod 30) + 21
LP = DateSerial(A, 3, 2) + T + (T > 48) _
+ 6 - ((A + A 4 + T + (T > 48) + 1) Mod 7)
Select Case D
' Jours fériés mobiles
Case Is = LP, Is = LP + 38, Is = LP + 49
TYPEJOUR = 2
' Jours fériés fixes
Case Is = DateSerial(A, 1, 1), Is = DateSerial(A, 5, 1), _
Is = DateSerial(A, 5, 8), Is = DateSerial(A, 7, 14), _
Is = DateSerial(A, 8, 15), Is = DateSerial(A, 11, 1), _
Is = DateSerial(A, 11, 11), Is = DateSerial(A, 12, 25)
TYPEJOUR = 2
Case Else
' Samedi ou dimanche
If Weekday(D, vbMonday) >= 6 Then TYPEJOUR = 1
End Select
End Function
'==================== >
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
PLG a écrit :
> Re moi
> Je viens d'entrer ta formule, effectivement cela fonctionne mais ce n'est
> pas adapté à ma demande.... car c'est une saisie qui évolue tous les 4
> matins, avec le même service qui peut revenir plusieurs fois... et il doit y
> avoir pour l'année entre 300 et 400 saisies...
>
> Merci tout de même à toi et bonne soirée.
> Tu développes pas en vba...!??
> Etonné je suis !!
>
> "FS" a écrit :
>
>> Bonjour,
>>
>> Je ne trouve pas trace de tes deux précédents messages. Je ne suis guère
>> surpris cependant si ton "Dur, dur...!" exprime une certaine
>> incompréhension devant une absence ou quasi absence de réponses.
>> C'est ta demande qui est "dure, dure..".
>> Je ne peux pour ma part que te proposer une solution partielle et qui ne
>> t'évitera pas une part d'huile de coude.
>> Tu peux récupérer le nombre de jours "ouvrables" effectués en janvier
>> par les deux personnes du service RC1 avec une formule de ce style en H3 :
>>
>> =SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$6&":"&$E$6));2)<6)*(MOIS(LIGNE(INDIRECT($D$6&":"&$E$6)))=1))+SOMMEPROD(1*(JOURSEM(LIGNE(INDIRECT($D$11&":"&$E$11));2)<6)*(MOIS(LIGNE(INDIRECT($D$11&":"&$E$11)))=1))
>>
>> Tu peux la recopier vers la droite jusqu'en S3 en prenant soi de changer
>> le mois dans chaque cellule.
>> Tu peux ensuite recopier vers le bas la ligne H3:S3 puis changer à la
>> main les plages de cellules qui correspondent aux autres services, en
>> ajoutant une sous formule dans le service où il y a plus de deux
>> salariés (RC2) ou en en supprimant une lorsqu'il n'y en a qu'un.
>>
>> Une fois ceci fait, tu auras un outil réutilisable, si toutefois les
>> compositions des service ne changent pas trop souvent.
>>
>> Mais restera encore la question des jours fériés. Je n'ai pas de
>> solution "intégrée" pour ça. A moins que du secours ne t'arrive par
>> ailleurs, il te faudra les défalquer "à la main" par service.
>>
>> En VBA cela serait probablement plus "facile" d'intégrer tous les
>> paramètres à prendre en compte. Relance si besoin.
>>
>> FS
>> --
>> Frédéric SIGONNEAU
>> Modules et modèles pour Excel :
>> http://frederic.sigonneau.free.fr/
>>
>> PLG a écrit :
>>> Bonjour à tous
>>>
>>> C'est la 3ème fois que je fais ce message...
>>> Dur, dur...!
>>> Je souhaite récupérer le nombre de jours ouvrables par mis et par services....
>>> Je joins un fichier.... ce sera plus clair
>>>
>>> Merci
>>> http://cjoint.com/?jBqkm8Bo0u