Problèmes de date dans Textbox

[karinette]

Bonjour à tous ...
Je vous expose mon problème, car mes recherches ne m'ont pas beaucoup aidées ...
J'ai un classeur avec un USF où l'on saisi 2 dates.
Un raccourcis permet de mettre automatiquement la date du jour.
Apres validation, une formule calcule l'ecart.
J'ai 2 problèmes :
- Lorsque je change la date dans le textbox, le mois et le jour s'inverse parfois (sauf sur un petit ecart 😕)
- Comment obliger la saisie au bon format (dd/mm/yyyy hh:mm)

Merci d'avance ...

 

[job75]

Re : Problèmes de date dans Textbox

Bonjour karinette,

Par exemple cette solution :

Private Sub CommandButton9_Click()
[COLOR="Red"]If Not TextBox1 Like "##/##/#### ##:##" Or Mid(TextBox1, 4, 2) > "12" _
  Or Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not TextBox2 Like "##/##/#### ##:##" Or Mid(TextBox2, 4, 2) > "12" _
  Or Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub[/COLOR]
ActiveSheet.Range("C3") = CDate(TextBox1)
ActiveSheet.Range("D3") = CDate(TextBox2)
Unload Me
End Sub

On peut aussi contrôler chaque caractère, c'est plus compliqué et plus lourd...

Edit : j'avais mis Like "##/##* ##:##", excès de zèle pas terrible...

A+

 

[MJ13]

Re : Problèmes de date dans Textbox

Bonjour karinette, Job

A tester:

ActiveSheet.Range("C3") = Format((TextBox1.Value), "mm/dd/yy")

 

[job75]

Re : Problèmes de date dans Textbox

Re, salut Michel,

IsDate considère comme des dates les années à partir de l'an 100...

Donc il faut aussi contrôler l'année (en rouge) :

Private Sub CommandButton9_Click()
If Not TextBox1 Like "##/##/#### ##:##" Or Mid(TextBox1, 4, 2) > "12" [COLOR="Red"]Or Mid(TextBox1, 7, 4) < "1900"[/COLOR] _
  Or Not IsDate(TextBox1) Then TextBox1 = "": TextBox1.SetFocus: Exit Sub
If Not TextBox2 Like "##/##/#### ##:##" Or Mid(TextBox2, 4, 2) > "12" [COLOR="red"]Or Mid(TextBox2, 7, 4) < "1900"[/COLOR] _
  Or Not IsDate(TextBox2) Then TextBox2 = "": TextBox2.SetFocus: Exit Sub
ActiveSheet.Range("C3") = CDate(TextBox1)
ActiveSheet.Range("D3") = CDate(TextBox2)
Unload Me
End Sub

A+

 

[karinette]

Re : Problèmes de date dans Textbox

Merci bien à tous, ça fonctionne ...