Conditionner un format sur TexTbox

**trading** · 05/04/2017, 21h20

Salut tous le monde, premier post,

Je débute en VBA excel je voudrais savoir conditionner le format d'une Textbox dans un userform,

L'utilisateur devra remplir plusieurs champs dont un choix dans un menu déroulant, si certain champs sont mal renseignés ils s'affichent en rouge sinon en vert,

Je voudrais savoir comment paramétrer un TextBox de façon à ce que celui s'affiche en rouge si le format ne respecte pas celui ci : Caractères = 12 ; les 2 premiers sont des lettres ; les 10 suivants sont des chiffres,

Je suppose qu'il faut que j'emploie un "If" ou un "If not" avec une formule "format" spécifié sur ma TextBox de la forme : If not Textbox.value.format(length : 2 .. ) mais je ne connais pas la forme de la formule,

Pouvez vous m'aidez ?

Merci d'avance !

**Jean-Philippe André** · 06/04/2017, 11h24

Salut,

tu travailles sous Excel, Access ou une autre application ?

Sous Access il existe des Masques de saisie.

Sinon il faudra effectivement faire un decoupage par bloc de caracteres.

**trading** · 06/04/2017, 15h30

Salut J-P,

Effectivement je n'ai pas précisé il s'agit de vba excel

**Marc-L** · 06/04/2017, 16h33

Bonjour,

voir du côté de l'opérateur Like comme documenté dans l'aide VBA interne …

___________________________________________________________________________________________________________

Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**unparia** · 06/04/2017, 17h08

Bonjour et un salut à Marc-L
En effet ultra-simple en utilisant l'opérateur Like si aucune des deux lettres n'est accentuée. Egalement ultra-simple si par "deux lettres" on entend "tout caractère hormis numérique"
Si à la fois accent(s) admis et uniquement lettres pour les 2 1ers caractères : la chaîne à définir comme filtre de like est alors un peu complexe et à construire d'une manière non exposée dans l'aide VBA.
Précise-nous donc ce point.

**Marc-L** · 06/04/2017, 17h42

Salut Jacques !

Effectivement, cela demande un éclaircissement de la part du demandeur …

**trading** · 07/04/2017, 16h11

Bonjour a tous merci de vos reponses,

J'ai bien trouvé la doc interne,

Pour repondre a ta question les 2 premiers caracteres doivent etre des lettres exluant tout accent ou caracteres speciaux.
Le but etant de saisir des codes ISIN de forme "XS1627282652" ; "FR7556458746"

Je touche le bout je bloque sur le joker a utiliser pour les lettres, en existe t il un ou alors faut il que japplique un if not numeric sur mes 2premiers caractere et ensuite le like sur les 10 suivants ?

Merci d'avance

**unparia** · 07/04/2017, 16h51

C'est alors on ne peut plus simple et bien exposé dans l'aide VBA :
exemple :

Code :

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

1
2
3
chaine = "AB1234567890"
crit = "[A-Z][A-Z]##########"
MsgBox chaine Like crit

**trading** · 07/04/2017, 16h53

J'ai trouvé au moment de ton post

je te remercie en tout cas, je vais juste le trifouiller pour qu'il m'accepte les lettres en maj/min

**unparia** · 07/04/2017, 17h31

Je vais juste le trifouiller pour qu'il m'accepte les lettres en maj/min

ne "trifouille" pas le critère, mais son utilisation --->>

Code :

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

1
2
crit = "[A-Z][A-Z]##########"
MsgBox ucase(chaine) Like crit

**patricktoulon** · 08/04/2017, 11h11

bonjour
si si il pourrait très bien gérer le min et majuscule dans "crit "

Code :

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

1
2
3
4
5
6
7
chaine1 = "AB1234567890"
chaine2 = "Ab1234567890"
chaine3 = "a11234567890"
crit = "[A-Z-a-z][A-Z-a-z]##########"
MsgBox chaine1 Like crit
MsgBox chaine2 Like crit
MsgBox chaine3 Like crit

**unparia** · 08/04/2017, 11h16

