Re : Message d'alerte sur l'age
Bonjour Dull,
et merci pour tes propositions.
J'ai juste fait une modification dans ton code :
Private Sub TextBox1_AfterUpdate()
Dim MonAge As String
TextBox1 = Format(TextBox1, "dd/mm/yyyy")
MonAge = Abs(DateDiff("yyyy", TextBox1, Now))
If MonAge < 18...