Imposer un format de réponse à une inputbox conditionnelle

Bonjour,

Je souhaiterais imposer un format de réponse date type "DD/MM/YY" (ou "DD/MM/YYYY") à une Inputbox qui ne se lance qu'à certaines conditions. Avec mon code actuel, le gestionnaire d'erreur ne se lance que si du texte est rempli mais si l'utilisateur rentre un format DDMMYY sans les "/", une date n'ayant rien à voir est appliquée...

Deuxième point, j'aimerais que l'utilisation du bouton "Annuler" amène l'utilisateur à confirmer son choix de vouloir quitter la macro ou non (actuellement mon code est écrit de telle sorte qu'en appuyant sur "Annuler", la macro boucle sur mon Errorhandler et je suis obligé de forcer la sortie avec CTRL+Pause).

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub dates() ' ' dates Macro ' Dim i As Long, j As Integer, Message As String, DiffDate As Integer, NouvDate As Date, Defaut As String   PremLigne = 6 DernLigne = Range("A" & Rows.Count).End(xlUp).Row   On Error GoTo Errorhandler   For i = PremLigne To DernLigne   Message = "Donner la " & CStr(Range("E5")) & " de la réservation " & _ CStr(Cells(i, 2)) & " sous la forme JJ/MM/AA (taper les ' / ')." & _ vbCrLf & "Pour rappel : la date affichée dans le rapport est " & _ CStr(Cells(i, 3)) Defaut = Format(Now, "dd/MM/yy") DiffDate = DateDiff("d", Cells(i, 4), Cells(i, 5))   If DiffDate < 0 Then NouvDate = InputBox(Message, "Erreur de date à modifier", Defaut, 1000, 500) Cells(i, 5) = NouvDate End If   Next i Exit Sub   Errorhandler:   MsgBox "Vous n'avez pas saisi une date à un format valide" & _ vbCrLf & "Pour rappel, la forme doit être du type JJ/MM/AA avec les '/'", vbCritical Resume   End Sub

---

Merci par avance pour votre aide !

re
le probleme c'est que si tu injecte ton inputbox dans une cellule soit tu y envoie

un string donc pour jongler avec les date dans le sheets walouh walouh

soit une date mais ton format "dd/mm/yy" est imediatement transformé dans la cellule en en "dd/mm/yyyy"
sachant cela force la saisie comme tu veux dans l'input oui!! mais formate ta cellule
exemple

1. si tu annule ben ca fait rien
2. si le format n'est pas bon tu réexecute le code a partir de "re:" le input se reaffiche
3. si la date est au bon format on formate la cellule et injecte cdate(nouvdate)

de cette maniere ta date devrait etre exploitable en tant que date dans le sheets

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Defaut = Format(Now, "dd/MM/yy") re: nouvdate = InputBox(Message, "Erreur de date à modifier", Defaut, 1000, 500) If nouvdate <> "" Then If nouvdate <> CStr(Format(nouvdate, "dd/mm/yy")) Then GoTo re With Cells(1, 5): .NumberFormat = "dd/mm/yy": .Value = CDate(nouvdate): End With End If End Sub

---

par contre ton 1000 et 500 ca ne fonctionne pas chez moi l'input se retrouve toujours en haut a gauche de l'ecran
pour qu'il soit au niveau haut gauche de la fentre de l'application je fait

Code:

---

nouvdate = InputBox(Message, "Erreur de date à modifier", Defaut, (10 + Application.Left) * 20, (10 + Application.Top) * 20)

---

va savoir toi hein ;)

Bonjour,

Est-il possible d'installer l'ancien contrôle Agenda de Microsoft ? Ce serait plus plaisant pour l'utilisateur j'imagine.

re
j'avais zapé les slashs obligatoire

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Defaut = Format(Now, "dd/MM/yy") re: nouvdate = InputBox(Message, "Erreur de date à modifier", Defaut, (10 + Application.Left) * 20, (10 + Application.Top) * 20) If nouvdate <> vbNullString Then If nouvdate <> CStr(Format(nouvdate, "dd/mm/yy")) Or UBound(Split(nouvdate, "/")) <> 2 Then GoTo re With Cells(1, 5): .NumberFormat = "dd/mm/yy": .Value = CDate(nouvdate): End With End If End Sub

---

si tu annule ca fait rien
si tu te plante ou oublie un/des slashs ca remet l'input au debut
si le format n'est pas bon ca remet l'input au debut

autrement dit tu ne peux pas taper
081218
08/1218
0812/18
0/8/12/18
8/12/17
12/23/18
etc.....

Bonjour
Il est toujours sage de tester ce que l'on écrit.
Que l'utilisateur frappe par exemple n'importe quels chiffres et 2 "/" et le garde-fou de la ligne 6 recevra une prune, hein.
Le bon garde-fou étant trop simple à mettre en oeuvre, je laisse le sage s'assagir seul.