Probleme macro: textbox qui renvoie date

[Seb]

Bonjours au forum,

Voila mon petit soucis. Dans un userform, mon textbox5 designe une date.

Qand je valide, je fais vérifier à ma macro la forme de la date. Je voudrais qu'elle agisse ainsi:

Si la date dans textbox5 est au format jj/mm/aaaa alors ..... Je pensais avoir bon en tapant:

If Not IsDate(TextBox5) Then
MsgBox "Seb: Veuillez insérer la date d'entrée au bon format: jj/mm/aaaa."
TextBox5.SetFocus
Exit Sub
End If
Worksheets("LISTING").Range("F3").Value = DateValue(TextBox5)

mais si je tape la date ainsi: 01/02/200 qui est une date fausse, ça bugue, un coup ça me la prend un autre coup non...

Quelqu'un aurait la solution..?

Merci encore..
Seb

 

[tototiti2008]

Re : Probleme macro: textbox qui renvoie date

Bonjour Seb,

le soucis vient du fait que Excel gère les dates à partir du 1er janvier 1900
mais VBA gère les dates à partir du 1er janvier 100
donc pour lui il s'agit d'une date...
je te propose :

If Not IsDate(TextBox5) Then
MsgBox "Seb: Veuillez insérer la date d'entrée au bon format: jj/mm/aaaa."
TextBox5.SetFocus
Exit Sub
End If

if CLng(CDate(textbox5)) <= 0 then
MsgBox "Seb: Veuillez insérer une date d'entrée au-delà du 01/01/1900."
TextBox5.SetFocus
Exit Sub
End If

 

[kjin]

Re : Probleme macro: textbox qui renvoie date

Bonjour,
En formattant la date tu ne devrais plus avoir d'erreur il me semble

Private Sub CommandButton1_Click()
If Not IsDate(TextBox5) Then
MsgBox "Seb: Veuillez insérer la date d'entrée au bon format: jj/mm/aa ou jj/mm/aaaa"
TextBox5.SetFocus
Exit Sub
End If
Worksheets(1).Range("F3").Value = CDate(Format(TextBox5, "dd/mm/yy"))
End Sub

A+
kjin