Discussion :

[dpie]

Bonjour,

je voudrais tester le contenu d'un champ texte avant de faire la suite du traitement...

il y a bien une propriété valide.Si pour ce champ mais je ne sais pas trop comment l'utiliser dans ce cas ci...

le texte saisi ne peut etre que de cette forme

[A-Z] ou [1-9] [.] [A-Z] ou [1-9]

en français ca donne:

n'importe quelle suite de lettres ou chiffres, suivi d'un point, suivi de n'importe quelle lettre ou chiffre.

ex :

a1.a1
aa.aa
11.11
1a1.1a1

voilà, j'espère que je me suis fait comprendre...

[dpie]

en plus simple...

ma chaine de caractères ne peut contenir QUE [A-Z] et/ou [.] et/ou [1-9]

La chaine de caractères ne peut pas contenir autre chose que lettre, chiffre ou point.

[cafeine]

ça ressemble à une RegEx (Expression Régulière)

ceci a l'air intéressant :

http://visualbasic.about.com/od/usin...l/blregexa.htm

[dpie]

heuuuu....
: : :

ce n'est pas si complique je pense...

j'ai bien ce code ci...

Comme "[ a-z 1-9 .]"

mais ca ne marche que pour 1 caractère.

a ok
b ok
1 ok
. ok

mais

aa ko
a1 ko
a1. ko

vous voyez ce que je veux dire...

il faut cette regle la qui s'applique à chaque caractère de la chaine...

[dpie]

en tout cas, vu le nombre de réponses, ca n'a pas l'air si simple que ca...

je dois tester chaque caractère de la chaine alors ?
ecrire une fonction moi même ??

[Tofalu]

Dans tes exemples, il y a une symétrie (enfin plutôt une répetition) de chaque coté du point. C'est cela que tu veux tester?

[tee_grandbois]

Dans le cas où la symétrie ou la répétition, n'est pas à contrôler, voici le code qui permet de controler la saisie d'une série de caractères autorisés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Champ1_KeyPress(KeyAscii As Integer)
' Contrôle de saisie des touches
 
' On ne contrôle pas Backspace, Enter et Esc
If KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> 27 Then 
    Select Case Chr(KeyAscii)
        ' Caractères autorisés
        Case "A" To "Z", "a" to "z", 1 To 9, "."
        ' Caractères non autorisés
        Case Else
        Beep
        MsgBox KeyAscii & "Erreur de saisie"
        KeyAscii = 0
    End Select
End If
 
End Sub

[dpie]

merci beaucoup tee_grandbois...

c quand même étonant qu'il n'y a pas d'autre moyen...

[Tofalu]

Le moyen de Tee et quand même trés simple. Ceci aurait pu se compliquer si à certaine positions tu avais des caractères obligatoires.

Par exemple premier caractère : 1à9, deuxième C,D ou E, troisième A à Z avec un nombre de caractère compris entre un nombre et un autre.

Sinon, il y aussi les Masques de saisies mais je ne penses pas que celà puisse aller. Essaye de tenter avec des Masques (Cf aide et assistants)