Discussion :

[mickisa]

comment faire pour avoir le premier lundi du mois alors?

je pensais à cela au début mais ensuite....
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim dFirst As Date
dFirst = CDate("1/" & Format(DateAdd("m", Date), "mm/yyyy"))
MsgBox "Premier jour: " & dFirst

[rjamin]

Bonjour,
Avec une date en A1 mettre la formule suivante dans une autre cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1-JOUR(A1)+9-JOURSEM(A1-JOUR(A1))

Je rectifie la formule car la première ne fonctionne pas si le 1er du mois correspond au lundi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(JOUR(A1-JOUR(A1)+9-JOURSEM(A1-JOUR(A1)))>7;A1-JOUR(A1)+9-JOURSEM(A1-JOUR(A1))-7;A1-JOUR(A1)+9-JOURSEM(A1-JOUR(A1)))

Ne pas oublier de mettre la cellule au format Date

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
=SI(MOD(DATE(an;mois;1);7)<=2;2-MOD(DATE(an;mois;1);7);9-MOD(DATE(an;mois;1);7))
+DATE(an;mois;1)

[GerardCalc]

Bonjour,

Une simple adaptation de la première formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1-JOUR(A1)-JOURSEM(A1-JOUR(A1);2)+8

En france et dans la majeure partie des pays (sauf celui de Bill Gates) la semaine commence le Lundi, j'utilise donc de préférence JOURSEM avec le deuxième argument à 2.

A+