Textbox pb avec date

youky(BJ)

XLDnaute Barbatruc

• 17 Avril 2011

• #2

Re : Textbox pb avec date

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

Bruno

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 17 Avril 2011

• #3

Re : Textbox pb avec date

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

Code:

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 17 Avril 2011

• #4

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..

 

Pièces jointes

• Copie de goufradate.zip

  25.2 KB · Affichages: 31

Vote positif 0 Vote négatif

G

Goufra

XLDnaute Occasionnel

• 18 Avril 2011

• #5

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

 

Vote positif 0 Vote négatif