Format TextBox

[deni29]

Bonjour à tous,

Je souhaiterai dans la textbox d'une userform obliger les utilisateurs qui inscrive un code, a ce que le format soit du style
1AB12345AAAA
C'est à dire : 1 chiffre, 2 lettres, 5 chiffres et 4 lettres.

il y aurait_il une solution?

deni29

 

[Qrieux]

voici quelques lignes de codes pour renvoyer un booleen qui sera = VRAI si le format desire est respecté


initialiser chaine avec la valeur de la textform
tant que bon = FAUX
proposer la USF
si annuler sortir du tant que
tester la chaine (avec le code proposé)
fin tant que [file name=Classeur4_20060407161539.zip size=6022]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur4_20060407161539.zip[/file]

Message édité par: Qrieux, à: 07/04/2006 16:15

 

[Hervé]

Bonjour deni, qrieux

une autre syntaxe possible :

Dim i As Byte

If Not Len(TextBox1) = 12 Then GoTo pasbon

For i = 1 To 12
        Select Case i
                Case 1, 4 To 8
                        If IsNumeric(Mid(TextBox1, i, 1)) Then cpt = cpt + 1
                Case 2, 3, 9 To 12
                    If Mid(TextBox1, i, 1) Like '[A-Z]' Then cpt = cpt + 1
        End Select
Next i

If Not cpt = 12 Then GoTo pasbon

Exit Sub

pasbon:
MsgBox 'Merci de respecter la syntaxe'
With TextBox1
        .SetFocus
        .SelStart = 0
        .SelLength = Len(Me.TextBox1)
End With

salut

 

[deni29]

Merci beaucoup pour cette macro

Denis

 

[Hervé]

re denis, Qrieux

bon ben, en me promenant sur le tchat xld, j'ai croisé DidierMdf, et comme souvent il m'a scotché en me proposant un code d'outre monde.

If Not TextBox1.Value Like '#[A-Z][A-Z]#####[A-Z][A-Z][A-Z][A-Z]' Then
        MsgBox 'Merci de respecter la syntaxe'
End If

voilà, c'est ce qu'on appelle du tres bon vba, et du excellent Mdf.

salut

hervé qui retourne faire mumuse avec excel du fond de sa caverne