prb date userform

6 réponses

bobaskis

15/09/2006 à 15:21

bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier si la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur. Le prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la feuille de
calcul, il inverse les jours et les mois et je ne sais plus comment faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

6 réponses

papou

15/09/2006 à 15:48

Bonjour
Chez Misange sur la page Contrôles, tu as des pistes sur la validation de
formats dans des contrôles :
http://www.excelabo.net/xl/controles.php

Cordialement
PAscal

"bobaskis" a écrit dans le message de
news:

bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier si
la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur. Le
prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la feuille
de
calcul, il inverse les jours et les mois et je ne sais plus comment faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

Alx

15/09/2006 à 15:50

Salut,
Je vais répondre de manière toute simple peut-être trop
Click droit, format de cellule, nombre, date.
Sinon je vois pas

bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier si la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur. Le prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la feuille de
calcul, il inverse les jours et les mois et je ne sais plus comment faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

Paul V

15/09/2006 à 15:56

Hello à tous,

Une première bonne idée serait de déjà déclarer ta variable correctement vu
l'usage
Dim MaDate as date

Le reste suivra tout seul

HTH

Paul V

"bobaskis" a écrit dans le message de
news:

bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier si
la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur. Le
prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la feuille
de
calcul, il inverse les jours et les mois et je ne sais plus comment faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

bobaskis

15/09/2006 à 16:13

slt,

c'est ce que j'avais fait Dim Madate as date, le prb c'est que si tu tape un
nombre ex:456 il le convertit en date alors que je veux un message d'erreur

Hello à tous,

Une première bonne idée serait de déjà déclarer ta variable correctement vu
l'usage
Dim MaDate as date

Le reste suivra tout seul

HTH

Paul V

"bobaskis" a écrit dans le message de
news:
bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier si
la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur. Le
prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la feuille
de
calcul, il inverse les jours et les mois et je ne sais plus comment faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

Paul V

15/09/2006 à 16:57

hello again,

Désolé mais 456 est aussi une date ;-)

A toi de faire un test pour voir si la date est dans la plage acceptable ou
non.

A+

Paul V
"bobaskis" a écrit dans le message de
news:

slt,

c'est ce que j'avais fait Dim Madate as date, le prb c'est que si tu tape
un
nombre ex:456 il le convertit en date alors que je veux un message
d'erreur

Hello à tous,

Une première bonne idée serait de déjà déclarer ta variable correctement
vu
l'usage
Dim MaDate as date

Le reste suivra tout seul

HTH

Paul V

"bobaskis" a écrit dans le message
de
news:
bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier
si
la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur. Le
prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la
feuille
de
calcul, il inverse les jours et les mois et je ne sais plus comment
faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

boblebob

15/09/2006 à 17:41

oui bien sûr pour le 456, ce que je cherche c'est que si la saisie n'est pas
au format xx/vv/nn (ou nnnn) il me mette un message d'erreur et qu'il arrête
de convertir xx/vv/nn et vv/xx/nn !
"Paul V" a écrit dans le message de news:

hello again,

Désolé mais 456 est aussi une date ;-)

A toi de faire un test pour voir si la date est dans la plage acceptable
ou non.

A+

Paul V
"bobaskis" a écrit dans le message de
news:
slt,

c'est ce que j'avais fait Dim Madate as date, le prb c'est que si tu tape
un
nombre ex:456 il le convertit en date alors que je veux un message
d'erreur

Hello à tous,

Une première bonne idée serait de déjà déclarer ta variable correctement
vu
l'usage
Dim MaDate as date

Le reste suivra tout seul

HTH

Paul V

"bobaskis" a écrit dans le message
de
news:
bonjour,
je souhaite récupérer une date tapé dans un Textebox, je veux vérfier
si
la
valeur saisie est bien une date sinon il affiche un msgbox d'erreur.
Le
prb
c'est que lorsque je tape 12/03/2006 il affiche 03/12/2006 dans la
feuille
de
calcul, il inverse les jours et les mois et je ne sais plus comment
faire.

Private Sub CommandButton2_Click()
Dim MaDate

On Error GoTo labas
MaDate = tb1.Value

If IsDate(MaDate) Then
MsgBox "c'est une date !"
Range("a21").Value = MaDate

Else
labas:
MsgBox "ce n'est pas une date !!!"
End If
End Sub

prb date userform

6 réponses

Veuillez sélectionner un problème