A Patricktoulon :
personne n'a dit le contraire.
Il est toutefois moins lourd d'utiliser le Ucase dans l'utilisation du critère, plutôt que de compléter le critère et forcer à faire ainsi une vérification plus lente.
Une autre solution (toujours sans modification du critère) : utiliser Option Compare Text

A Patricktoulon :
Je veux bien que l'on propose,. Encore faut-il tester ce que l'on propose :
Essaye ceci :

Code :

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

1
2
3
chaine = "-b1234567890"
crit = "[A-Z-a-z][A-Z-a-z]##########"
MsgBox chaine Like crit

Vu ? (et tu vois pourquoi, j'espère).
Il y a pourtant une manière autre de le dire (et l'écrire) sans faille, mais uniquement à condition :
1) de respecter la notation de l'opérateur Like (ce que tu ne fais pas)
2) d'en connaître ce que n'en expose pas l'aide VBA.

Amitiés.

**patricktoulon** · 08/04/2017, 14h02

et bien que cela te tienne ,je n'avais pas compris qu'il y avait des exceptions sur les caractères particuliers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()Dim chaine(5) As String, i As Long
chaine(1) = "aB1234567890"
chaine(2) = "ab1234567890"
chaine(3) = "5B1234567890"
chaine(4) = "-B1234567890"
chaine(5) = "A11234567890"
crit = "[A-Z a-z][A-Z a-z]##########"
For i = 1 To 5
Debug.Print chaine(i) Like crit
Next
End Sub

je pourrais ajouter aussi que dans les conribs il y a moulte méthodes pour formater un textbox directement pendant la saisie

**unparia** · 08/04/2017, 14h48

Tu devrais vraiment tester avant de proposer, patricktoulon
Ta notation est encore fausse ("qu'à cela ne tienne ou non"), cette fois-ci en sens inverse.

Bon ...
La notation sans faille (et sans or ni and) existe bien. Je l'aurais montrée si (uniquement si) nécessaire.
Le demandeur a eu sa solution. J'en reste donc là.

**patricktoulon** · 08/04/2017, 14h52

re
tester? ...en voila une idée..... pourquoi faire?
Nom : Capture.JPG
Affichages : 1072
Taille : 100,2 Ko

**unparia** · 08/04/2017, 14h55

Je ne sais pas comment tu testes (ou écris en réalité) ...
Ceci

chaine = "Ab1234567890"
crit = crit = "[A-Z a-z][A-Z a-z]##########"
MsgBox chaine Like crit

m'affiche Faux au lieu de vrai.

EDIT excuse-moi (faute de frappe). Ta proposition fonctionne

EDIT 2 : Ben finalement non --->>

Code :

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

1
2
3
ch = "A 1234567890"
crit = "[A-Z a-z][A-Z a-z]##########"
MsgBox ch Like crit

**patricktoulon** · 08/04/2017, 15h11

teste avec ca

Code :

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

crit = "[A-Za-z][A-Za-z]##########"

en fait c'est comme pour le regex selon comment ton pattern est ecrit
ca revient a ecrire ca tou simplement

Code :

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

crit = "[A-z][A-z]##########"

on inclus les 26 lettres maj/min soit 52 lettres

**unparia** · 08/04/2017, 16h46

Il était temps (3 tâtonnements) ...
Et il est tellement plus simple de ne rien modifier du critère et d'utiliser Ucase ou Option Compare Text, non ?

Quant à

ca revient a ecrire ca tou simplement

Code :

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

crit = "[A-z][A-z]##########"

Je m'inscris en FAUX ! C'est inexact !

**patricktoulon** · 08/04/2017, 18h59

j'ai pourtant testé avec
min et maj
l'inverse
une lettre un espace
une lettre et un caractère spécial
des lettre dans la série des chiffres
etc...
et mes résultats sont corrects

**unparia** · 08/04/2017, 19h25

et mes résultats sont corrects

jusqu'à ce qu'ils ne le soient plus, un jour ou l'autre, face à ce qui n'a pas été prévu ...

Mais une autre fois : le demandeur a exposé une difficulté. Il a eu une solution.
J'arrête donc personnellement là mon intervention dans la présente discussion.
Voilà.

Conditionner un format sur TexTbox

Macros et VBA Excel

Discussions similaires

Partager

Partager