Teste une date entrée

[spitfire378]

Rebonjour

J'ai créé un bout de code permettant a l'utilisateur d'entrer une date et ensuite le planning d'une semaine est créé a partir de cette date. Seulement j'aimerai pouvoir tester que la date entrée ne puisse-t-être qu'un lundi

Sub nouveauplanning()
Application.ScreenUpdating = False
Dim retour As Date

On Error GoTo gestionerreur
retour = InputBox("Entrez la date du premier lundi en respectant la syntaxe suivante jj/mm/aaaa", "", "", 100, 100)

Sheets.Add after:=Sheets(Sheets.Count)
Sheets("Modele").Select
Cells.Select
Cells.Copy
Sheets(Sheets.Count).Select
Range("A1").Select
ActiveSheet.Paste
Range("B7") = retour
Range("A1").Select
Exit Sub

gestionerreur:
MsgBox ("Le format de la date entrée n'est pas correcte")
Exit Sub


End Sub

Si vous avez une idée, merci d'avance.

 

[SergiO]

Re : Teste une date entrée

Re spitfire,

Tu peux tester si le jour est un lundi comme ceci:

Jour = Weekday(retour, vbMonday)

Si Jour = 1, alors la date saisie est un lundi.

@+

 

[spitfire378]

Re : Teste une date entrée

C'est super je teste avec ca