date

Henri · 8 Février 2006

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 · 8 Février 2006

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 · 8 Février 2006

Bonjour

essaie

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

b sera le lundi d'avant

A+

Henri · 8 Février 2006

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 · 8 Février 2006

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 · 8 Février 2006

Oups

excuse Eric je ne t'ai point vu

Bone journée

Henri · 8 Février 2006

Merci a vous impeccable

date

Henri

Guest

porcinet82

XLDnaute Barbatruc

ERIC S

XLDnaute Barbatruc

Henri

Guest

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Henri

Guest

Discussions similaires