spitfire378
XLDnaute Occasionnel
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
Si vous avez une idée, merci d'avance.
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
Code:
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 SubSi vous avez une idée, merci d'avance.