Dates automatiques

14/07/2005, 17h56

Bonjour le forum,
Suis tombée par hasard sur votre site (qui soit dit en passant est remarquable !!) et je voudrais votre aide concernant une saisie de dates. Je vous joins mon classeur.
Merci par avance.
Alice

14/07/2005, 17h58

Voici le classeur [file name=dates_20050714165849.zip size=1822]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dates_20050714165849.zip[/file]

Tibo · 14/07/2005, 18h08

Salut Alice,

Partant du principe qu'il y a 6 jours ouvrables par semaine, il suffit de 'sauter le Dimanche'.

La formule pourrait donner ceci en D4 :

=B4+SI(JOURSEM(B4+1)=1;2;1)

Formule à recopier vers la droite (les cellules doivent être au format date)

Sinon, tu pourras trouver sur la page d'accueil une rubrique Téléchargements dans laquelle du trouveras un classeur dédié aux calculs sur les dates et heures de nos amies Celeda, Monique et Cathy. Une vraie mine d'or.

@+

14/07/2005, 18h12

Merci tibo
Mais comment enlever les samedis ?
Je voudrais juste les jours lundi mardi mercredi jeudi et vendredi

14/07/2005, 18h18

Re
Comme sur l'exemple rempli ci joint
Peut-être n'est ce pas faisable ?

14/07/2005, 18h19

voici le fichier. [file name=dates_20050714171912.zip size=2148]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dates_20050714171912.zip[/file]

14/07/2005, 19h13

Je ne trouve pas la solution dans les anciens fils.....
N'y a t'il personne pour venir au secours d'une dame ?
Merci.

14/07/2005, 19h56

Bonsoir Alice, Le Forum,

J'ai regardé ton problème, voilà ce que je te propose:

en D4 tu rentre ce ci :

=B4+SI(JOURSEM(B4+1)=7;3;SI(JOURSEM(B4+2)=1;1;1))

Ensuite tu copie en étirant vers la droite.
Cela devrait fonctionné.

A+

Bernard.

_Thierry · 14/07/2005, 20h10

Bonsoir Alice, DBP, le Forum

Je dois partir maintenant, mais regarde ceci :

USF_OLEObjects_ComboBox_Calendar.zip

C'est une approche, bien évidemment différente de tes besoins, mais ce sera utiles si tu dois fabriquer des calendriers par VBA...

Pour les jours ouvrables il existe WeekDay en VBA aussi...

Un exemple :

Option Explicit

Sub WeeklyDating()
Dim DateStart As Date
Dim Semaine As Byte

DateStart = Date

Semaine = DatePart('WW', DateStart, vbMonday, vbFirstFourDays)

MsgBox 'Numéro de Semaine : ' & Semaine
MsgBox 'Numéro de Jour : ' & Weekday(DateStart, vbMonday)
MsgBox 'Numéro de Mois ' & Month(DateStart)

End Sub

Bonne Soirée
@+Thierry

14/07/2005, 20h19

Merci infiniment Bernard et Thierry
J'ai de quoi travailler sur mon classeur.
Trés bonne soirée à vous.

14/07/2005, 17h56	#1 (permalink)
Alice Guest Messages: n/a	Dates automatiques Bonjour le forum, Suis tombée par hasard sur votre site (qui soit dit en passant est remarquable !!) et je voudrais votre aide concernant une saisie de dates. Je vous joins mon classeur. Merci par avance. Alice

14/07/2005, 18h08	#3 (permalink)
Tibo XLDnaute Barbatruc Date d'inscription: mars 2005 Localisation: Maubeuge Version Excel : Excel 2000 (PC) Messages: 6 848	Re:Dates automatiques Salut Alice, Partant du principe qu'il y a 6 jours ouvrables par semaine, il suffit de 'sauter le Dimanche'. La formule pourrait donner ceci en D4 : =B4+SI(JOURSEM(B4+1)=1;2;1) Formule à recopier vers la droite (les cellules doivent être au format date) Sinon, tu pourras trouver sur la page d'accueil une rubrique Téléchargements dans laquelle du trouveras un classeur dédié aux calculs sur les dates et heures de nos amies Celeda, Monique et Cathy. Une vraie mine d'or. @+ __________________ Ne jamais hésiter à utiliser la recherche sur le Forum, beaucoup de réponses s'y trouvent Amitiés Xldiennes XLD vous a aidé, n'hésitez pas à aider XLD

14/07/2005, 18h12	#4 (permalink)
Alice Guest Messages: n/a	Re:Dates automatiques Merci tibo Mais comment enlever les samedis ? Je voudrais juste les jours lundi mardi mercredi jeudi et vendredi

14/07/2005, 18h18	#5 (permalink)
Alice Guest Messages: n/a	Re:Dates automatiques Re Comme sur l'exemple rempli ci joint Peut-être n'est ce pas faisable ?

14/07/2005, 19h13	#7 (permalink)
Alice Guest Messages: n/a	Re:Dates automatiques Je ne trouve pas la solution dans les anciens fils..... N'y a t'il personne pour venir au secours d'une dame ? Merci.

14/07/2005, 19h56	#8 (permalink)
DBP Guest Messages: n/a	Re:Dates automatiques Bonsoir Alice, Le Forum, J'ai regardé ton problème, voilà ce que je te propose: en D4 tu rentre ce ci : =B4+SI(JOURSEM(B4+1)=7;3;SI(JOURSEM(B4+2)=1;1;1)) Ensuite tu copie en étirant vers la droite. Cela devrait fonctionné. A+ Bernard.

14/07/2005, 20h10	#9 (permalink)
_Thierry XLDnaute Barbatruc Date d'inscription: février 2005 Messages: 3 100	Re:Dates automatiques Bonsoir Alice, DBP, le Forum Je dois partir maintenant, mais regarde ceci : USF_OLEObjects_ComboBox_Calendar.zip C'est une approche, bien évidemment différente de tes besoins, mais ce sera utiles si tu dois fabriquer des calendriers par VBA... Pour les jours ouvrables il existe WeekDay en VBA aussi... Un exemple : Option Explicit Sub WeeklyDating() Dim DateStart As Date Dim Semaine As Byte DateStart = Date Semaine = DatePart('WW', DateStart, vbMonday, vbFirstFourDays) MsgBox 'Numéro de Semaine : ' & Semaine MsgBox 'Numéro de Jour : ' & Weekday(DateStart, vbMonday) MsgBox 'Numéro de Mois ' & Month(DateStart) End Sub Bonne Soirée @+Thierry

14/07/2005, 20h19	#10 (permalink)
Alice Guest Messages: n/a	Re:Dates automatiques Merci infiniment Bernard et Thierry J'ai de quoi travailler sur mon classeur. Trés bonne soirée à vous.

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email