XL 2010 Tester le format dans un TextBox ?

mohsin.stat

XLDnaute Nouveau
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 !

.
 

danielco

XLDnaute Impliqué
Bonjour,

Essaie :
VB:
  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

XLDnaute Barbatruc
Bonjour le fil,

Une autre syntaxe possible avec Like
(à adapter pour le TextBox, ci-dessous ce n'est qu'un exemple de test)
VB:
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

XLDnaute Nouveau
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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas