Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim an, mois
an = Year(Date) '2019 'à adapter
mois = Month(Date) '8 'à adater
With TextBox1
If Not IsDate(.Text) Then .Text = "": Cancel = True: Exit Sub
If CDate(.Text) < DateSerial(an, mois, 1) Then .Text = "": Cancel = True: Exit Sub
.Text = Format(.Text, "dd/mm/yyyy")
End With
End Sub
Super Job75Bonjour KTM,
A+VB:Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim an, mois an = Year(Date) '2019 'à adapter mois = Month(Date) '8 'à adater With TextBox1 If Not IsDate(.Text) Then .Text = "": Cancel = True: Exit Sub If CDate(.Text) < DateSerial(an, mois, 1) Then .Text = "": Cancel = True: Exit Sub .Text = Format(.Text, "dd/mm/yyyy") End With End Sub
Bah l'utilisateur n'est pas forcément un demeuré et il a des yeux pour voir et des doigts pour agir.Avec ton code, si on saisit dans la textbox1 le texte 3/25/27 alors les fonctions de date le transforme en 25/03/2027 ce qui est rarement désiré.
J’acquiesce mais:Bah l'utilisateur n'est pas forcément un demeuré et il a des yeux pour voir et des doigts pour agir.