format de caractères dans textbox

[news]

Bonjour à tous du forum,

Dans un Userform, je ne sais pas comment définir que si les 4 caractères ("légu" ou "bièr") se trouvent dans le text mis dans la Textbox, alors renvoi d'une Msgbox("format invalide").

p.ex.: "les tomates et oignons sont des légumes" ou "il y a beaucoup de sortes de bières", >> Msgbox(format invalide")

J'utilise le vba code suivant, mais il y du bug ou ne résoud pas complètement:

If Mid(TextBox2.Value, 1, 4) = "légu" Or Mid(TextBox2.Value, 1, 4) = "bièr"
Or Mid(TextBox2.Value, 2, 4) = "légu" Or Mid(TextBox2.Value, 2, 4) = "bièr" Then Msgbox("format invalide")
Elseif Find(TextBox2.Value) = "légu" Or Find(TextBox2.Value) = "bièr" Then Msgbox("format invalide")

Comment résoudre ?

news

 

[Paritec]

Re : format de caractères dans textbox

Bonjour News le forum
dans ta condition If tu as deux then c'est au moins 1 de trop!!!
a+
Papou

 

[Paritec]

Re : format de caractères dans textbox

Re News le forum,
t'as pas un bout de fichier ??
a+
Papou

EDIT: bonjour Job, merci pour ta réponse a+

 

[job75]

Re : format de caractères dans textbox

Bonjour news, Papou, le forum,

Ce n'est pas un problème de Then Papou

Find n'existe pas tout seul en VBA.

Si vous voulez l'équivalent de TROUVE dans une feuille de calcul (qui respecte la casse), il faut écrire (2 arguments) :

If IsNumeric([COLOR="Red"]Application.[/COLOR]Find("légu", TextBox2.Value)) Or IsNumeric([COLOR="Red"]Application.Find[/COLOR]("bièr", TextBox2.Value)) Then MsgBox ("format invalide")

ou plus simplement :

If TextBox2 Like "*légu*" Or TextBox2 Like "*bièr*" Then MsgBox ("format invalide")

Si la casse n'a pas d'importance (équivalent de CHERCHE) :

If IsNumeric(Application.[COLOR="Red"]Search[/COLOR]("légu", TextBox2.Value)) Or IsNumeric(Application.[COLOR="Red"]Search[/COLOR]("bièr", TextBox2.Value)) Then MsgBox ("format invalide")

Edit : salut Staple et pierrejean OK pour InStr (qui respecte la casse).

A+

 

[Staple1600]

Re : format de caractères dans textbox

Bonjour



A tester

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim s$
s = TextBox1.Text
If InStr(s, "légu") Or InStr(s, "bièr") Then
MsgBox "format invalide"
End If
End Sub

 

[pierrejean]

Re : format de caractères dans textbox

bonjour a tous

A tester

If InStr(TextBox2, "légu") <> 0 Or InStr(TextBox1, "biè") <> 0 Then
  MsgBox ("format invalide")
End If

 

[Staple1600]

Re : format de caractères dans textbox

Bonjour Pierrejean


Même inspiration dans la même minute ( ou presque )

 

[news]

Re : format de caractères dans textbox

Bonjour à tous du forum,

merci Staple1600, pierrejean, job75, Paritec pour réponses

j'ai testé les différentes propositons et ils foncgtionnent bien,

bon dimanche encore,

news

 

[news]

Re : format de caractères dans textbox

Bonjour à tous du forum,

merci Staple1600, pierrejean, job75, Paritec pour réponses

j'ai testé les différentes propositions et ils fonctionnent bien,

bon dimanche encore,

news