Re bonsoir
1 Private Sub TextBox7_Change()
2 ' Entrée de la date JJMMAA
3 Dim jour As String
4 Dim ExDate As String
5 jour = TextBox7.Value
6 If ((Len(jour) > 5) And (Len(jour) < 8)) Then
7 Application.EnableEvents = False
8 ExDate = Mid(jour, 1, 2) & "/" & Mid(jour, 3, 2) & "/20" & Mid(jour, 5)
9 TextBox7.Value = ExDate
10 Application.EnableEvents = True
11 End If
Dans ce code concernant l'entrée de la date, j'aurais voulu savoir si les lignes 7 et 10 sont importantes ou pas car si je les met en annotations (avec l'apostrophe) je ne remarque pas de probleme particulier.