Liste déroulante

Le
Thierry
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4497431
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"
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





Thierry
Le #4497401
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"
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"
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


JB
Le #4497381
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"
Bonjour,

Désolé mais je ne connais rien a excel ni a VB. ce que j'ai fait c'es t 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ér oulante
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 possi ble de
les stocker dans une macros et de pouvoir les utilisés dans mon decompt e 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


Thierry
Le #4497341
Bonjour,

J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.

"JB"
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"
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

Jacky
Le #4497321
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" %
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"
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"
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







JB
Le #4497261
Voir PJ: http://cjoint.com/?fetoFQ3lyB

JB

On 4 mai, 19:02, "Thierry"
Bonjour,

J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.

"JB"
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"




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 pos sible
de
les stocker dans une macros et de pouvoir les utilisés dans mon decom pte
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- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -



Thierry
Le #4496881
C'est super comme module merci beaucoup pour ce coup de pouce.

Jacky"
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" %
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"
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"
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 10:45:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com




Thierry
Le #4496871
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"
Voir PJ: http://cjoint.com/?fetoFQ3lyB

JB

On 4 mai, 19:02, "Thierry"
Bonjour,

J'ai mis cela dans un module mais il me fait une erreur. je veux que la
liste apparaisse en b5.

"JB"
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"




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


Thierry
Le #4496851
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"
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" %
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"
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"
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




Jacky
Le #4496831
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" %
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"
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" %
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"
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"
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









Publicité
Poster une réponse
Anonyme