Date Texbox = lundi

[Marc_du_78]

Bonjour ami(e)s du Forum,
Ma question va peut-être paraître ridicule, mais ca ne tue pas.
Dans un texbox, je saisi une date, ce que je voudrais, c'est que quelque soit la date saisie, la texbox ne retienne que celle du lundi qui précède. Mais voilà est-ce réalisable...
En vous remerciant de vous pencher sur ma demande

 

[MichelXld]

bonjour Marc

tu peux essayer

Dim x As Date
If IsDate(TextBox1) Then
x = TextBox1
MsgBox Format(Evaluate('=' & CDbl(x) & '-MOD(' & CDbl(x) & '-2,7)'), 'dddd dd mmmm yyyy')
End If


bonne journée
MichelXld

 

[Marc_du_78]

Bonjour Michel,
Bien matinal, je te remercie et j'essaie dès que je suis au boulot.
Bonne journée également.

 

[AV]

Ave,


A affecter à un bouton de l'Userform ou à autre chose (évènement) :

x = CDate((TextBox1.Value)) * 1
TextBox1.Value = Format(Evaluate(x & '-weekday(' & x & '-1)+1'), 'dddd dd/mm/yyy')

PS : Ce calcul renvoie le Lundi précédent OU courant de la date.
Tu n'as pas précisé ce qu'il devait se passer si ladate saisie était un Lundi !

AV [aaa]

 

[Marc_du_78]

Reate Texbox = lundi OK

Bonjour Michel, AV,
Juste pour vous remercier et saluer AV pour avoir pensé ce que moi j'avais négligé.
Bonne fin de journée.