Textbox pb avec date

[Goufra]

Bonjour,

Dans le fichier joint, j'obtiens :

1 er msgbox : la date sous forme de chiffre

2 ème msgbox : la date sous forme de date , j'utilise une cellule tampon.

Je souhaiterais pouvoir utiliser une variable sans celllule tampon .

D'avance merci de bien vouloir m'apporter votre aide.
Goufra

 

[youky(BJ)]

Re : Textbox pb avec date

Bonjour,
Comme ceci . . . .
MsgBox "La date est: " & CVDate(dat) ' 1 ère msgbox

Bruno

 

[kjin]

Re : Textbox pb avec date

Bonjour,
Mieux vaut quitter si la date n'est pas conforme

Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then
    MsgBox "Vous devez entrer une date." & vbCr & vbCr & _
    "Recommencez svp" & vbCr & "sous la forme 02/12/11" & vbCr & vbCr & _
    "les séparateurs / sont installés automatiquement"
    Exit Sub
End If
MsgBox "La date est:  " & CDate(TextBox1)          ' 1 ère msgbox
Unload Me
End Sub

A+
kjin

 

[laetitia90]

Re : Textbox pb avec date

bonjour Goufra,youky(BJ),kjin
une autre méthode pour limiter les erreurs de frappes
j' ai defini dans proprietées le nombre de caracteres maxi "MaxLength"
on peut pousser le concept plus loin par exemple les 2 premiers caracteres >00<=31 ect..

 

[Goufra]

Re : Textbox pb avec date

bonsoir
Merci à vous : youki(bj), Kjin, Laetitia90 pour votre aide.

Tout est ok
Je n'ai plus qu'à creuser la fonction propsée par laetitia90 pour comprendre.

Bonne soirée
jc Goufra