format textbox

Paritec

XLDnaute Barbatruc

• 11 Octobre 2009

• #2

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 🙄

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 11 Octobre 2009

• #3

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

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 11 Octobre 2009

• #4

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

 

Pièces jointes

• textbox,.xls

  50 KB · Affichages: 44
• textbox,.xls

  50 KB · Affichages: 47
• textbox,.xls

  50 KB · Affichages: 48

Dernière édition: 11 Octobre 2009

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 11 Octobre 2009

• #5

Re : format textbox

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 11 Octobre 2009

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2009

• #7

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
@+

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 11 Octobre 2009

• #8

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

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 11 Octobre 2009

• #9

Re : format textbox

Bonjour

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

 

Pièces jointes

• TextePrésentOuAbsent(USF).zip

  9.1 KB · Affichages: 26

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Octobre 2009

• #10

Re : format textbox

Bonjour le fil,

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

Code:

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+

 

Dernière édition: 11 Octobre 2009

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 11 Octobre 2009

• #11

Re : format textbox

Bonjour à tous du forum,

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

bon dimanche,

news

 

Vote positif 0 Vote négatif