A voir également:
- Vbs - controle de champ
- Controle parental pc - Guide
- Vbs windows - Guide
- Contrôle wifi - Guide
- Controle de compte utilisateur - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide - Forum Excel
4 réponses
Utilisateur anonyme
18 févr. 2005 à 14:58
18 févr. 2005 à 14:58
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
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
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
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
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 !
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 !
