Bonjour,
Le calcul s'avère plus long que difficile :
Pâques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr ès le
21 mars.
Dates extrêmes : 22 mars au 25 avril
PA : dimanche de Pâques = 0 j
LP : lundi de Pâques = P + 1
AS : jeudi Ascension = P + 39 j
PE : dimanche de Pentecôte = P + 49 j
LP : lundi de Pentecôte = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Dim A As Integer
Dim C As Integer
Dim D As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim sngR As Single
'
an = ???? SAISIE de 1583 à 9999
A = an Mod 19
C = Int(an / 100)
D = 100 * ((an / 100) - Int(an / 100))
F = Int(C / 4)
G = 4 * (C / 4 - Int(C / 4))
H = Int((8 + C) / 25)
I = Int((1 + C - H) / 3)
J = 15 + 19 * A + C - F - I
K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
M = Int(D / 4)
N = 4 * (D / 4 - Int(D / 4))
O = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
Q = Int((A + 11 * K + 22 * P) / 451)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
Mais ce n'est pas la peine de calculer à chaque fois, tu fais l e calcul
une fois et tu entres les dates dans un tableau de 30 ans selon l'année .
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a écrit dans le message denews:af23a573-9
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les f êtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour,
Le calcul s'avère plus long que difficile :
Pâques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr ès le
21 mars.
Dates extrêmes : 22 mars au 25 avril
PA : dimanche de Pâques = 0 j
LP : lundi de Pâques = P + 1
AS : jeudi Ascension = P + 39 j
PE : dimanche de Pentecôte = P + 49 j
LP : lundi de Pentecôte = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Dim A As Integer
Dim C As Integer
Dim D As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim sngR As Single
'
an = ???? SAISIE de 1583 à 9999
A = an Mod 19
C = Int(an / 100)
D = 100 * ((an / 100) - Int(an / 100))
F = Int(C / 4)
G = 4 * (C / 4 - Int(C / 4))
H = Int((8 + C) / 25)
I = Int((1 + C - H) / 3)
J = 15 + 19 * A + C - F - I
K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
M = Int(D / 4)
N = 4 * (D / 4 - Int(D / 4))
O = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
Q = Int((A + 11 * K + 22 * P) / 451)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
Mais ce n'est pas la peine de calculer à chaque fois, tu fais l e calcul
une fois et tu entres les dates dans un tableau de 30 ans selon l'année .
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" <guido....@gmail.com> a écrit dans le message denews:af23a573-9 bec-4bf8-a03a-40db810ba638@z41g2000yqz.googlegroups.com...
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les f êtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour,
Le calcul s'avère plus long que difficile :
Pâques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr ès le
21 mars.
Dates extrêmes : 22 mars au 25 avril
PA : dimanche de Pâques = 0 j
LP : lundi de Pâques = P + 1
AS : jeudi Ascension = P + 39 j
PE : dimanche de Pentecôte = P + 49 j
LP : lundi de Pentecôte = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Dim A As Integer
Dim C As Integer
Dim D As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim sngR As Single
'
an = ???? SAISIE de 1583 à 9999
A = an Mod 19
C = Int(an / 100)
D = 100 * ((an / 100) - Int(an / 100))
F = Int(C / 4)
G = 4 * (C / 4 - Int(C / 4))
H = Int((8 + C) / 25)
I = Int((1 + C - H) / 3)
J = 15 + 19 * A + C - F - I
K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
M = Int(D / 4)
N = 4 * (D / 4 - Int(D / 4))
O = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
Q = Int((A + 11 * K + 22 * P) / 451)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
Mais ce n'est pas la peine de calculer à chaque fois, tu fais l e calcul
une fois et tu entres les dates dans un tableau de 30 ans selon l'année .
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a écrit dans le message denews:af23a573-9
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les f êtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour,
Le calcul s'avère plus long que difficile :
Pâques est le 1er dimanche qui suit le 14eme jour de la pleine Lune après
le
21 mars.
Dates extrêmes : 22 mars au 25 avril
PA : dimanche de Pâques = 0 j
LP : lundi de Pâques = P + 1
AS : jeudi Ascension = P + 39 j
PE : dimanche de Pentecôte = P + 49 j
LP : lundi de Pentecôte = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Dim A As Integer
Dim C As Integer
Dim D As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim sngR As Single
'
an = ???? SAISIE de 1583 à 9999
A = an Mod 19
C = Int(an / 100)
D = 100 * ((an / 100) - Int(an / 100))
F = Int(C / 4)
G = 4 * (C / 4 - Int(C / 4))
H = Int((8 + C) / 25)
I = Int((1 + C - H) / 3)
J = 15 + 19 * A + C - F - I
K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
M = Int(D / 4)
N = 4 * (D / 4 - Int(D / 4))
O = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
Q = Int((A + 11 * K + 22 * P) / 451)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
Mais ce n'est pas la peine de calculer à chaque fois, tu fais le calcul
une fois et tu entres les dates dans un tableau de 30 ans selon l'année.
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a écrit dans le message
denews:
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour,
Le calcul s'avère plus long que difficile :
Pâques est le 1er dimanche qui suit le 14eme jour de la pleine Lune après
le
21 mars.
Dates extrêmes : 22 mars au 25 avril
PA : dimanche de Pâques = 0 j
LP : lundi de Pâques = P + 1
AS : jeudi Ascension = P + 39 j
PE : dimanche de Pentecôte = P + 49 j
LP : lundi de Pentecôte = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Dim A As Integer
Dim C As Integer
Dim D As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim sngR As Single
'
an = ???? SAISIE de 1583 à 9999
A = an Mod 19
C = Int(an / 100)
D = 100 * ((an / 100) - Int(an / 100))
F = Int(C / 4)
G = 4 * (C / 4 - Int(C / 4))
H = Int((8 + C) / 25)
I = Int((1 + C - H) / 3)
J = 15 + 19 * A + C - F - I
K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
M = Int(D / 4)
N = 4 * (D / 4 - Int(D / 4))
O = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
Q = Int((A + 11 * K + 22 * P) / 451)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
Mais ce n'est pas la peine de calculer à chaque fois, tu fais le calcul
une fois et tu entres les dates dans un tableau de 30 ans selon l'année.
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" <guido....@gmail.com> a écrit dans le message
denews:af23a573-9bec-4bf8-a03a-40db810ba638@z41g2000yqz.googlegroups.com...
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour,
Le calcul s'avère plus long que difficile :
Pâques est le 1er dimanche qui suit le 14eme jour de la pleine Lune après
le
21 mars.
Dates extrêmes : 22 mars au 25 avril
PA : dimanche de Pâques = 0 j
LP : lundi de Pâques = P + 1
AS : jeudi Ascension = P + 39 j
PE : dimanche de Pentecôte = P + 49 j
LP : lundi de Pentecôte = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Dim A As Integer
Dim C As Integer
Dim D As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim Q As Integer
Dim sngR As Single
'
an = ???? SAISIE de 1583 à 9999
A = an Mod 19
C = Int(an / 100)
D = 100 * ((an / 100) - Int(an / 100))
F = Int(C / 4)
G = 4 * (C / 4 - Int(C / 4))
H = Int((8 + C) / 25)
I = Int((1 + C - H) / 3)
J = 15 + 19 * A + C - F - I
K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
M = Int(D / 4)
N = 4 * (D / 4 - Int(D / 4))
O = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
Q = Int((A + 11 * K + 22 * P) / 451)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
Mais ce n'est pas la peine de calculer à chaque fois, tu fais le calcul
une fois et tu entres les dates dans un tableau de 30 ans selon l'année.
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a écrit dans le message
denews:
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonsoir,
On va appeler le calcul :
call calculeFetes
et a revient ici, durant l'ex cution d'autres v nements et code peuvent s e
d clencher, mais normalement a va tre g r par le syst me, ce sera
transparent en temps partag , toutefois, vu le petit nombre, on peut fair e
le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en dur,
puis aller les lire, ainsi on vite de calculer sans cesse.
sub calculeFetes
...
end sub
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a crit dans le message denews:fd051814-9eeb
Bonsoir Le Troll,
d'abord, merci pour votre r ponse. Mais l je profite pour vous
demander de l'aide.
Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
lorsque je mets une date dans A1, la disposition annuelle du
calendrier change.
Est-ce que ma MFC des week-ends et votre code fourni, serait source
d'interf rence dans leur mani re de fonctionner ?
Merci vous de votre r ponse.
Guido
----
J'ai int gr le d but du code comme ceci:
Sub Ferie()
'pour info
'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
apr s le 21 mars.
'Dates extr mes : 22 mars au 25 avril
'PA : dimanche de P ques = 0 j
'LP : lundi de P ques = P + 1
'AS : jeudi Ascension = P + 39 j
'PE : dimanche de Pentec te = P + 49 j
'LP : lundi de Pentec te = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Ici, j'ai corrig les colonnes que je d sire voir color e selon les
besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
deux)
J'aurais pas d ???
Dim A As Integer
Dim E As Integer
Dim I As Integer
Dim M As Integer
Dim Q As Integer
Dim U As Integer
Dim Y As Integer
Dim AC As Integer
Dim AG As Integer
Dim AK As Integer
Dim AO As Integer
Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
Dim sngR As Single (je ne vois pas ce que cela signifie)
Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
' an = ???? SAISIE de 1583 9999
A = an Mod 19
E = Int(an / 100)
I = 100 * ((an / 100) - Int(an / 100))
M = Int(C / 4)
Q = 4 * (C / 4 - Int(C / 4))
U = Int((8 + C) / 25)
Y = Int((1 + C - H) / 3)
AC = 15 + 19 * A + C - F - I
AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
AK = Int(D / 4)
AO = 4 * (D / 4 - Int(D / 4))
AS = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
correspond plus une colonne)
Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne corres pond
plus une colonne)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
End Sub
On 11 jan, 08:11, "LE TROLL" <le wrote:
> Bonjour,
> Le calcul s'av re plus long que difficile :
> P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr s
> le
> 21 mars.
> Dates extr mes : 22 mars au 25 avril
> PA : dimanche de P ques = 0 j
> LP : lundi de P ques = P + 1
> AS : jeudi Ascension = P + 39 j
> PE : dimanche de Pentec te = P + 49 j
> LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Dim A As Integer
> Dim C As Integer
> Dim D As Integer
> Dim F As Integer
> Dim G As Integer
> Dim H As Integer
> Dim I As Integer
> Dim J As Integer
> Dim K As Integer
> Dim M As Integer
> Dim N As Integer
> Dim O As Integer
> Dim P As Integer
> Dim Q As Integer
> Dim sngR As Single
> '
> an = ???? SAISIE de 1583 9999
> A = an Mod 19
> C = Int(an / 100)
> D = 100 * ((an / 100) - Int(an / 100))
> F = Int(C / 4)
> G = 4 * (C / 4 - Int(C / 4))
> H = Int((8 + C) / 25)
> I = Int((1 + C - H) / 3)
> J = 15 + 19 * A + C - F - I
> K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> M = Int(D / 4)
> N = 4 * (D / 4 - Int(D / 4))
> O = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> Q = Int((A + 11 * K + 22 * P) / 451)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e .
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" a crit dans le message
> denews: m...
> Bonjour vous,
> Je monte un calendrier annuel. Il comporte une colonne par mois et
> chaque colonne est accompagn e de trois colonnes suppl mentaires
> (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> suivants).
> Une superbe Formule de AV int grait pratiquement toutes les f tes,
> mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
> pas une date concluante. On devra bosser ici. Et je ne parle pas du
> 1er mai.
> Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> une version Suisse. (snifff)
> C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
> une formule qui int grerai dans celle ci-dessous (notification des
> week-end), uniquement les dates volatiles en fonction de P ques ?
> =(A1<>"")*(JOURSEM(A1;2)>5)
> (jours en fonction de P ques)
> * Vendredi Saint (2 avril 2010)
> * Lundi de P ques (5 avril 2010)
> * Ascension (13 mai 2010)
> * Lundi de la Pentec te (24 mai 2010)
> (jours fixes)
> * Nouvel An (1er janvier 2010)
> * F te Nationale (1er ao t 2010)
> * Je ne Genevois (9 septembre 2010)
> * No l (25 d cembre 2010)
> * Restauration de la R publique (31 d cembre 2010)
> Je vous remercie de votre aide.
> A bient t
Bonsoir,
On va appeler le calcul :
call calculeFetes
et a revient ici, durant l'ex cution d'autres v nements et code peuvent s e
d clencher, mais normalement a va tre g r par le syst me, ce sera
transparent en temps partag , toutefois, vu le petit nombre, on peut fair e
le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en dur,
puis aller les lire, ainsi on vite de calculer sans cesse.
sub calculeFetes
...
end sub
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" <guido....@gmail.com> a crit dans le message denews:fd051814-9eeb -45b3-a2d8-91fff7f8bbae@l30g2000yqb.googlegroups.com...
Bonsoir Le Troll,
d'abord, merci pour votre r ponse. Mais l je profite pour vous
demander de l'aide.
Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
lorsque je mets une date dans A1, la disposition annuelle du
calendrier change.
Est-ce que ma MFC des week-ends et votre code fourni, serait source
d'interf rence dans leur mani re de fonctionner ?
Merci vous de votre r ponse.
Guido
----
J'ai int gr le d but du code comme ceci:
Sub Ferie()
'pour info
'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
apr s le 21 mars.
'Dates extr mes : 22 mars au 25 avril
'PA : dimanche de P ques = 0 j
'LP : lundi de P ques = P + 1
'AS : jeudi Ascension = P + 39 j
'PE : dimanche de Pentec te = P + 49 j
'LP : lundi de Pentec te = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Ici, j'ai corrig les colonnes que je d sire voir color e selon les
besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
deux)
J'aurais pas d ???
Dim A As Integer
Dim E As Integer
Dim I As Integer
Dim M As Integer
Dim Q As Integer
Dim U As Integer
Dim Y As Integer
Dim AC As Integer
Dim AG As Integer
Dim AK As Integer
Dim AO As Integer
Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
Dim sngR As Single (je ne vois pas ce que cela signifie)
Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
' an = ???? SAISIE de 1583 9999
A = an Mod 19
E = Int(an / 100)
I = 100 * ((an / 100) - Int(an / 100))
M = Int(C / 4)
Q = 4 * (C / 4 - Int(C / 4))
U = Int((8 + C) / 25)
Y = Int((1 + C - H) / 3)
AC = 15 + 19 * A + C - F - I
AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
AK = Int(D / 4)
AO = 4 * (D / 4 - Int(D / 4))
AS = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
correspond plus une colonne)
Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne corres pond
plus une colonne)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
End Sub
On 11 jan, 08:11, "LE TROLL" <le tr...@enfer.fr> wrote:
> Bonjour,
> Le calcul s'av re plus long que difficile :
> P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr s
> le
> 21 mars.
> Dates extr mes : 22 mars au 25 avril
> PA : dimanche de P ques = 0 j
> LP : lundi de P ques = P + 1
> AS : jeudi Ascension = P + 39 j
> PE : dimanche de Pentec te = P + 49 j
> LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Dim A As Integer
> Dim C As Integer
> Dim D As Integer
> Dim F As Integer
> Dim G As Integer
> Dim H As Integer
> Dim I As Integer
> Dim J As Integer
> Dim K As Integer
> Dim M As Integer
> Dim N As Integer
> Dim O As Integer
> Dim P As Integer
> Dim Q As Integer
> Dim sngR As Single
> '
> an = ???? SAISIE de 1583 9999
> A = an Mod 19
> C = Int(an / 100)
> D = 100 * ((an / 100) - Int(an / 100))
> F = Int(C / 4)
> G = 4 * (C / 4 - Int(C / 4))
> H = Int((8 + C) / 25)
> I = Int((1 + C - H) / 3)
> J = 15 + 19 * A + C - F - I
> K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> M = Int(D / 4)
> N = 4 * (D / 4 - Int(D / 4))
> O = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> Q = Int((A + 11 * K + 22 * P) / 451)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e .
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" <guido....@gmail.com> a crit dans le message
> denews:af23a573-9bec-4bf8-a03a-40db810ba638@z41g2000yqz.googlegroups.co m...
> Bonjour vous,
> Je monte un calendrier annuel. Il comporte une colonne par mois et
> chaque colonne est accompagn e de trois colonnes suppl mentaires
> (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> suivants).
> Une superbe Formule de AV int grait pratiquement toutes les f tes,
> mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
> pas une date concluante. On devra bosser ici. Et je ne parle pas du
> 1er mai.
> Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> une version Suisse. (snifff)
> C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
> une formule qui int grerai dans celle ci-dessous (notification des
> week-end), uniquement les dates volatiles en fonction de P ques ?
> =(A1<>"")*(JOURSEM(A1;2)>5)
> (jours en fonction de P ques)
> * Vendredi Saint (2 avril 2010)
> * Lundi de P ques (5 avril 2010)
> * Ascension (13 mai 2010)
> * Lundi de la Pentec te (24 mai 2010)
> (jours fixes)
> * Nouvel An (1er janvier 2010)
> * F te Nationale (1er ao t 2010)
> * Je ne Genevois (9 septembre 2010)
> * No l (25 d cembre 2010)
> * Restauration de la R publique (31 d cembre 2010)
> Je vous remercie de votre aide.
> A bient t
Bonsoir,
On va appeler le calcul :
call calculeFetes
et a revient ici, durant l'ex cution d'autres v nements et code peuvent s e
d clencher, mais normalement a va tre g r par le syst me, ce sera
transparent en temps partag , toutefois, vu le petit nombre, on peut fair e
le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en dur,
puis aller les lire, ainsi on vite de calculer sans cesse.
sub calculeFetes
...
end sub
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a crit dans le message denews:fd051814-9eeb
Bonsoir Le Troll,
d'abord, merci pour votre r ponse. Mais l je profite pour vous
demander de l'aide.
Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
lorsque je mets une date dans A1, la disposition annuelle du
calendrier change.
Est-ce que ma MFC des week-ends et votre code fourni, serait source
d'interf rence dans leur mani re de fonctionner ?
Merci vous de votre r ponse.
Guido
----
J'ai int gr le d but du code comme ceci:
Sub Ferie()
'pour info
'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
apr s le 21 mars.
'Dates extr mes : 22 mars au 25 avril
'PA : dimanche de P ques = 0 j
'LP : lundi de P ques = P + 1
'AS : jeudi Ascension = P + 39 j
'PE : dimanche de Pentec te = P + 49 j
'LP : lundi de Pentec te = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Ici, j'ai corrig les colonnes que je d sire voir color e selon les
besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
deux)
J'aurais pas d ???
Dim A As Integer
Dim E As Integer
Dim I As Integer
Dim M As Integer
Dim Q As Integer
Dim U As Integer
Dim Y As Integer
Dim AC As Integer
Dim AG As Integer
Dim AK As Integer
Dim AO As Integer
Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
Dim sngR As Single (je ne vois pas ce que cela signifie)
Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
' an = ???? SAISIE de 1583 9999
A = an Mod 19
E = Int(an / 100)
I = 100 * ((an / 100) - Int(an / 100))
M = Int(C / 4)
Q = 4 * (C / 4 - Int(C / 4))
U = Int((8 + C) / 25)
Y = Int((1 + C - H) / 3)
AC = 15 + 19 * A + C - F - I
AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
AK = Int(D / 4)
AO = 4 * (D / 4 - Int(D / 4))
AS = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
correspond plus une colonne)
Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne corres pond
plus une colonne)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
End Sub
On 11 jan, 08:11, "LE TROLL" <le wrote:
> Bonjour,
> Le calcul s'av re plus long que difficile :
> P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr s
> le
> 21 mars.
> Dates extr mes : 22 mars au 25 avril
> PA : dimanche de P ques = 0 j
> LP : lundi de P ques = P + 1
> AS : jeudi Ascension = P + 39 j
> PE : dimanche de Pentec te = P + 49 j
> LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Dim A As Integer
> Dim C As Integer
> Dim D As Integer
> Dim F As Integer
> Dim G As Integer
> Dim H As Integer
> Dim I As Integer
> Dim J As Integer
> Dim K As Integer
> Dim M As Integer
> Dim N As Integer
> Dim O As Integer
> Dim P As Integer
> Dim Q As Integer
> Dim sngR As Single
> '
> an = ???? SAISIE de 1583 9999
> A = an Mod 19
> C = Int(an / 100)
> D = 100 * ((an / 100) - Int(an / 100))
> F = Int(C / 4)
> G = 4 * (C / 4 - Int(C / 4))
> H = Int((8 + C) / 25)
> I = Int((1 + C - H) / 3)
> J = 15 + 19 * A + C - F - I
> K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> M = Int(D / 4)
> N = 4 * (D / 4 - Int(D / 4))
> O = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> Q = Int((A + 11 * K + 22 * P) / 451)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e .
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" a crit dans le message
> denews: m...
> Bonjour vous,
> Je monte un calendrier annuel. Il comporte une colonne par mois et
> chaque colonne est accompagn e de trois colonnes suppl mentaires
> (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> suivants).
> Une superbe Formule de AV int grait pratiquement toutes les f tes,
> mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
> pas une date concluante. On devra bosser ici. Et je ne parle pas du
> 1er mai.
> Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> une version Suisse. (snifff)
> C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
> une formule qui int grerai dans celle ci-dessous (notification des
> week-end), uniquement les dates volatiles en fonction de P ques ?
> =(A1<>"")*(JOURSEM(A1;2)>5)
> (jours en fonction de P ques)
> * Vendredi Saint (2 avril 2010)
> * Lundi de P ques (5 avril 2010)
> * Ascension (13 mai 2010)
> * Lundi de la Pentec te (24 mai 2010)
> (jours fixes)
> * Nouvel An (1er janvier 2010)
> * F te Nationale (1er ao t 2010)
> * Je ne Genevois (9 septembre 2010)
> * No l (25 d cembre 2010)
> * Restauration de la R publique (31 d cembre 2010)
> Je vous remercie de votre aide.
> A bient t
Bonsoir,
On va appeler le calcul :
call calculeFetes
et a revient ici, durant l'ex cution d'autres v nements et code peuvent se
d clencher, mais normalement a va tre g r par le syst me, ce sera
transparent en temps partag , toutefois, vu le petit nombre, on peut faire
le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en dur,
puis aller les lire, ainsi on vite de calculer sans cesse.
sub calculeFetes
...
end sub
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a crit dans le message
denews:
Bonsoir Le Troll,
d'abord, merci pour votre r ponse. Mais l je profite pour vous
demander de l'aide.
Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
lorsque je mets une date dans A1, la disposition annuelle du
calendrier change.
Est-ce que ma MFC des week-ends et votre code fourni, serait source
d'interf rence dans leur mani re de fonctionner ?
Merci vous de votre r ponse.
Guido
----
J'ai int gr le d but du code comme ceci:
Sub Ferie()
'pour info
'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
apr s le 21 mars.
'Dates extr mes : 22 mars au 25 avril
'PA : dimanche de P ques = 0 j
'LP : lundi de P ques = P + 1
'AS : jeudi Ascension = P + 39 j
'PE : dimanche de Pentec te = P + 49 j
'LP : lundi de Pentec te = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Ici, j'ai corrig les colonnes que je d sire voir color e selon les
besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
deux)
J'aurais pas d ???
Dim A As Integer
Dim E As Integer
Dim I As Integer
Dim M As Integer
Dim Q As Integer
Dim U As Integer
Dim Y As Integer
Dim AC As Integer
Dim AG As Integer
Dim AK As Integer
Dim AO As Integer
Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
Dim sngR As Single (je ne vois pas ce que cela signifie)
Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
' an = ???? SAISIE de 1583 9999
A = an Mod 19
E = Int(an / 100)
I = 100 * ((an / 100) - Int(an / 100))
M = Int(C / 4)
Q = 4 * (C / 4 - Int(C / 4))
U = Int((8 + C) / 25)
Y = Int((1 + C - H) / 3)
AC = 15 + 19 * A + C - F - I
AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
AK = Int(D / 4)
AO = 4 * (D / 4 - Int(D / 4))
AS = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
correspond plus une colonne)
Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne correspond
plus une colonne)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
End Sub
On 11 jan, 08:11, "LE TROLL" <le wrote:
> Bonjour,
> Le calcul s'av re plus long que difficile :
> P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr
> s
> le
> 21 mars.
> Dates extr mes : 22 mars au 25 avril
> PA : dimanche de P ques = 0 j
> LP : lundi de P ques = P + 1
> AS : jeudi Ascension = P + 39 j
> PE : dimanche de Pentec te = P + 49 j
> LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Dim A As Integer
> Dim C As Integer
> Dim D As Integer
> Dim F As Integer
> Dim G As Integer
> Dim H As Integer
> Dim I As Integer
> Dim J As Integer
> Dim K As Integer
> Dim M As Integer
> Dim N As Integer
> Dim O As Integer
> Dim P As Integer
> Dim Q As Integer
> Dim sngR As Single
> '
> an = ???? SAISIE de 1583 9999
> A = an Mod 19
> C = Int(an / 100)
> D = 100 * ((an / 100) - Int(an / 100))
> F = Int(C / 4)
> G = 4 * (C / 4 - Int(C / 4))
> H = Int((8 + C) / 25)
> I = Int((1 + C - H) / 3)
> J = 15 + 19 * A + C - F - I
> K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> M = Int(D / 4)
> N = 4 * (D / 4 - Int(D / 4))
> O = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> Q = Int((A + 11 * K + 22 * P) / 451)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e.
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" a crit dans le message
> denews:
> Bonjour vous,
> Je monte un calendrier annuel. Il comporte une colonne par mois et
> chaque colonne est accompagn e de trois colonnes suppl mentaires
> (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> suivants).
> Une superbe Formule de AV int grait pratiquement toutes les f tes,
> mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
> pas une date concluante. On devra bosser ici. Et je ne parle pas du
> 1er mai.
> Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> une version Suisse. (snifff)
> C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
> une formule qui int grerai dans celle ci-dessous (notification des
> week-end), uniquement les dates volatiles en fonction de P ques ?
> =(A1<>"")*(JOURSEM(A1;2)>5)
> (jours en fonction de P ques)
> * Vendredi Saint (2 avril 2010)
> * Lundi de P ques (5 avril 2010)
> * Ascension (13 mai 2010)
> * Lundi de la Pentec te (24 mai 2010)
> (jours fixes)
> * Nouvel An (1er janvier 2010)
> * F te Nationale (1er ao t 2010)
> * Je ne Genevois (9 septembre 2010)
> * No l (25 d cembre 2010)
> * Restauration de la R publique (31 d cembre 2010)
> Je vous remercie de votre aide.
> A bient t
Bonsoir,
On va appeler le calcul :
call calculeFetes
et a revient ici, durant l'ex cution d'autres v nements et code peuvent se
d clencher, mais normalement a va tre g r par le syst me, ce sera
transparent en temps partag , toutefois, vu le petit nombre, on peut faire
le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en dur,
puis aller les lire, ainsi on vite de calculer sans cesse.
sub calculeFetes
...
end sub
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" <guido....@gmail.com> a crit dans le message
denews:fd051814-9eeb-45b3-a2d8-91fff7f8bbae@l30g2000yqb.googlegroups.com...
Bonsoir Le Troll,
d'abord, merci pour votre r ponse. Mais l je profite pour vous
demander de l'aide.
Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
lorsque je mets une date dans A1, la disposition annuelle du
calendrier change.
Est-ce que ma MFC des week-ends et votre code fourni, serait source
d'interf rence dans leur mani re de fonctionner ?
Merci vous de votre r ponse.
Guido
----
J'ai int gr le d but du code comme ceci:
Sub Ferie()
'pour info
'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
apr s le 21 mars.
'Dates extr mes : 22 mars au 25 avril
'PA : dimanche de P ques = 0 j
'LP : lundi de P ques = P + 1
'AS : jeudi Ascension = P + 39 j
'PE : dimanche de Pentec te = P + 49 j
'LP : lundi de Pentec te = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Ici, j'ai corrig les colonnes que je d sire voir color e selon les
besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
deux)
J'aurais pas d ???
Dim A As Integer
Dim E As Integer
Dim I As Integer
Dim M As Integer
Dim Q As Integer
Dim U As Integer
Dim Y As Integer
Dim AC As Integer
Dim AG As Integer
Dim AK As Integer
Dim AO As Integer
Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
Dim sngR As Single (je ne vois pas ce que cela signifie)
Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
' an = ???? SAISIE de 1583 9999
A = an Mod 19
E = Int(an / 100)
I = 100 * ((an / 100) - Int(an / 100))
M = Int(C / 4)
Q = 4 * (C / 4 - Int(C / 4))
U = Int((8 + C) / 25)
Y = Int((1 + C - H) / 3)
AC = 15 + 19 * A + C - F - I
AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
AK = Int(D / 4)
AO = 4 * (D / 4 - Int(D / 4))
AS = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
correspond plus une colonne)
Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne correspond
plus une colonne)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
End Sub
On 11 jan, 08:11, "LE TROLL" <le tr...@enfer.fr> wrote:
> Bonjour,
> Le calcul s'av re plus long que difficile :
> P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr
> s
> le
> 21 mars.
> Dates extr mes : 22 mars au 25 avril
> PA : dimanche de P ques = 0 j
> LP : lundi de P ques = P + 1
> AS : jeudi Ascension = P + 39 j
> PE : dimanche de Pentec te = P + 49 j
> LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Dim A As Integer
> Dim C As Integer
> Dim D As Integer
> Dim F As Integer
> Dim G As Integer
> Dim H As Integer
> Dim I As Integer
> Dim J As Integer
> Dim K As Integer
> Dim M As Integer
> Dim N As Integer
> Dim O As Integer
> Dim P As Integer
> Dim Q As Integer
> Dim sngR As Single
> '
> an = ???? SAISIE de 1583 9999
> A = an Mod 19
> C = Int(an / 100)
> D = 100 * ((an / 100) - Int(an / 100))
> F = Int(C / 4)
> G = 4 * (C / 4 - Int(C / 4))
> H = Int((8 + C) / 25)
> I = Int((1 + C - H) / 3)
> J = 15 + 19 * A + C - F - I
> K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> M = Int(D / 4)
> N = 4 * (D / 4 - Int(D / 4))
> O = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> Q = Int((A + 11 * K + 22 * P) / 451)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e.
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" <guido....@gmail.com> a crit dans le message
> denews:af23a573-9bec-4bf8-a03a-40db810ba638@z41g2000yqz.googlegroups.com...
> Bonjour vous,
> Je monte un calendrier annuel. Il comporte une colonne par mois et
> chaque colonne est accompagn e de trois colonnes suppl mentaires
> (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> suivants).
> Une superbe Formule de AV int grait pratiquement toutes les f tes,
> mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
> pas une date concluante. On devra bosser ici. Et je ne parle pas du
> 1er mai.
> Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> une version Suisse. (snifff)
> C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
> une formule qui int grerai dans celle ci-dessous (notification des
> week-end), uniquement les dates volatiles en fonction de P ques ?
> =(A1<>"")*(JOURSEM(A1;2)>5)
> (jours en fonction de P ques)
> * Vendredi Saint (2 avril 2010)
> * Lundi de P ques (5 avril 2010)
> * Ascension (13 mai 2010)
> * Lundi de la Pentec te (24 mai 2010)
> (jours fixes)
> * Nouvel An (1er janvier 2010)
> * F te Nationale (1er ao t 2010)
> * Je ne Genevois (9 septembre 2010)
> * No l (25 d cembre 2010)
> * Restauration de la R publique (31 d cembre 2010)
> Je vous remercie de votre aide.
> A bient t
Bonsoir,
On va appeler le calcul :
call calculeFetes
et a revient ici, durant l'ex cution d'autres v nements et code peuvent se
d clencher, mais normalement a va tre g r par le syst me, ce sera
transparent en temps partag , toutefois, vu le petit nombre, on peut faire
le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en dur,
puis aller les lire, ainsi on vite de calculer sans cesse.
sub calculeFetes
...
end sub
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a crit dans le message
denews:
Bonsoir Le Troll,
d'abord, merci pour votre r ponse. Mais l je profite pour vous
demander de l'aide.
Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
lorsque je mets une date dans A1, la disposition annuelle du
calendrier change.
Est-ce que ma MFC des week-ends et votre code fourni, serait source
d'interf rence dans leur mani re de fonctionner ?
Merci vous de votre r ponse.
Guido
----
J'ai int gr le d but du code comme ceci:
Sub Ferie()
'pour info
'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
apr s le 21 mars.
'Dates extr mes : 22 mars au 25 avril
'PA : dimanche de P ques = 0 j
'LP : lundi de P ques = P + 1
'AS : jeudi Ascension = P + 39 j
'PE : dimanche de Pentec te = P + 49 j
'LP : lundi de Pentec te = P + 50
Dim paques
Dim an As Integer
Dim jour As Integer
Dim mois As Integer
Ici, j'ai corrig les colonnes que je d sire voir color e selon les
besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
deux)
J'aurais pas d ???
Dim A As Integer
Dim E As Integer
Dim I As Integer
Dim M As Integer
Dim Q As Integer
Dim U As Integer
Dim Y As Integer
Dim AC As Integer
Dim AG As Integer
Dim AK As Integer
Dim AO As Integer
Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
Dim sngR As Single (je ne vois pas ce que cela signifie)
Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
' an = ???? SAISIE de 1583 9999
A = an Mod 19
E = Int(an / 100)
I = 100 * ((an / 100) - Int(an / 100))
M = Int(C / 4)
Q = 4 * (C / 4 - Int(C / 4))
U = Int((8 + C) / 25)
Y = Int((1 + C - H) / 3)
AC = 15 + 19 * A + C - F - I
AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
AK = Int(D / 4)
AO = 4 * (D / 4 - Int(D / 4))
AS = 32 + 2 * (G + M) - K - N
P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
correspond plus une colonne)
Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne correspond
plus une colonne)
sngR = (114 + K + P - 7 * Q) / 31
mois = Int(sngR)
jour = Int(31 * (sngR - Int(sngR)) + 1.5)
paques = DateSerial(an, mois, jour)
End Sub
On 11 jan, 08:11, "LE TROLL" <le wrote:
> Bonjour,
> Le calcul s'av re plus long que difficile :
> P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune apr
> s
> le
> 21 mars.
> Dates extr mes : 22 mars au 25 avril
> PA : dimanche de P ques = 0 j
> LP : lundi de P ques = P + 1
> AS : jeudi Ascension = P + 39 j
> PE : dimanche de Pentec te = P + 49 j
> LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Dim A As Integer
> Dim C As Integer
> Dim D As Integer
> Dim F As Integer
> Dim G As Integer
> Dim H As Integer
> Dim I As Integer
> Dim J As Integer
> Dim K As Integer
> Dim M As Integer
> Dim N As Integer
> Dim O As Integer
> Dim P As Integer
> Dim Q As Integer
> Dim sngR As Single
> '
> an = ???? SAISIE de 1583 9999
> A = an Mod 19
> C = Int(an / 100)
> D = 100 * ((an / 100) - Int(an / 100))
> F = Int(C / 4)
> G = 4 * (C / 4 - Int(C / 4))
> H = Int((8 + C) / 25)
> I = Int((1 + C - H) / 3)
> J = 15 + 19 * A + C - F - I
> K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> M = Int(D / 4)
> N = 4 * (D / 4 - Int(D / 4))
> O = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> Q = Int((A + 11 * K + 22 * P) / 451)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e.
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" a crit dans le message
> denews:
> Bonjour vous,
> Je monte un calendrier annuel. Il comporte une colonne par mois et
> chaque colonne est accompagn e de trois colonnes suppl mentaires
> (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> suivants).
> Une superbe Formule de AV int grait pratiquement toutes les f tes,
> mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
> pas une date concluante. On devra bosser ici. Et je ne parle pas du
> 1er mai.
> Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> une version Suisse. (snifff)
> C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
> une formule qui int grerai dans celle ci-dessous (notification des
> week-end), uniquement les dates volatiles en fonction de P ques ?
> =(A1<>"")*(JOURSEM(A1;2)>5)
> (jours en fonction de P ques)
> * Vendredi Saint (2 avril 2010)
> * Lundi de P ques (5 avril 2010)
> * Ascension (13 mai 2010)
> * Lundi de la Pentec te (24 mai 2010)
> (jours fixes)
> * Nouvel An (1er janvier 2010)
> * F te Nationale (1er ao t 2010)
> * Je ne Genevois (9 septembre 2010)
> * No l (25 d cembre 2010)
> * Restauration de la R publique (31 d cembre 2010)
> Je vous remercie de votre aide.
> A bient t
Je n'en ai aucune id e pr cise, moi non plus je ne connai s pas le
VBA, j'ai r pondu parce que c' tait du calcul et du VB, avec le A je suis
loin de tout conna tre, il faudrait poser la question sur le probl me de
coloration
--
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a crit dans le message denews:95ef0897-83af
Je dois avoir des soucis avec la lecture, je n'arrive pas lire
correctement ce que vous crivez.
Pour r capituler, j'ai donc renommer la commande :
SUB CALCULFETES
et l , cela ne me donne pas l'effet escompter. une coloration de mes
jours sur mon calendrier dynamique.
Comme qui dirait... je suis pas vraiment un crac du VBA, c'est m me le
contraire.
Pourriez-vous me dire, comment effectuer ces corrections ?
Merci d'avance
Guido
On 11 jan, 20:25, "LE TROLL" <le wrote:
> Bonsoir,
> On va appeler le calcul :
> call calculeFetes
> et a revient ici, durant l'ex cution d'autres v nements et code peuvent se
> d clencher, mais normalement a va tre g r par le syst me, ce sera
> transparent en temps partag , toutefois, vu le petit nombre, on peut fa ire
> le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en du r,
> puis aller les lire, ainsi on vite de calculer sans cesse.
> sub calculeFetes
> ...
> end sub
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" a crit dans le message
> denews: m...
> Bonsoir Le Troll,
> d'abord, merci pour votre r ponse. Mais l je profite pour vous
> demander de l'aide.
> Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
> lorsque je mets une date dans A1, la disposition annuelle du
> calendrier change.
> Est-ce que ma MFC des week-ends et votre code fourni, serait source
> d'interf rence dans leur mani re de fonctionner ?
> Merci vous de votre r ponse.
> Guido
> ----
> J'ai int gr le d but du code comme ceci:
> Sub Ferie()
> 'pour info
> 'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
> apr s le 21 mars.
> 'Dates extr mes : 22 mars au 25 avril
> 'PA : dimanche de P ques = 0 j
> 'LP : lundi de P ques = P + 1
> 'AS : jeudi Ascension = P + 39 j
> 'PE : dimanche de Pentec te = P + 49 j
> 'LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Ici, j'ai corrig les colonnes que je d sire voir color e selon les
> besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
> deux)
> J'aurais pas d ???
> Dim A As Integer
> Dim E As Integer
> Dim I As Integer
> Dim M As Integer
> Dim Q As Integer
> Dim U As Integer
> Dim Y As Integer
> Dim AC As Integer
> Dim AG As Integer
> Dim AK As Integer
> Dim AO As Integer
> Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
> Dim sngR As Single (je ne vois pas ce que cela signifie)
> Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
> repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
> ' an = ???? SAISIE de 1583 9999
> A = an Mod 19
> E = Int(an / 100)
> I = 100 * ((an / 100) - Int(an / 100))
> M = Int(C / 4)
> Q = 4 * (C / 4 - Int(C / 4))
> U = Int((8 + C) / 25)
> Y = Int((1 + C - H) / 3)
> AC = 15 + 19 * A + C - F - I
> AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> AK = Int(D / 4)
> AO = 4 * (D / 4 - Int(D / 4))
> AS = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
> correspond plus une colonne)
> Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne correspond
> plus une colonne)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> End Sub
> On 11 jan, 08:11, "LE TROLL" <le wrote:
> > Bonjour,
> > Le calcul s'av re plus long que difficile :
> > P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune a pr
> > s
> > le
> > 21 mars.
> > Dates extr mes : 22 mars au 25 avril
> > PA : dimanche de P ques = 0 j
> > LP : lundi de P ques = P + 1
> > AS : jeudi Ascension = P + 39 j
> > PE : dimanche de Pentec te = P + 49 j
> > LP : lundi de Pentec te = P + 50
> > Dim paques
> > Dim an As Integer
> > Dim jour As Integer
> > Dim mois As Integer
> > Dim A As Integer
> > Dim C As Integer
> > Dim D As Integer
> > Dim F As Integer
> > Dim G As Integer
> > Dim H As Integer
> > Dim I As Integer
> > Dim J As Integer
> > Dim K As Integer
> > Dim M As Integer
> > Dim N As Integer
> > Dim O As Integer
> > Dim P As Integer
> > Dim Q As Integer
> > Dim sngR As Single
> > '
> > an = ???? SAISIE de 1583 9999
> > A = an Mod 19
> > C = Int(an / 100)
> > D = 100 * ((an / 100) - Int(an / 100))
> > F = Int(C / 4)
> > G = 4 * (C / 4 - Int(C / 4))
> > H = Int((8 + C) / 25)
> > I = Int((1 + C - H) / 3)
> > J = 15 + 19 * A + C - F - I
> > K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> > M = Int(D / 4)
> > N = 4 * (D / 4 - Int(D / 4))
> > O = 32 + 2 * (G + M) - K - N
> > P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> > Q = Int((A + 11 * K + 22 * P) / 451)
> > sngR = (114 + K + P - 7 * Q) / 31
> > mois = Int(sngR)
> > jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> > paques = DateSerial(an, mois, jour)
> > Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> > une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e.
> > Cordialement ;o)
> > -
> > Logiciels, romans, contacts :http://irolog.free.fr
> > _______________________
> > .
> > .
> > "Guido" a crit dans le message
> > denews: com...
> > Bonjour vous,
> > Je monte un calendrier annuel. Il comporte une colonne par mois et
> > chaque colonne est accompagn e de trois colonnes suppl mentaires
> > (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> > Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> > f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> > mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> > suivants).
> > Une superbe Formule de AV int grait pratiquement toutes les f tes,
> > mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'es t
> > pas une date concluante. On devra bosser ici. Et je ne parle pas du
> > 1er mai.
> > Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> > une version Suisse. (snifff)
> > C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoi r
> > une formule qui int grerai dans celle ci-dessous (notification des
> > week-end), uniquement les dates volatiles en fonction de P ques ?
> > =(A1<>"")*(JOURSEM(A1;2)>5)
> > (jours en fonction de P ques)
> > * Vendredi Saint (2 avril 2010)
> > * Lundi de P ques (5 avril 2010)
> > * Ascension (13 mai 2010)
> > * Lundi de la Pentec te (24 mai 2010)
> > (jours fixes)
> > * Nouvel An (1er janvier 2010)
> > * F te Nationale (1er ao t 2010)
> > * Je ne Genevois (9 septembre 2010)
> > * No l (25 d cembre 2010)
> > * Restauration de la R publique (31 d cembre 2010)
> > Je vous remercie de votre aide.
> > A bient t
Je n'en ai aucune id e pr cise, moi non plus je ne connai s pas le
VBA, j'ai r pondu parce que c' tait du calcul et du VB, avec le A je suis
loin de tout conna tre, il faudrait poser la question sur le probl me de
coloration
--
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" <guido....@gmail.com> a crit dans le message denews:95ef0897-83af -4acd-8a3c-f80789b8e154@a15g2000yqm.googlegroups.com...
Je dois avoir des soucis avec la lecture, je n'arrive pas lire
correctement ce que vous crivez.
Pour r capituler, j'ai donc renommer la commande :
SUB CALCULFETES
et l , cela ne me donne pas l'effet escompter. une coloration de mes
jours sur mon calendrier dynamique.
Comme qui dirait... je suis pas vraiment un crac du VBA, c'est m me le
contraire.
Pourriez-vous me dire, comment effectuer ces corrections ?
Merci d'avance
Guido
On 11 jan, 20:25, "LE TROLL" <le tr...@enfer.fr> wrote:
> Bonsoir,
> On va appeler le calcul :
> call calculeFetes
> et a revient ici, durant l'ex cution d'autres v nements et code peuvent se
> d clencher, mais normalement a va tre g r par le syst me, ce sera
> transparent en temps partag , toutefois, vu le petit nombre, on peut fa ire
> le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en du r,
> puis aller les lire, ainsi on vite de calculer sans cesse.
> sub calculeFetes
> ...
> end sub
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" <guido....@gmail.com> a crit dans le message
> denews:fd051814-9eeb-45b3-a2d8-91fff7f8bbae@l30g2000yqb.googlegroups.co m...
> Bonsoir Le Troll,
> d'abord, merci pour votre r ponse. Mais l je profite pour vous
> demander de l'aide.
> Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
> lorsque je mets une date dans A1, la disposition annuelle du
> calendrier change.
> Est-ce que ma MFC des week-ends et votre code fourni, serait source
> d'interf rence dans leur mani re de fonctionner ?
> Merci vous de votre r ponse.
> Guido
> ----
> J'ai int gr le d but du code comme ceci:
> Sub Ferie()
> 'pour info
> 'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
> apr s le 21 mars.
> 'Dates extr mes : 22 mars au 25 avril
> 'PA : dimanche de P ques = 0 j
> 'LP : lundi de P ques = P + 1
> 'AS : jeudi Ascension = P + 39 j
> 'PE : dimanche de Pentec te = P + 49 j
> 'LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Ici, j'ai corrig les colonnes que je d sire voir color e selon les
> besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
> deux)
> J'aurais pas d ???
> Dim A As Integer
> Dim E As Integer
> Dim I As Integer
> Dim M As Integer
> Dim Q As Integer
> Dim U As Integer
> Dim Y As Integer
> Dim AC As Integer
> Dim AG As Integer
> Dim AK As Integer
> Dim AO As Integer
> Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
> Dim sngR As Single (je ne vois pas ce que cela signifie)
> Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
> repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
> ' an = ???? SAISIE de 1583 9999
> A = an Mod 19
> E = Int(an / 100)
> I = 100 * ((an / 100) - Int(an / 100))
> M = Int(C / 4)
> Q = 4 * (C / 4 - Int(C / 4))
> U = Int((8 + C) / 25)
> Y = Int((1 + C - H) / 3)
> AC = 15 + 19 * A + C - F - I
> AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> AK = Int(D / 4)
> AO = 4 * (D / 4 - Int(D / 4))
> AS = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
> correspond plus une colonne)
> Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne correspond
> plus une colonne)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> End Sub
> On 11 jan, 08:11, "LE TROLL" <le tr...@enfer.fr> wrote:
> > Bonjour,
> > Le calcul s'av re plus long que difficile :
> > P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune a pr
> > s
> > le
> > 21 mars.
> > Dates extr mes : 22 mars au 25 avril
> > PA : dimanche de P ques = 0 j
> > LP : lundi de P ques = P + 1
> > AS : jeudi Ascension = P + 39 j
> > PE : dimanche de Pentec te = P + 49 j
> > LP : lundi de Pentec te = P + 50
> > Dim paques
> > Dim an As Integer
> > Dim jour As Integer
> > Dim mois As Integer
> > Dim A As Integer
> > Dim C As Integer
> > Dim D As Integer
> > Dim F As Integer
> > Dim G As Integer
> > Dim H As Integer
> > Dim I As Integer
> > Dim J As Integer
> > Dim K As Integer
> > Dim M As Integer
> > Dim N As Integer
> > Dim O As Integer
> > Dim P As Integer
> > Dim Q As Integer
> > Dim sngR As Single
> > '
> > an = ???? SAISIE de 1583 9999
> > A = an Mod 19
> > C = Int(an / 100)
> > D = 100 * ((an / 100) - Int(an / 100))
> > F = Int(C / 4)
> > G = 4 * (C / 4 - Int(C / 4))
> > H = Int((8 + C) / 25)
> > I = Int((1 + C - H) / 3)
> > J = 15 + 19 * A + C - F - I
> > K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> > M = Int(D / 4)
> > N = 4 * (D / 4 - Int(D / 4))
> > O = 32 + 2 * (G + M) - K - N
> > P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> > Q = Int((A + 11 * K + 22 * P) / 451)
> > sngR = (114 + K + P - 7 * Q) / 31
> > mois = Int(sngR)
> > jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> > paques = DateSerial(an, mois, jour)
> > Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> > une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e.
> > Cordialement ;o)
> > -
> > Logiciels, romans, contacts :http://irolog.free.fr
> > _______________________
> > .
> > .
> > "Guido" <guido....@gmail.com> a crit dans le message
> > denews:af23a573-9bec-4bf8-a03a-40db810ba638@z41g2000yqz.googlegroups. com...
> > Bonjour vous,
> > Je monte un calendrier annuel. Il comporte une colonne par mois et
> > chaque colonne est accompagn e de trois colonnes suppl mentaires
> > (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> > Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> > f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> > mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> > suivants).
> > Une superbe Formule de AV int grait pratiquement toutes les f tes,
> > mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'es t
> > pas une date concluante. On devra bosser ici. Et je ne parle pas du
> > 1er mai.
> > Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> > une version Suisse. (snifff)
> > C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoi r
> > une formule qui int grerai dans celle ci-dessous (notification des
> > week-end), uniquement les dates volatiles en fonction de P ques ?
> > =(A1<>"")*(JOURSEM(A1;2)>5)
> > (jours en fonction de P ques)
> > * Vendredi Saint (2 avril 2010)
> > * Lundi de P ques (5 avril 2010)
> > * Ascension (13 mai 2010)
> > * Lundi de la Pentec te (24 mai 2010)
> > (jours fixes)
> > * Nouvel An (1er janvier 2010)
> > * F te Nationale (1er ao t 2010)
> > * Je ne Genevois (9 septembre 2010)
> > * No l (25 d cembre 2010)
> > * Restauration de la R publique (31 d cembre 2010)
> > Je vous remercie de votre aide.
> > A bient t
Je n'en ai aucune id e pr cise, moi non plus je ne connai s pas le
VBA, j'ai r pondu parce que c' tait du calcul et du VB, avec le A je suis
loin de tout conna tre, il faudrait poser la question sur le probl me de
coloration
--
Cordialement ;o)
-
Logiciels, romans, contacts :http://irolog.free.fr
_______________________
.
.
"Guido" a crit dans le message denews:95ef0897-83af
Je dois avoir des soucis avec la lecture, je n'arrive pas lire
correctement ce que vous crivez.
Pour r capituler, j'ai donc renommer la commande :
SUB CALCULFETES
et l , cela ne me donne pas l'effet escompter. une coloration de mes
jours sur mon calendrier dynamique.
Comme qui dirait... je suis pas vraiment un crac du VBA, c'est m me le
contraire.
Pourriez-vous me dire, comment effectuer ces corrections ?
Merci d'avance
Guido
On 11 jan, 20:25, "LE TROLL" <le wrote:
> Bonsoir,
> On va appeler le calcul :
> call calculeFetes
> et a revient ici, durant l'ex cution d'autres v nements et code peuvent se
> d clencher, mais normalement a va tre g r par le syst me, ce sera
> transparent en temps partag , toutefois, vu le petit nombre, on peut fa ire
> le calcul dans Excel par exemple, et rentrer les dates sur 20 ans en du r,
> puis aller les lire, ainsi on vite de calculer sans cesse.
> sub calculeFetes
> ...
> end sub
> Cordialement ;o)
> -
> Logiciels, romans, contacts :http://irolog.free.fr
> _______________________
> .
> .
> "Guido" a crit dans le message
> denews: m...
> Bonsoir Le Troll,
> d'abord, merci pour votre r ponse. Mais l je profite pour vous
> demander de l'aide.
> Est-ce que ce code fonctionne en m me temps qu'une autre commande ?
> lorsque je mets une date dans A1, la disposition annuelle du
> calendrier change.
> Est-ce que ma MFC des week-ends et votre code fourni, serait source
> d'interf rence dans leur mani re de fonctionner ?
> Merci vous de votre r ponse.
> Guido
> ----
> J'ai int gr le d but du code comme ceci:
> Sub Ferie()
> 'pour info
> 'P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune
> apr s le 21 mars.
> 'Dates extr mes : 22 mars au 25 avril
> 'PA : dimanche de P ques = 0 j
> 'LP : lundi de P ques = P + 1
> 'AS : jeudi Ascension = P + 39 j
> 'PE : dimanche de Pentec te = P + 49 j
> 'LP : lundi de Pentec te = P + 50
> Dim paques
> Dim an As Integer
> Dim jour As Integer
> Dim mois As Integer
> Ici, j'ai corrig les colonnes que je d sire voir color e selon les
> besoins. C'est correcte ??? (moi et le VBA, c'est trois. Pas encore
> deux)
> J'aurais pas d ???
> Dim A As Integer
> Dim E As Integer
> Dim I As Integer
> Dim M As Integer
> Dim Q As Integer
> Dim U As Integer
> Dim Y As Integer
> Dim AC As Integer
> Dim AG As Integer
> Dim AK As Integer
> Dim AO As Integer
> Dim AS As Integer (cette ligne m'est donn e comme erreur syntax)
> Dim sngR As Single (je ne vois pas ce que cela signifie)
> Et l , m me si pour un super Troll c'est du g teau. Pour moi, cela
> repr sente des choux de Bruxelles (j'aime pas les choux de Bruxelles)
> ' an = ???? SAISIE de 1583 9999
> A = an Mod 19
> E = Int(an / 100)
> I = 100 * ((an / 100) - Int(an / 100))
> M = Int(C / 4)
> Q = 4 * (C / 4 - Int(C / 4))
> U = Int((8 + C) / 25)
> Y = Int((1 + C - H) / 3)
> AC = 15 + 19 * A + C - F - I
> AG = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> AK = Int(D / 4)
> AO = 4 * (D / 4 - Int(D / 4))
> AS = 32 + 2 * (G + M) - K - N
> P = Int(7 * (O / 7 - Int(O / 7)) + 0.5) '(cette ligne ne
> correspond plus une colonne)
> Q = Int((A + 11 * K + 22 * P) / 451) '(cette ligne ne correspond
> plus une colonne)
> sngR = (114 + K + P - 7 * Q) / 31
> mois = Int(sngR)
> jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> paques = DateSerial(an, mois, jour)
> End Sub
> On 11 jan, 08:11, "LE TROLL" <le wrote:
> > Bonjour,
> > Le calcul s'av re plus long que difficile :
> > P ques est le 1er dimanche qui suit le 14eme jour de la pleine Lune a pr
> > s
> > le
> > 21 mars.
> > Dates extr mes : 22 mars au 25 avril
> > PA : dimanche de P ques = 0 j
> > LP : lundi de P ques = P + 1
> > AS : jeudi Ascension = P + 39 j
> > PE : dimanche de Pentec te = P + 49 j
> > LP : lundi de Pentec te = P + 50
> > Dim paques
> > Dim an As Integer
> > Dim jour As Integer
> > Dim mois As Integer
> > Dim A As Integer
> > Dim C As Integer
> > Dim D As Integer
> > Dim F As Integer
> > Dim G As Integer
> > Dim H As Integer
> > Dim I As Integer
> > Dim J As Integer
> > Dim K As Integer
> > Dim M As Integer
> > Dim N As Integer
> > Dim O As Integer
> > Dim P As Integer
> > Dim Q As Integer
> > Dim sngR As Single
> > '
> > an = ???? SAISIE de 1583 9999
> > A = an Mod 19
> > C = Int(an / 100)
> > D = 100 * ((an / 100) - Int(an / 100))
> > F = Int(C / 4)
> > G = 4 * (C / 4 - Int(C / 4))
> > H = Int((8 + C) / 25)
> > I = Int((1 + C - H) / 3)
> > J = 15 + 19 * A + C - F - I
> > K = Int(0.5 + 30 * (J / 30 - Int(J / 30)))
> > M = Int(D / 4)
> > N = 4 * (D / 4 - Int(D / 4))
> > O = 32 + 2 * (G + M) - K - N
> > P = Int(7 * (O / 7 - Int(O / 7)) + 0.5)
> > Q = Int((A + 11 * K + 22 * P) / 451)
> > sngR = (114 + K + P - 7 * Q) / 31
> > mois = Int(sngR)
> > jour = Int(31 * (sngR - Int(sngR)) + 1.5)
> > paques = DateSerial(an, mois, jour)
> > Mais ce n'est pas la peine de calculer chaque fois, tu fais le calcul
> > une fois et tu entres les dates dans un tableau de 30 ans selon l'ann e.
> > Cordialement ;o)
> > -
> > Logiciels, romans, contacts :http://irolog.free.fr
> > _______________________
> > .
> > .
> > "Guido" a crit dans le message
> > denews: com...
> > Bonjour vous,
> > Je monte un calendrier annuel. Il comporte une colonne par mois et
> > chaque colonne est accompagn e de trois colonnes suppl mentaires
> > (Colonne A = Janvier ; Colonne B D pour mes donn es ; etc.)
> > Etant en Suisse actuellement, je voudrai int grer dans une MFC, les
> > f tes dates fixes Jour de l'an, f te nationale, etc...) , les f tes
> > mobiles (P ques et ceux qui s'y rapportent au nombre de jours
> > suivants).
> > Une superbe Formule de AV int grait pratiquement toutes les f tes,
> > mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'es t
> > pas une date concluante. On devra bosser ici. Et je ne parle pas du
> > 1er mai.
> > Je ne suis pas arriv transformer cette fameuse formule Fran aise en
> > une version Suisse. (snifff)
> > C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoi r
> > une formule qui int grerai dans celle ci-dessous (notification des
> > week-end), uniquement les dates volatiles en fonction de P ques ?
> > =(A1<>"")*(JOURSEM(A1;2)>5)
> > (jours en fonction de P ques)
> > * Vendredi Saint (2 avril 2010)
> > * Lundi de P ques (5 avril 2010)
> > * Ascension (13 mai 2010)
> > * Lundi de la Pentec te (24 mai 2010)
> > (jours fixes)
> > * Nouvel An (1er janvier 2010)
> > * F te Nationale (1er ao t 2010)
> > * Je ne Genevois (9 septembre 2010)
> > * No l (25 d cembre 2010)
> > * Restauration de la R publique (31 d cembre 2010)
> > Je vous remercie de votre aide.
> > A bient t
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt
Bonjour à vous,
Je monte un calendrier annuel. Il comporte une colonne par mois et
chaque colonne est accompagnée de trois colonnes supplémentaires
(Colonne A = Janvier ; Colonne B à D pour mes données ; etc.)
Etant en Suisse actuellement, je voudrai intégrer dans une MFC, les
fêtes à dates fixes Jour de l'an, fête nationale, etc...) , les fêtes
mobiles (Pâques et ceux qui s'y rapportent au nombre de jours
suivants).
Une superbe Formule de AV intégrait pratiquement toutes les fêtes,
mais le Hic pour mon tableau, c'est qu'en Suisse, le 11 novembre n'est
pas une date concluante. On devra bosser ici. Et je ne parle pas du
1er mai.
Je ne suis pas arrivé à transformer cette fameuse formule Française en
une version Suisse. (snifff)
C'est pas trop grave, mais ce qui m'arrangerai au mieux, c'est d'avoir
une formule qui intégrerai dans celle ci-dessous (notification des
week-end), uniquement les dates volatiles en fonction de Pâques ?
=(A1<>"")*(JOURSEM(A1;2)>5)
(jours en fonction de Pâques)
* Vendredi Saint (2 avril 2010)
* Lundi de Pâques (5 avril 2010)
* Ascension (13 mai 2010)
* Lundi de la Pentecôte (24 mai 2010)
(jours fixes)
* Nouvel An (1er janvier 2010)
* Fête Nationale (1er août 2010)
* Jeûne Genevois (9 septembre 2010)
* Noël (25 décembre 2010)
* Restauration de la République (31 décembre 2010)
Je vous remercie de votre aide.
A bientôt