format de caractères dans textbox

Paritec

XLDnaute Barbatruc

• 11 Octobre 2009

• #2

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 11 Octobre 2009

• #3

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+

 

Dernière édition: 11 Octobre 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Octobre 2009

• #4

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) :

Code:

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 :

Code:

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) :

Code:

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+

 

Dernière édition: 11 Octobre 2009

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Octobre 2009

• #5

Re : format de caractères dans textbox

Bonjour



A tester

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Octobre 2009

• #6

Re : format de caractères dans textbox

bonjour a tous

A tester

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Octobre 2009

• #7

Re : format de caractères dans textbox

Bonjour Pierrejean


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

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 11 Octobre 2009

• #8

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

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 11 Octobre 2009

• #9

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

 

Vote positif 0 Vote négatif