Date eronnee dans textbox

[chaelie2015]

Bonjour Forum
ci dessous un code pour assurer que la saisie dans TextBox est une date

Private Sub TextBox24_Change()
'aide à la saisie de la date
Dim Texte As String
Texte = TextBox24.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextBox24.Text = Texte
End Sub

Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'verifie format date
If IsDate(TextBox24.Text) Then
TextBox24.Text = Format(TextBox24.Value, "dd/mm/yyyy")
Else
MsgBox "le format de date est incorrect.", vbOKOnly + vbCritical, "Attention....": Exit Sub
End If

End Sub

mais mon souci est, si je saisie une date erronée comme (exemple)12/13/2008 il excepte ???
Salutations

 

[Pierrot93]

Re : Date eronnee dans textbox

Bonjour,

essaye peut être comme ceci :

TextBox24.Text = Format(CDate(TextBox24.Value), "dd/mm/yyyy")

bon après midi
@+

 

[chaelie2015]

Re : Date eronnee dans textbox

Re PIERROT
ENCORE MERCI POUR LA REPONSE RAPIDE
MAIS JE SOUHAITE QU'IL EFFACE LA DATE
EST T IL POSSIBLE AVEC CE CODE????
salutations

 

[chaelie2015]

Re : Date eronnee dans textbox

Re PIERROT
ENCORE MERCI POUR LA REPONSE RAPIDE
MAIS JE SOUHAITE QU'IL EFFACE LA DATE
EST T IL POSSIBLE AVEC CE CODE????
salutations

RE
J 'ai ajouté

Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'verifie format date
If IsDate(TextBox24.Text) Then
TextBox24.Text = Format(CDate(TextBox24.Value), "dd/mm/yyyy")
Else
MsgBox "le format de date est incorrect.", vbOKOnly + vbCritical, "Attention....": [COLOR="#FF0000"][U]TextBox24 = ""[/U][/COLOR]
Exit Sub
End If
End Sub

 

[Pierrot93]

Re : Date eronnee dans textbox

Re,

ENCORE MERCI POUR LA REPONSE RAPIDE
MAIS JE SOUHAITE QU'IL EFFACE LA DATE

bah pour effacer la date...

TextBox1 = ""

 

[chaelie2015]

Re : Date eronnee dans textbox

Re

Maintenant, je souhaite généraliser ce code dans une page de multipage d'USF
J’ai 09 TexTbox (TextBox24-TextBox32)
Est-ce que pour chaque TextBox je saise le code ?
MERCI PAR AVANCE

 

[Pierrot93]

Re : Date eronnee dans textbox

Re,

fais une boucle de 24 à 32... tu trouveras des exemples de code sur le forum... c'est pas ca qui manque...

 

[chaelie2015]

Re : Date eronnee dans textbox

RE
donc les deux codes vont etre saisie dans

Private Sub TextBox24_Change()
'aide à la saisie de la date
Dim Texte As String
Texte = TextBox24.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextBox24.Text = Texte
End Sub

Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'verifie format date
If IsDate(TextBox24.Text) Then
TextBox24.Text = Format(CDate(TextBox24.Value), "dd/mm/yyyy")
Else
MsgBox "le format de date est incorrect.", vbOKOnly + vbCritical, "Attention....": TextBox24 = ""
Exit Sub
End If
End Sub

Private Sub UserForm_Initialize()

et je rajoute la boucle suivante

For i = 24 To 32
Me.Controls("TextBox" & i).Text = date
Next i

est ce que je suis dans la bonne voie??
merci

 

[Pierrot93]

Re : Date eronnee dans textbox

Re,

est ce que je suis dans la bonne voie??

oui en mettant = "" si tu veux remettre à vide...

 

[chaelie2015]

Re : Date eronnee dans textbox

Re

For i = 24 To 32
     Me.Controls("TextBox" & i).Text = ""
Next i
Dim Texte As String
Texte = vali.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
vali.Text = Texte

If IsDate(vali.Text) Then
vali.Text = Format(CDate(vali.Value), "dd/mm/yyyy")
Else
MsgBox "le format de date est incorrect.", vbOKOnly + vbCritical, "Attention....": vali = ""
Exit Sub
End If

je pense que je ne suis pas dans la voie

 

[Pierrot93]

Re : Date eronnee dans textbox

Re,

je pense que je ne suis pas dans la voie

bah... je sais pas ce que tu veux faire exactement... pas facile avec juste un bout de code jeté sur un post....

 

[chaelie2015]

Re : Date eronnee dans textbox

Re
je veux généraliser le code du post #4 avec un ensemble des TextBox
sincèrement, je n'arrive pas a faire des Boucles
MERCI

 

[Pierrot93]

Re : Date eronnee dans textbox

Re,

le code du post #4 est dans l'événement "TextBox24_Exit" du textbox.... soit tu le mets dans chaques événements exit des textbox concernés, soit tu regarde du coté des modules de classe, la encore plein d''exemple sur le forum...

 

[chaelie2015]

Re : Date eronnee dans textbox

Re,
je vais voir encore
merci