Date du lundi semaine en cours

Bonjour à tous,

je souhaiterais renvoyer la date du lundi de la semaine en cours par rapport à une date donnée.

Exemple en A1 la date suivante : 14/03/2010

En A2 je cherche à avoir : 08/03/2010

Quelqu'un a t il une idée ?

Bien cordialement,

Fred,

-- Lun Mar 15, 2010 10:50 am --

J'ai bien un formule mais je ne troupe ça très esthétique :

=SI(JOURSEM(A1;2)=1;A1;SI(JOURSEM(A1;2)=2;A1-1;SI(JOURSEM(A1;2)=3;A1-2;SI(JOURSEM(A1;2)=4;A1-3;SI(JOURSEM(A1;2)=5;A1-4;SI(JOURSEM(A1;2)=6;A1-5;SI(JOURSEM(A1;2)=7;A1-6;"?")))

Pas génial hein ?

Fred

Bonsoir,

en A2, essaie cette formule :

=A1-(JOURSEM(A1;2)-1)

Bonne soirée

Génial cousinhub,

c'est parfait et beaucoup plus esthétique

Bonne journée

Quelqu'un serait aurai la solution pour le premier lundi de la semaine mais en vba ?

J'ai trouvé pour le premier jour du mois

Mois = DateSerial(Year(Date), Month(Date), 1)

Mais je cale sur le premier lundi de la semaine

Bonjour,

Tu peux tester l'instruction suivante :

Sub Lundi()
   MsgBox maDate - Weekday(maDate, vbMonday) + 1
End Sub

En espèrant que cela t'aide

au top merci james

De rien ...

Merci pour tes remerciements

Rechercher des sujets similaires à "date lundi semaine cours"