différents format de Textbox

[news]

Bonjour à tous du forum,

J'utilise une textbox avec différent format. Quand n'est pas mis le bon format, il est affiché la Msgbox ("format non valide").

Mais je ne sais pas trop comment y mettre les bons format suivant :

Dans la TextBox6 si on met une lettre (un format non numérique) renvoie Msgbox
ou si on ne met pas le format (####.##.##-###) renvoie Msgbox

If IsNumeric(TextBox6) Then
TextBox6 = CDbl(TextBox6.Value)
TextBox6 = Format(TextBox6, "####.##.##-###") 'type format (0000.00.00-000), p.ex.:1976.05.20-105
Exit Sub
Else
Msgbox("invalid format")

merci d'avance de vos astuces, lequels m'ont déjà bien aidé d'avancer les Userform,

news

 

[youky(BJ)]

Re : différents format de Textbox

Bonjour News,
code pour le textbox6
plus besoin de mettre les "." ou "-" cela se fait seul
A+

Private Sub TextBox6_Change()
'"####.##.##-###"
If Len(TextBox6) = 4 Then TextBox6 = TextBox1 & "."
If Len(TextBox6) = 7 Then TextBox6 = TextBox1 & "."
If Len(TextBox6) = 10 Then TextBox6 = TextBox1 & "-"
End Sub
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
If Len(TextBox6) = 14 Then KeyAscii = 0
End Sub

 

[news]

Re : différents format de Textbox

Bonjour à tous du forum,

merci youky(BJ) pour réponse et l'astuce d'àviter de mettre les "." ou"-"

Re: format(testbox6.Value)
J'ai recherché et trouvé le vba code suivant ( à tester encore ):

If Not Me.TextBox6 Like "####.##.##-###" Then
Msgbox("format invalide")

news

 

[youky(BJ)]

Re : différents format de Textbox

ci-joint petit fichier pour pas passer à coté
...pas possible de faire d'erreurs de format et que chiffres accéptés.

Pour les textbox que j'ai pas mis0... utilises.... Like
Trés pratique dans ton cas
A+

 

[kiki29]

Re : différents format de Textbox

Salut, si cela peut t'aider

 

[news]

Re : différents format de Textbox

Bonjour à tous du forum,

Re: pas vraiment, comme les exemples ne sont pas adaptées à celles que j'ai besoin,
merci quand même pour les données du fichier "SaisieNum_02, lquel j'avais également trovué auparavant dans la abse de données osu Recherce de ce forum,

J'utilise le code suivant qui résolu le format :

If Not Me.TextBox6 Like "####.##.##-###" Then
Msgbox("format invalide")

news