format textbox

[news]

Bonjour à tous du forum,

J'essaie d'avancer avec un Userform, mais j'ai un bug avec le format de Textbox.

Si le text suivant ("viande" ou "lait" ou "café") ne se trouve pas dans une Textbox d'un Userform.
p.ex.: du lait UHT ou du lait frais ou 5 litres de lait ou de la viande de veau,

alors renvoi d'une Msgbox ("erreur").

Ce texte peut-être en MAJUSCULE ("LAIT") ou minuscule ("lait") ou 1ière lettre et majuscule("Lait").

merci d'avance de réponse,

news

 

[Paritec]

Re : format textbox

re News le forum,
si tu donnais un bout de fichier avec toutes tes demandes clairement dans la fichier au lieu d"ouvrir plusieurs post comme tu le fais? ne crois-tu pas que ce serait mieux?
a+
papou 🙄

 

[Claudy]

Re : format textbox

Bonjour,

If Not (TextBox1.Value Like "*lait*" Or TextBox1.Value Like "*bier*" OrTextBox1.Value Like "*café*" ) Then
MsgBox "Il faut le mot Lait ou bière ou café"
End If
A+
claudy

 

[news]

Re : format textbox

Bonjour à tous du forum,

Re: Paritec
comme dans le post initial (modifié par après), il y avait 4 questions de différents formats, j'ai remarqué que c'est mieux de poster pour chaque format un sujet. Entre temps 2 des 4 format ont été résolus, du aux réponses de ce forum et aux recherches effectués sur ce forum sur le sujet de format. Ci-joint fichier explicite.

merci Claudy pour réponse,
Re: ah d'accord, fallait mettre le signe * devant et après le mot de texte à ne pas mettre dans Textbox.

Uniquement si le texte est écrit en MAJUSCULE "LAIT" ou "Lait", n'est pas inclus comme filtre avec le vba code *lait*,
Comment définir aulieu d'y mettre ?

TextBox1.Value Like "*lait*" or "*Lait*" or "*LAIT*" etc.

news

 

[Paritec]

Re : format textbox

Re News et tous
tu mets
option compare text et là tu auras les majuscules et minuscules
a+
papou

 

[Claudy]

Re : format textbox

Re bonjour, ou alors:
rep = LCase(TextBox1)
If Not (rep.Value Like "*lait*" Or rep.Value Like "*café*" Or rep.Value Like "*bier*") Then
MsgBox "Il faut le mot Lait"
End If

A+
Claudy

 

[Pierrot93]

Re : format textbox

Bonjour à tous

Aarf Claudy, pas sur que la propriété "value" appliquée à une variable de type "string" ne renvoie pas une erreur...

bon dimanche
@+

 

[Claudy]

Re : format textbox

bien vu...
rep = LCase(TextBox1)
If Not (rep Like "*lait*" Or rep Like "*café*" Or rep Like "*bier*") Then
MsgBox "Il faut le mot Lait"
End If
Bon dimanche
Claudy

 

[Lii]

Re : format textbox

Bonjour

puisque c'est fait ... (réponses aux 2 demandes).

 

[job75]

Re : format textbox

Bonjour le fil,

Un exemple (un peu pour le fun) avec une liste de mots interdits :

Dim tablo(), i As Integer
tablo = Array("lait", "vin", "bièr", "biér", "biêr", "bier", "lég", "lèg", "lêg", "leg")
For i = 0 To UBound(tablo)
If IsNumeric(Application.Search(tablo(i), TextBox2)) Then MsgBox ("format invalide"): Exit For
Next

La casse peut être quelconque.

A+

 

[news]

Re : format textbox

Bonjour à tous du forum,

merci job75, Lii, Claudy, Pierrot93, Paritec pour réponses et vos différentes astuces,

bon dimanche,

news