Bonjour,

voilà mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub TextBox_date_service_Change()
 
    'Ecriture de la date sous la forme
    With TextBox_date_service
     Select Case Len(.Text)
        Case 2, 5
        .Text = .Text & "/"
     End Select
    End With
End Sub
Ce code fonctionne. Le souci avec ce bout de code c'est que l'utilisateur peut rentrer des dates farfelues (ex:99/99/999999999). Le format date n'est pas le Us donc c'est jj/mm/aaaa. Ce que je cherche avant tout c'est de bloqué l'année à 4 chiffres ce que ce code ne fais pas.

Si une solution est possible sinon tant pis. Le tuto sur les date ne m'a pas aidé.