Bonjour à tous,
Dans un Usf, je créé ou modifie des fiches de renseignement sur des associations.
J'ai donc différents combobox et textbox à renseigner (discipline, nom, adresse, commune, code postal,...).
Mon problème est le suivant : lorsque je renseigne la combo "code postal" et que je rentre par ex : 84000, lorsque je consulte à nouveau la fiche, la valeur placée dans la combo code postal est bien 84000.
Par contre lorsque je rentre par ex : 07000 et que je consulte à nouveau la fiche, la valeur qui apparaît dans la combo code postal est non pas 07000 mais 7000 (il manque donc le 0 devant).
J'ai tenté différentes possibilités mais sans succès.
Voici mon code :
Merci de bien vouloir me corriger.
Dans un Usf, je créé ou modifie des fiches de renseignement sur des associations.
J'ai donc différents combobox et textbox à renseigner (discipline, nom, adresse, commune, code postal,...).
Mon problème est le suivant : lorsque je renseigne la combo "code postal" et que je rentre par ex : 84000, lorsque je consulte à nouveau la fiche, la valeur placée dans la combo code postal est bien 84000.
Par contre lorsque je rentre par ex : 07000 et que je consulte à nouveau la fiche, la valeur qui apparaît dans la combo code postal est non pas 07000 mais 7000 (il manque donc le 0 devant).
J'ai tenté différentes possibilités mais sans succès.
Voici mon code :
Code:
Private Sub CodePostal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Dim MyStr
If CodePostal.Text <> "" Then
If Teste(CodePostal.Value, "(^-$)|(^[0-9]{5}$)", "Unique") = False And CodePostal <> "" Then
MsgBox CodePostal.Value & " n'est pas une valeur valide.", vbExclamation, "Valeur non valide"
CodePostal.Value = ""
Cancel = True
SendKeys "{ENTER}"
SendKeys "+{TAB}"
Exit Sub
End If ' [B]jusque-là pas de problème,, c'est ensuite que j'ai cherché à modifier le code en tentant différentes possibilités (placées après un ' )[/B]
[B] If Teste(CodePostal.Value, "(^-$)|(^[0-9]{5}$)", "Unique") = True And CodePostal <> "" Then
'CodePostal = CStr(CodePostal)
'CodePostal.Text = CStr(CodePostal.Text)
'MyStr = Format(CodePostal, "#####")
End If[/B]
End If
End Sub