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