Discussion :

[adelsunwind]

j ai une inputbox dans laquelle je dois saisir une date. Est il possible pour faire gagner du temps à l utilisateur de taper 151009 ( pour 15/10/2009) et de stocker le resultat dans une variable dont le format accepte (15/10/2009).
Merci d'avance.

[Pierre Fauconnier]

Bonsoir

Peut-être ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Dim Reponse As String
    Dim MaDate As Date
 
    Reponse = InputBox("Saisissez la date au format jjmmaa")
 
    If Reponse Like "######" Then Date = DateSerial(Right(Reponse, 2), Mid(Reponse, 3, 2), Left(Reponse, 2))

Mais perso, je n'aime pas trop une solution de ce type. Il faudra à tout le moins contrôler la saisie et agir en conséquence => Je préfère un petit formulaire pour réaliser cela, avec contrôle de la saisie et choix du code à exécuter en fonction du résultat.