date

[Henri]

Bonjour,
Dans un TextBox, je saisi une date de l'année en cours
Ex 16/02/06
Je veux que cette date qui se porte dans la celuule B6 de ma feuille, corresponde au Lundi
comment corriger la date saisie automatiquement pour que ce soit toujours la date correspondante au lundi qui s'incrive en B6
Je vous remercie

 

[porcinet82]

Salut Henri,

Je pense qu'il nous manque quelques info pour que l'on puisse t'aider, en effet, de quel lundi parles tu? Est-ce que c'est le lundi de la semaine en cours?

@+

 

[ERIC S]

Bonjour

essaie

a = '11/02/2006'
b = DateValue(a) - Weekday(a, 2) + 1

b sera le lundi d'avant

A+

 

[Henri]

bonjour porcinet 82
je veux dire que quelle que soit la date saisie, qu'elle ne prends en compte que celle du lundi qui précède
en te remerciant

 

[PascalXLD]

Bonjour

si c'est le lundi précédent essaies

Dim madate As Date
madate = CDate(TextBox1)
Range('B6') = madate - Weekday(madate, vbMonday) + 1

 

[PascalXLD]

Oups

excuse Eric je ne t'ai point vu

Bone journée

 

[Henri]

Merci a vous impeccable