Bonjour à toutes et à tous , j'ai un petit souci en vb6 avec la creation d'un format. Voila on me demande que lorsque l'on tape une date sur une inputbox que les séparateurs "/" se créent automatiquement , on m'a laissé entendre que l'on pouvait paramétrer une inputbox pour qu'elle reconnaisse se type de date Je ne sais pas le faire quelqu'un pourrait il m'aider SVP je vous donne le morceau de prog:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Entrée_date:
        resultat = InputBox("Entrer la date d'étiquette de l'étalon", "Saisie de la date d'étiquette", "jj/mm/aaaa")
        If Len(resultat) <> 10 Then GoTo Entrée_date
        If Mid(resultat, 3, 1) <> "/" Then GoTo Entrée_date
        If Mid(resultat, 6, 1) <> "/" Then GoTo Entrée_date
        If val(Left(resultat, 2)) > 31 Or val(Left(resultat, 2)) < 1 Then GoTo Entrée_date
        If val(Mid(resultat, 4, 2)) > 12 Or val(Mid(resultat, 4, 2)) < 1 Then GoTo Entrée_date
        étalon_étiquette = resultat
        resultat = MsgBox("Insérer l'étalon de début et valider", vbOKOnly + vbExclamation, " Test étalon")
        resultat = MsgBox("Allez vous imprimer les résultats", vbYesNo + vbExclamation, " Impression des résultats")
        Select Case resultat :cry: