Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines couleur
et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice 1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées dans
une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et de
rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23HeH4RvjHHA.4124@TK2MSFTNGP03.phx.gbl...
Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines couleur
et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
es7Zc5mjHHA.3264@TK2MSFTNGP04.phx.gbl...
Re...
As-tu testé ta solution sur tout les mois de l'année ??
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice 1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23xi1nqmjHHA.4872@TK2MSFTNGP03.phx.gbl...
Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées dans
une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
uFLn5YmjHHA.3960@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et de
rester dans le même fil
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
eURlOSmjHHA.4248@TK2MSFTNGP06.phx.gbl...
Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines couleur
et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice 1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées dans
une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et de
rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Est il possible qu'elle s'execute automatiquement ?
Est il possible de faire la meme chose avec les années en les increment ant
de 1900 a 9999 ?
Merci
"JB" a écrit dans le message de news:
Voir PJ:http://cjoint.com/?fetoFQ3lyB
JB
On 4 mai, 19:02, "Thierry" wrote:Bonjour,
J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.
"JB" a écrit dans le message de news:
Bonjour,
[b2].Validation.Delete
[b2].Validation.Add xlValidateList,
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
JB
On 4 mai, 17:54, "Thierry" wrote:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'est
de
me
servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans u ne
feuille de calcul, permettant de créer dans une cellule une liste
déroulante
avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de 1900 au
maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il p ossible
de
les stocker dans une macros et de pouvoir les utilisés dans mon dec ompte
de
jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:57:28
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:02:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:35:18
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 10:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Est il possible qu'elle s'execute automatiquement ?
Est il possible de faire la meme chose avec les années en les increment ant
de 1900 a 9999 ?
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178299168.766032.170...@h2g2000hsg.googlegroups.com...
Voir PJ:http://cjoint.com/?fetoFQ3lyB
JB
On 4 mai, 19:02, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178297563.159399.150...@l77g2000hsb.googlegroups.com...
Bonjour,
[b2].Validation.Delete
[b2].Validation.Add xlValidateList,
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
JB
On 4 mai, 17:54, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'est
de
me
servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans u ne
feuille de calcul, permettant de créer dans une cellule une liste
déroulante
avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de 1900 au
maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il p ossible
de
les stocker dans une macros et de pouvoir les utilisés dans mon dec ompte
de
jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:57:28
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:02:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:35:18
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 10:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Est il possible qu'elle s'execute automatiquement ?
Est il possible de faire la meme chose avec les années en les increment ant
de 1900 a 9999 ?
Merci
"JB" a écrit dans le message de news:
Voir PJ:http://cjoint.com/?fetoFQ3lyB
JB
On 4 mai, 19:02, "Thierry" wrote:Bonjour,
J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.
"JB" a écrit dans le message de news:
Bonjour,
[b2].Validation.Delete
[b2].Validation.Add xlValidateList,
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
JB
On 4 mai, 17:54, "Thierry" wrote:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'est
de
me
servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans u ne
feuille de calcul, permettant de créer dans une cellule une liste
déroulante
avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de 1900 au
maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il p ossible
de
les stocker dans une macros et de pouvoir les utilisés dans mon dec ompte
de
jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:57:28
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:02:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:35:18
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 10:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Est il possible qu'elle s'execute automatiquement ?
Est il possible de faire la meme chose avec les années en les incrementant
de 1900 a 9999 ?
Merci
"JB" a écrit dans le message de news:
Voir PJ:http://cjoint.com/?fetoFQ3lyB
JB
On 4 mai, 19:02, "Thierry" wrote:Bonjour,
J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.
"JB" a écrit dans le message de news:
Bonjour,
[b2].Validation.Delete
[b2].Validation.Add xlValidateList,
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
JB
On 4 mai, 17:54, "Thierry" wrote:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'est
de
me
servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante
avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de 1900 au
maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible
de
les stocker dans une macros et de pouvoir les utilisés dans mon
decompte
de
jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:57:28
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:02:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:35:18
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 10:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Est il possible qu'elle s'execute automatiquement ?
Est il possible de faire la meme chose avec les années en les incrementant
de 1900 a 9999 ?
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178299168.766032.170...@h2g2000hsg.googlegroups.com...
Voir PJ:http://cjoint.com/?fetoFQ3lyB
JB
On 4 mai, 19:02, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178297563.159399.150...@l77g2000hsb.googlegroups.com...
Bonjour,
[b2].Validation.Delete
[b2].Validation.Add xlValidateList,
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
JB
On 4 mai, 17:54, "Thierry" <r...@freesurf.fr> wrote:
Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'est
de
me
servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante
avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de 1900 au
maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible
de
les stocker dans une macros et de pouvoir les utilisés dans mon
decompte
de
jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:57:28
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:02:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:35:18
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 10:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Est il possible qu'elle s'execute automatiquement ?
Est il possible de faire la meme chose avec les années en les incrementant
de 1900 a 9999 ?
Merci
"JB" a écrit dans le message de news:
Voir PJ:http://cjoint.com/?fetoFQ3lyB
JB
On 4 mai, 19:02, "Thierry" wrote:Bonjour,
J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.
"JB" a écrit dans le message de news:
Bonjour,
[b2].Validation.Delete
[b2].Validation.Add xlValidateList,
Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"
JB
On 4 mai, 17:54, "Thierry" wrote:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'est
de
me
servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante
avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de 1900 au
maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible
de
les stocker dans une macros et de pouvoir les utilisés dans mon
decompte
de
jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:57:28
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:02:35
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:35:18
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 10:49:30
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" a écrit dans le message de news:Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
OSB3tZvjHHA.568@TK2MSFTNGP02.phx.gbl...
Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23HeH4RvjHHA.4124@TK2MSFTNGP03.phx.gbl...
Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
es7Zc5mjHHA.3264@TK2MSFTNGP04.phx.gbl...
Re...
As-tu testé ta solution sur tout les mois de l'année ??
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23xi1nqmjHHA.4872@TK2MSFTNGP03.phx.gbl...
Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
uFLn5YmjHHA.3960@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
eURlOSmjHHA.4248@TK2MSFTNGP06.phx.gbl...
Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" a écrit dans le message de news:Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
RE..
Je te propose ceci,
http://cjoint.com/?fgn6qs5RZO
Une fonction retourne un résultat et ne permet pas le coloriage etc..
1900....9999, tu as l'intention de vivre vieux ;o))
Salutations
JJ
"Thierry" a écrit dans le message de news:Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" a écrit dans le message de news:Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans
une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année
de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:36:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
RE..
Je te propose ceci,
http://cjoint.com/?fgn6qs5RZO
Une fonction retourne un résultat et ne permet pas le coloriage etc..
1900....9999, tu as l'intention de vivre vieux ;o))
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ucX22ivjHHA.4904@TK2MSFTNGP05.phx.gbl...
Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
OSB3tZvjHHA.568@TK2MSFTNGP02.phx.gbl...
Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23HeH4RvjHHA.4124@TK2MSFTNGP03.phx.gbl...
Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
es7Zc5mjHHA.3264@TK2MSFTNGP04.phx.gbl...
Re...
As-tu testé ta solution sur tout les mois de l'année ??
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23xi1nqmjHHA.4872@TK2MSFTNGP03.phx.gbl...
Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
uFLn5YmjHHA.3960@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
eURlOSmjHHA.4248@TK2MSFTNGP06.phx.gbl...
Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans
une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année
de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:36:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
RE..
Je te propose ceci,
http://cjoint.com/?fgn6qs5RZO
Une fonction retourne un résultat et ne permet pas le coloriage etc..
1900....9999, tu as l'intention de vivre vieux ;o))
Salutations
JJ
"Thierry" a écrit dans le message de news:Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" a écrit dans le message de news:Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans
une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année
de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:36:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Oui, vieux et en bon état si possible :) :)
Merci pour ce coup de main j'ai téléchargé ton fichier et je vais
travailler dessus.
Oui j'aimerais bien pouvoir initialiser une liste déroulante sans avoir a
saisir toutes ces valeurs.
"Jacky" a écrit dans le message de news:RE..
Je te propose ceci,
http://cjoint.com/?fgn6qs5RZO
Une fonction retourne un résultat et ne permet pas le coloriage etc..
1900....9999, tu as l'intention de vivre vieux ;o))
Salutations
JJ
"Thierry" a écrit dans le message de news:Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" a écrit dans le message de news:Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans
plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le
mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans
une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année
de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:36:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:42:45
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Oui, vieux et en bon état si possible :) :)
Merci pour ce coup de main j'ai téléchargé ton fichier et je vais
travailler dessus.
Oui j'aimerais bien pouvoir initialiser une liste déroulante sans avoir a
saisir toutes ces valeurs.
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
uCjSGY9jHHA.4248@TK2MSFTNGP06.phx.gbl...
RE..
Je te propose ceci,
http://cjoint.com/?fgn6qs5RZO
Une fonction retourne un résultat et ne permet pas le coloriage etc..
1900....9999, tu as l'intention de vivre vieux ;o))
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
ucX22ivjHHA.4904@TK2MSFTNGP05.phx.gbl...
Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
OSB3tZvjHHA.568@TK2MSFTNGP02.phx.gbl...
Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23HeH4RvjHHA.4124@TK2MSFTNGP03.phx.gbl...
Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
es7Zc5mjHHA.3264@TK2MSFTNGP04.phx.gbl...
Re...
As-tu testé ta solution sur tout les mois de l'année ??
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans
plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
%23xi1nqmjHHA.4872@TK2MSFTNGP03.phx.gbl...
Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le
mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
uFLn5YmjHHA.3960@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" <rtb@freesurf.fr> a écrit dans le message de news:
eURlOSmjHHA.4248@TK2MSFTNGP06.phx.gbl...
Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans
une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année
de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:36:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:42:45
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Oui, vieux et en bon état si possible :) :)
Merci pour ce coup de main j'ai téléchargé ton fichier et je vais
travailler dessus.
Oui j'aimerais bien pouvoir initialiser une liste déroulante sans avoir a
saisir toutes ces valeurs.
"Jacky" a écrit dans le message de news:RE..
Je te propose ceci,
http://cjoint.com/?fgn6qs5RZO
Une fonction retourne un résultat et ne permet pas le coloriage etc..
1900....9999, tu as l'intention de vivre vieux ;o))
Salutations
JJ
"Thierry" a écrit dans le message de news:Voila : http://cjoint.com/?fflFRazEX6
Je recapitule : Faire une liste déroulante pour l'année de 1900 a 9999
dans un module et se positionne sur l'année courante
que la liste déroulante du mois s'active
automatiquement lors de l'ouverture du document et si possible se
positionne sur le mois courant
Mettre la colonne du joru férié dans une autre couleur et la protégée.
Merci pour ce que tu as déjà fais .
"Jacky" a écrit dans le message de news:Re...
Quelle solution as-tu retenu pour les inscrire dans cette ligne ??
Re-édit éventuellement le fichier avec cette solution, mais sur:
http://cjoint.com
Pas en fichier joint
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Dans la ligne ou j'ai mis les jours du mois, comment faire pour
comprendre que dans une cellule le jour donné est un jour férié ? en
effet je voudrais mettre la colonne de ce jour dans une certaines
couleur et la protéger pour que rien ne soit saisi ?
Merci
"Jacky" a écrit dans le message de news:Re...
As-tu testé ta solution sur tout les mois de l'année ??avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
Une fonction de AV
'-----
Fonction perso avec une date de début et une date de fin et sans
plage
des jours
fériés (ils sont calculés) :
Function NB_JOUR_OUVRES(Début, Fin)'AV
For i = Year(Début) To Year(Fin)
Tbl = Tbl & DateSerial(i, 1, 1) * 1 & "," 'Jour de l'An
P = Evaluate("round(date(" & i & ",4,mod(234-11*mod(" & i &
",19),30))/7,)*7-5") 'Lundi de Pâques
Tbl = Tbl & P & ","
Tbl = Tbl & DateSerial(i, 5, 1) * 1 & "," 'Fête du travail
Tbl = Tbl & DateSerial(i, 5, 8) * 1 & "," 'Victoire 1945
Tbl = Tbl & P + 38 & "," 'Jeudi de l'Ascension
'Tbl = Tbl & P + 49 & "," 'Lundi de Pentecôte
Tbl = Tbl & DateSerial(i, 7, 14) * 1 & "," 'Fête Nationale
Tbl = Tbl & DateSerial(i, 8, 15) * 1 & "," '15 Aôut
Tbl = Tbl & DateSerial(i, 11, 1) * 1 & "," ' Toussaint
Tbl = Tbl & DateSerial(i, 11, 11) * 1 & "," '11 Nov [Armistice
1918]
Tbl = Tbl & DateSerial(i, 12, 25) * 1 & "," ' Noël
Next
If Tbl = "" Then Exit Function
Y = "{" & Left(Tbl, Len(Tbl) - 1) & "}"
For j = Début * 1 To Fin * 1
If Weekday(j, 2) < 6 And Evaluate("isna(match(" & j & "," & Y &
",0))")
Then x = x + 1
Next
NB_JOUR_OUVRES = x
End Function
AV
--
Salutations
JJ
"Thierry" a écrit dans le message de news:
%Désolé, pour les dates j'ai réussi a trouver avant que tu repondes
voila ce
que j'ai mis :
=SI(ET(ANNEE((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=ANNEE(DATE(An;Mois;1));MOIS((DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3))=MOIS(DATE(An;Mois;1)));(DATE(An;Mois;1)+1)-JOURSEM((DATE(An;Mois;1));3);"
")
cela se resume à si l'année calculée = l'année traitée et que le
mois
calculé = le mois traité alors j'affiche le jour calculé sinon je
n'affiche
pas.
J'arrive à créer des listes déroulante a partir de données stokées
dans une
feuille excel mais pas autrement.
Grace a cette formule
=NB.JOURS.OUVRES((DATE(An;Mois;1));(DATE(An;Mois+1;1)-1);Fériés)
j'arrive a
avoir le nombre de jour ouvré mais je voudrais stocker Fériés autre
part que
dans une feuille excel.
"Jacky" a écrit dans le message de news:Bonsoir,
Il serait très agréable que tu répondes aux solutions proposées, et
de rester dans le même fil
--
Salutations
JJ
"Thierry" a écrit dans le message de news:Bonjour,
Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait
c'est de me servir des sites internet mais j'ai mes limites.
Est il possible de créer sous excel une macro VB , mais pas dans
une
feuille de calcul, permettant de créer dans une cellule une liste
déroulante avec les chiffres de 1 à 12. Ainsi qu'une avec l'année
de
1900 au maximum(s'incrémentant automatiquement).
J'ai dans une feuille les jours fériés comme ceci :
Fériés
Premier de l'an lundi 01-janv-2007
Pâques dimanche 08-avr-2007
Lundi de Pâques dimanche 01-janv-1900
Fête du travail mardi 01-mai-2007
Victoire 1945 mardi 08-mai-2007
Ascension mercredi 08-févr-1900
Pentecôte dimanche 19-févr-1900
Fête nat. samedi 14-juil-2007
Assomption mercredi 15-août-2007
Toussaint jeudi 01-nov-2007
Armistice dimanche 11-nov-2007
Noël mardi 25-déc-2007
avec dans les cellules de la colonne férié les formules. Est il
possible de les stocker dans une macros et de pouvoir les utilisés
dans mon decompte de jour ouvré ?
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 17:54:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:30:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 18:38:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-2, 04/05/2007
Analyse le : 04/05/2007 19:34:30
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:05:13
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:28:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 05/05/2007 11:35:36
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:36:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000738-3, 05/05/2007
Analyse le : 06/05/2007 16:42:45
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
