Controle de saisie

[jepy]

Bonjour,

Dans un petit programme de recherche de donnée, je souhaite controler la saisie dans une TexBox à savoir que le format doit être 4 chiffres, un point, quatre chiffres exemple "1234.5678"

Malgré la ligne :

dim v
If v.value <> Format("##.##00") Then
MsgBox ("Veuillez saisir la référence au format ????.????")
v.Value = ""
Exit Sub
End If

la boite de dialogue s'affiche même si la saisie est au bon format.

Après un milion d'essai sous différente forme je n'ai toujours pas trouvé.

Pouvez vous venir à mon secours.

Merci d'avance.

JEPY.

 

[Valérie]

salut JEPY

Essai de l'écrire comme ça :

dim v
If v.value <> Format(CDbl(v.Value), "0000.0000") Then
MsgBox ("Veuillez saisir la référence au format ????.????")
v.Value = ""
Exit Sub
End If

@+
Valérie

 

[jepy]

Génial Valérie !!!

Ca marche et vous venez de m'éviter de longues soirées à me taper la tête contre l'écran.

Merci

A+

Jepy.

 

[Valérie]

Salut Jepy,

Comme je suis une fille j'ajouterai un E à Géniale (lol, hihihi)
C'était pas de moi que tu parlais!!

@ bientôt et attention aux bosses

Valérie