A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
Bonjour André,
Et pour avoir une liste exhaustive et "complète" selon Microsoft....pour
tous les pays où Microsoft est présent....
si tu as l'application Microsoft Outlook, tu peux ouvrir le fichier
Outlook.Hol à l'aide de l'application NotePad. Pour ce faire,
un clic du bouton droit de la souris sur ledit fichier et tu sélectionnes
la commande "ouvrir avec" et dans la fenêtre qui s'ouvre, tu sélectionnes "NotePad"
Ce fichier est situé là sur Windows xp pro et office 2003
C:Program FilesMicrosoft OfficeOFFICExx1036OUTLOOK.HOL
Et selon ta version, si tu avais à mettre à jour la liste des congés, il y a cette adresse
:
http://www.outlook-tips.net/howto/missinghol.htm
"AndréBdR" a écrit dans le message de groupe de discussion :
4a658a74$0$17736$
Je n'en finis pas de ramasser des perles ce matin:
* j'avais oublié le 8 MAI
* quelques mois et jours s'étaient croisés les genoux sur le 11 Novembre et sur Noël
* et j'avais deux erreurs de signes sur les valeurs à ajouter pour les lundi de Pâques et
jeudi de
l'Ascension
Rien que ça...
J'en suis un peu penaud..
Voici ce que ça donne maintenant comme formule, et je suis quasiment certain que c'est bon
...
="La période qui va du "&JOUR(A1)&"/"&MOIS(A1)&"/"&ANNEE(A1)&" au
"&JOUR(A2)&"/"&MOIS(A2)&"/"&ANNEE(A2)&" contient
"&NB.JOURS.OUVRES(A1;A2)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);1;1)>¡;DATE(ANNEE(A1);1;1)<¢;JOURSEM(DATE(ANNEE(A1);1;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;1)>¡;DATE(ANNEE(A1);5;1)<¢;JOURSEM(DATE(ANNEE(A1);5;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;8)>¡;DATE(ANNEE(A1);5;8)<¢;JOURSEM(DATE(ANNEE(A1);5;8);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);7;14)>¡;DATE(ANNEE(A1);7;14)<¢;JOURSEM(DATE(ANNEE(A1);7;14);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);8;15)>¡;DATE(ANNEE(A1);8;15)<¢;JOURSEM(DATE(ANNEE(A1);8;15);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;1)>¡;DATE(ANNEE(A1);11;1)<¢;JOURSEM(DATE(ANNEE(A1);11;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;11)>¡;DATE(ANNEE(A1);11;11)<¢;JOURSEM(DATE(ANNEE(A1);11;11);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);12;25)>¡;DATE(ANNEE(A1);12;25)<¢;JOURSEM(DATE(ANNEE(A1);12;25);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44<¢)&"
jours ouvrables"
.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
Bonjour André,
Et pour avoir une liste exhaustive et "complète" selon Microsoft....pour
tous les pays où Microsoft est présent....
si tu as l'application Microsoft Outlook, tu peux ouvrir le fichier
Outlook.Hol à l'aide de l'application NotePad. Pour ce faire,
un clic du bouton droit de la souris sur ledit fichier et tu sélectionnes
la commande "ouvrir avec" et dans la fenêtre qui s'ouvre, tu sélectionnes "NotePad"
Ce fichier est situé là sur Windows xp pro et office 2003
C:Program FilesMicrosoft OfficeOFFICExx1036OUTLOOK.HOL
Et selon ta version, si tu avais à mettre à jour la liste des congés, il y a cette adresse
:
http://www.outlook-tips.net/howto/missinghol.htm
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de groupe de discussion :
4a658a74$0$17736$ba4acef3@news.orange.fr...
Je n'en finis pas de ramasser des perles ce matin:
* j'avais oublié le 8 MAI
* quelques mois et jours s'étaient croisés les genoux sur le 11 Novembre et sur Noël
* et j'avais deux erreurs de signes sur les valeurs à ajouter pour les lundi de Pâques et
jeudi de
l'Ascension
Rien que ça...
J'en suis un peu penaud..
Voici ce que ça donne maintenant comme formule, et je suis quasiment certain que c'est bon
...
="La période qui va du "&JOUR(A1)&"/"&MOIS(A1)&"/"&ANNEE(A1)&" au
"&JOUR(A2)&"/"&MOIS(A2)&"/"&ANNEE(A2)&" contient
"&NB.JOURS.OUVRES(A1;A2)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);1;1)>¡;DATE(ANNEE(A1);1;1)<¢;JOURSEM(DATE(ANNEE(A1);1;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;1)>¡;DATE(ANNEE(A1);5;1)<¢;JOURSEM(DATE(ANNEE(A1);5;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;8)>¡;DATE(ANNEE(A1);5;8)<¢;JOURSEM(DATE(ANNEE(A1);5;8);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);7;14)>¡;DATE(ANNEE(A1);7;14)<¢;JOURSEM(DATE(ANNEE(A1);7;14);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);8;15)>¡;DATE(ANNEE(A1);8;15)<¢;JOURSEM(DATE(ANNEE(A1);8;15);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;1)>¡;DATE(ANNEE(A1);11;1)<¢;JOURSEM(DATE(ANNEE(A1);11;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;11)>¡;DATE(ANNEE(A1);11;11)<¢;JOURSEM(DATE(ANNEE(A1);11;11);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);12;25)>¡;DATE(ANNEE(A1);12;25)<¢;JOURSEM(DATE(ANNEE(A1);12;25);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44<¢)&"
jours ouvrables"
.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
eb6OQVVCKHA.3556@TK2MSFTNGP04.phx.gbl...
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
Bonjour André,
Et pour avoir une liste exhaustive et "complète" selon Microsoft....pour
tous les pays où Microsoft est présent....
si tu as l'application Microsoft Outlook, tu peux ouvrir le fichier
Outlook.Hol à l'aide de l'application NotePad. Pour ce faire,
un clic du bouton droit de la souris sur ledit fichier et tu sélectionnes
la commande "ouvrir avec" et dans la fenêtre qui s'ouvre, tu sélectionnes "NotePad"
Ce fichier est situé là sur Windows xp pro et office 2003
C:Program FilesMicrosoft OfficeOFFICExx1036OUTLOOK.HOL
Et selon ta version, si tu avais à mettre à jour la liste des congés, il y a cette adresse
:
http://www.outlook-tips.net/howto/missinghol.htm
"AndréBdR" a écrit dans le message de groupe de discussion :
4a658a74$0$17736$
Je n'en finis pas de ramasser des perles ce matin:
* j'avais oublié le 8 MAI
* quelques mois et jours s'étaient croisés les genoux sur le 11 Novembre et sur Noël
* et j'avais deux erreurs de signes sur les valeurs à ajouter pour les lundi de Pâques et
jeudi de
l'Ascension
Rien que ça...
J'en suis un peu penaud..
Voici ce que ça donne maintenant comme formule, et je suis quasiment certain que c'est bon
...
="La période qui va du "&JOUR(A1)&"/"&MOIS(A1)&"/"&ANNEE(A1)&" au
"&JOUR(A2)&"/"&MOIS(A2)&"/"&ANNEE(A2)&" contient
"&NB.JOURS.OUVRES(A1;A2)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);1;1)>¡;DATE(ANNEE(A1);1;1)<¢;JOURSEM(DATE(ANNEE(A1);1;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;1)>¡;DATE(ANNEE(A1);5;1)<¢;JOURSEM(DATE(ANNEE(A1);5;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;8)>¡;DATE(ANNEE(A1);5;8)<¢;JOURSEM(DATE(ANNEE(A1);5;8);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);7;14)>¡;DATE(ANNEE(A1);7;14)<¢;JOURSEM(DATE(ANNEE(A1);7;14);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);8;15)>¡;DATE(ANNEE(A1);8;15)<¢;JOURSEM(DATE(ANNEE(A1);8;15);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;1)>¡;DATE(ANNEE(A1);11;1)<¢;JOURSEM(DATE(ANNEE(A1);11;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;11)>¡;DATE(ANNEE(A1);11;11)<¢;JOURSEM(DATE(ANNEE(A1);11;11);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);12;25)>¡;DATE(ANNEE(A1);12;25)<¢;JOURSEM(DATE(ANNEE(A1);12;25);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44<¢)&"
jours ouvrables"
.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
source : Excel 2007 bible de John Walkenbach
Le maximum de caractères dans une formule de la
version dans excel 2003 est 1000 tandis que pour la
version 2007 et 8000.
"AndréBdR" a écrit dans le message de groupe de discussion :
4a658a74$0$17736$
Je n'en finis pas de ramasser des perles ce matin:
* j'avais oublié le 8 MAI
* quelques mois et jours s'étaient croisés les genoux sur le 11 Novembre et sur Noël
* et j'avais deux erreurs de signes sur les valeurs à ajouter pour les lundi de Pâques et
jeudi de
l'Ascension
Rien que ça...
J'en suis un peu penaud..
Voici ce que ça donne maintenant comme formule, et je suis quasiment certain que c'est bon
...
="La période qui va du "&JOUR(A1)&"/"&MOIS(A1)&"/"&ANNEE(A1)&" au
"&JOUR(A2)&"/"&MOIS(A2)&"/"&ANNEE(A2)&" contient
"&NB.JOURS.OUVRES(A1;A2)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);1;1)>¡;DATE(ANNEE(A1);1;1)<¢;JOURSEM(DATE(ANNEE(A1);1;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;1)>¡;DATE(ANNEE(A1);5;1)<¢;JOURSEM(DATE(ANNEE(A1);5;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;8)>¡;DATE(ANNEE(A1);5;8)<¢;JOURSEM(DATE(ANNEE(A1);5;8);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);7;14)>¡;DATE(ANNEE(A1);7;14)<¢;JOURSEM(DATE(ANNEE(A1);7;14);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);8;15)>¡;DATE(ANNEE(A1);8;15)<¢;JOURSEM(DATE(ANNEE(A1);8;15);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;1)>¡;DATE(ANNEE(A1);11;1)<¢;JOURSEM(DATE(ANNEE(A1);11;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;11)>¡;DATE(ANNEE(A1);11;11)<¢;JOURSEM(DATE(ANNEE(A1);11;11);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);12;25)>¡;DATE(ANNEE(A1);12;25)<¢;JOURSEM(DATE(ANNEE(A1);12;25);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44<¢)&"
jours ouvrables"
.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
source : Excel 2007 bible de John Walkenbach
Le maximum de caractères dans une formule de la
version dans excel 2003 est 1000 tandis que pour la
version 2007 et 8000.
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de groupe de discussion :
4a658a74$0$17736$ba4acef3@news.orange.fr...
Je n'en finis pas de ramasser des perles ce matin:
* j'avais oublié le 8 MAI
* quelques mois et jours s'étaient croisés les genoux sur le 11 Novembre et sur Noël
* et j'avais deux erreurs de signes sur les valeurs à ajouter pour les lundi de Pâques et
jeudi de
l'Ascension
Rien que ça...
J'en suis un peu penaud..
Voici ce que ça donne maintenant comme formule, et je suis quasiment certain que c'est bon
...
="La période qui va du "&JOUR(A1)&"/"&MOIS(A1)&"/"&ANNEE(A1)&" au
"&JOUR(A2)&"/"&MOIS(A2)&"/"&ANNEE(A2)&" contient
"&NB.JOURS.OUVRES(A1;A2)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);1;1)>¡;DATE(ANNEE(A1);1;1)<¢;JOURSEM(DATE(ANNEE(A1);1;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;1)>¡;DATE(ANNEE(A1);5;1)<¢;JOURSEM(DATE(ANNEE(A1);5;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;8)>¡;DATE(ANNEE(A1);5;8)<¢;JOURSEM(DATE(ANNEE(A1);5;8);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);7;14)>¡;DATE(ANNEE(A1);7;14)<¢;JOURSEM(DATE(ANNEE(A1);7;14);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);8;15)>¡;DATE(ANNEE(A1);8;15)<¢;JOURSEM(DATE(ANNEE(A1);8;15);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;1)>¡;DATE(ANNEE(A1);11;1)<¢;JOURSEM(DATE(ANNEE(A1);11;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;11)>¡;DATE(ANNEE(A1);11;11)<¢;JOURSEM(DATE(ANNEE(A1);11;11);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);12;25)>¡;DATE(ANNEE(A1);12;25)<¢;JOURSEM(DATE(ANNEE(A1);12;25);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44<¢)&"
jours ouvrables"
.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
eb6OQVVCKHA.3556@TK2MSFTNGP04.phx.gbl...
A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc
source : Excel 2007 bible de John Walkenbach
Le maximum de caractères dans une formule de la
version dans excel 2003 est 1000 tandis que pour la
version 2007 et 8000.
"AndréBdR" a écrit dans le message de groupe de discussion :
4a658a74$0$17736$
Je n'en finis pas de ramasser des perles ce matin:
* j'avais oublié le 8 MAI
* quelques mois et jours s'étaient croisés les genoux sur le 11 Novembre et sur Noël
* et j'avais deux erreurs de signes sur les valeurs à ajouter pour les lundi de Pâques et
jeudi de
l'Ascension
Rien que ça...
J'en suis un peu penaud..
Voici ce que ça donne maintenant comme formule, et je suis quasiment certain que c'est bon
...
="La période qui va du "&JOUR(A1)&"/"&MOIS(A1)&"/"&ANNEE(A1)&" au
"&JOUR(A2)&"/"&MOIS(A2)&"/"&ANNEE(A2)&" contient
"&NB.JOURS.OUVRES(A1;A2)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);1;1)>¡;DATE(ANNEE(A1);1;1)<¢;JOURSEM(DATE(ANNEE(A1);1;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;1)>¡;DATE(ANNEE(A1);5;1)<¢;JOURSEM(DATE(ANNEE(A1);5;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);5;8)>¡;DATE(ANNEE(A1);5;8)<¢;JOURSEM(DATE(ANNEE(A1);5;8);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);7;14)>¡;DATE(ANNEE(A1);7;14)<¢;JOURSEM(DATE(ANNEE(A1);7;14);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);8;15)>¡;DATE(ANNEE(A1);8;15)<¢;JOURSEM(DATE(ANNEE(A1);8;15);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;1)>¡;DATE(ANNEE(A1);11;1)<¢;JOURSEM(DATE(ANNEE(A1);11;1);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);11;11)>¡;DATE(ANNEE(A1);11;11)<¢;JOURSEM(DATE(ANNEE(A1);11;11);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);DATE(ANNEE(A1);12;25)>¡;DATE(ANNEE(A1);12;25)<¢;JOURSEM(DATE(ANNEE(A1);12;25);2)<6)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7-5<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+33<¢)-ET(A1>ÚTE(ANNEE(A1);1;1);A2>A1;ANNEE(A1)=ANNEE(A2);FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44>¡;FRANC((JOUR(MINUTE(ANNEE(A1)/38)/2+55)&"/4/"&ANNEE(A1))/7;)*7+44<¢)&"
jours ouvrables"
.
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:A tout hasard, je remets ci-dessous la formule que j'ai adaptée ici, à l'os, en toute
bonne foi.
Remplacer "An" par ANNEE(A1) moi je veux bien mais je me demande comment tu fais pour
passer une
formule de 1565 caractères... (voir message précédent)
Et ça marche ?
Sous Excel quelle version ?
Etc