Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Liste déroulante

Liste déroulante

16 réponses
Avatar
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
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" 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





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


Avatar
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" wrote:
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


Avatar
Thierry
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

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







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



Avatar
Thierry
C'est super comme module merci beaucoup pour ce coup de pouce.

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




Avatar
Thierry
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


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




Avatar
Jacky
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









1 2