Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Teste une date entrée

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

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 Sub

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…