Bonjour et merci d'avance
Je cherche en VBA a tester si c'est le bon format dans mon inputbox.
Code postal du Canada
Toujours en majuscule avec espace au centre: H1N 2R3
up:
code = InputBox(prompt:="Entrer le code postal. Ex: H1N 2R3", Title:="New")
If Format(Code,... <> ... then Msgbox "Mauvais format": goto up:
Le majuscule n'est pas trop important car je peut mettre tout en maj à la fin du code
J'ai ceci que je pourrais mettre et tester chaque caractère. Mais si il y a mieux.
If IsNumeric(Left(code, 1)) Then MsgBox "Mauvais format": GoTo up
If Not IsNumeric(Left(code, 2)) Then MsgBox "Mauvais format": GoTo up
Aussi si vous l'avez en MFC pour exemple rouge si c'est pas ce format.
Merci de votre temps
Temjeh
Je cherche en VBA a tester si c'est le bon format dans mon inputbox.
Code postal du Canada
Toujours en majuscule avec espace au centre: H1N 2R3
up:
code = InputBox(prompt:="Entrer le code postal. Ex: H1N 2R3", Title:="New")
If Format(Code,... <> ... then Msgbox "Mauvais format": goto up:
Le majuscule n'est pas trop important car je peut mettre tout en maj à la fin du code
J'ai ceci que je pourrais mettre et tester chaque caractère. Mais si il y a mieux.
If IsNumeric(Left(code, 1)) Then MsgBox "Mauvais format": GoTo up
If Not IsNumeric(Left(code, 2)) Then MsgBox "Mauvais format": GoTo up
Aussi si vous l'avez en MFC pour exemple rouge si c'est pas ce format.
Merci de votre temps
Temjeh
Dernière édition: