Dates automatiques

[Alice]

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

 

[Alice]

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]

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.

@+

 

[Alice]

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

 

[Alice]

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

 

[Alice]

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

 

[Alice]

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

 

[DBP]

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]

Bonsoir Alice, DBP, le Forum

Je dois partir maintenant, mais regarde ceci :

Lien supprimé

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

 

[Alice]

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