XL 2010 Tester le format dans un TextBox ?

[mohsin.stat]

Bonjour à tous,

Je voudrais savoir comment tester si un textbox disant "TexeBox1" contient le format de texte suivant: "9 caractères" puis un tirait "-" pui "8 caractères"
exemple: MALCH41GP-5M106099 // donc en tous il y a 18 caractères en contant le tirait.

j'éspère vous pouriez m'aider pour le résoudre et merci d'avance !

.

 

[fanfan38]

Bonjour
if len(textbox1.value)<>18 then exit sub
if Mid(textbox1.value, 10, 1)<>"-" then exit sub

A+ François

 

[danielco]

Bonjour,

Essaie :

  Dim Tabl As Variant
  Tabl = Split(Me.TextBox1, "-")
  If UBound(Tabl) <> 1 Or Len(Me.TextBox1.Text) <> 18 Or Len(Tabl(0)) <> 9 Or Len(Tabl(1)) <> 8 Then
    MsgBox "saisie incorrecte"
  End If

Cordialement.

Daniel

 

[Staple1600]

Bonjour le fil,

Une autre syntaxe possible avec Like
(à adapter pour le TextBox, ci-dessous ce n'est qu'un exemple de test)

Sub test()
Dim a$, b$
a = "MALCH41GP-5M106099"
b = "MALCH41GP+5M106099"
If a Like "?????????-????????" Then
MsgBox "Valeur correcte", vbInformation, "Infos"
Else
MsgBox "Valeur incorrecte", vbCritical, "ERREUR"
End If
If b Like "?????????-????????" Then
MsgBox "Valeur correcte", vbInformation, "Infos"
Else
MsgBox "Valeur incorrecte", vbCritical, "ERREUR"
End If
End Sub

 

[mohsin.stat]

Merci beaucoup à vous
fanfan38 et danielco et Staple1600

quant à moi j'ai utilisé le code de : Staple1600 ça fonctionne très bien et répond bien précisement à mes attentes

If TextBox1 Like "?????????-????????" Then MsgBox "Format correct !" Else MsgBox "Format incorrect  !": Exit Sub

un grand merci !