vbs - controle de champ Fermé

Question

Bonjour !

en fait j'ai un programme vbs relatif a une page html

J'aurais voulu controler le format d'un champ

ex : le champ date ne pourra contenir que du numérique et avoir une forme spécifique du style jj/mm/aaaa

Merci d'avance

marie · Answer

y' a personne qui peut m'aider ????plse !!Merci !

Utilisateur anonyme · Answer

Bonjour,

Voici quelques possibilités :

Dim oFS
Dim Valeur, Saisie

Set oFS = CreateObject("Scripting.FileSystemObject")

Saisie = InputBox("Saisie", "Date", "18/02/2005")
Valeur = FormatDateTime(Saisie, vbGeneralDate)
wscript.echo Valeur
Valeur = FormatDateTime(Saisie,vbLongDate)
wscript.echo Valeur
Valeur = FormatDateTime(Saisie,vbShortDate)
wscript.echo Valeur

Lupin

marie · Answer

Bonjour,

Merci de ta reponse

Mais en fait, je voudrais que lorsque l'utilisateur saisi :
- quoi que ce soit dans le champ date, s'il y a un caractere par ex, on lui dise Champ incorrect veuillez saisir une date

- et s'il ne met pas une date correcte (ex: 30/02/2005) on lui dit veullez saisir un date correcte !

Merci de ton aide

marie · Answer

Bonjour,

J'ai trouver la solution .. enfin ma solution !

J'ai fait comme ceci :

'verifier si le contenu est vide
If heure = "" Then
MsgBox "La zone heure n'est pas renseignée, veuillez saisir !", 48 ,"Probleme Saisie"
erreur = erreur + 1
oIE.document.FormHtml.heure.Focus
End if

'verifier si le contenu est numerique
If Not heure = "" and Not IsNumeric(oIE.document.FormHtml.heure.value) Then
MsgBox "La zone heure n'est pas numérique !", 48 ,"Probleme Saisie"
erreur = erreur + 1
oIE.document.FormHtml.heure.Focus
End if

Merci quand meme !

Vbs - controle de champ

4 réponses

Discussions similaires