controler la presence d'une lettre dans une textbox

K

Kobaya

XLDnaute Occasionnel

• 6 Juillet 2006

• #2

Re : controler la presence d'une lettre dans une textbox

salut,

Valeur = TextBox1.Value
If Instr(1,Ucase(Valeur),"T") then
' action s'il y a un T dans le textbox
End If

 

Vote positif 0 Vote négatif

N

Nicko

XLDnaute Occasionnel

• 6 Juillet 2006

• #3

Re : controler la presence d'une lettre dans une textbox

Merci Kobaya !

Ca c'est du rapide.

Peux tu me dire, pendant qu'on y est, à quoi correspod la commande Instr ?

 

Vote positif 0 Vote négatif

K

Kobaya

XLDnaute Occasionnel

• 6 Juillet 2006

• #4

Re : controler la presence d'une lettre dans une textbox

Instr(1,Ucase(Valeur),"T")
renvoie la position de la lettre T dans la variable Valeur, la recherche débutant au caractère #1 de Valeur (premier argument de la fonction)
renvoie 0 si T n'apparati pas dans Valeur

regarde l'aide VBA, il y a un 3e argument intéressant qui permet de faire, ou pas, la différence entre majuscule et minuscule.

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 6 Juillet 2006

• #5

Re : controler la presence d'une lettre dans une textbox

Bonjour kobaya et nicko,

Je m'intéresse à cette uestion et moi je voudrais faire cela:


Date0 = TextBox7.Value
If Instr(1,Ucase(Date0),"02") then
Sheets("Février").select
End If

en fin de compte j'ai un textbox7 contenant une date et je voudrais en regardant le mois:
24/02/06
dire, voilà je vais dans ma feuille Février
Est ce que ça vous parait correct?

Merci d'avance

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 6 Juillet 2006

• #6

Re : controler la presence d'une lettre dans une textbox

Je vous confirme ça fonctionne!!

Merci @+

 

Vote positif 0 Vote négatif

K

Kobaya

XLDnaute Occasionnel

• 6 Juillet 2006

• #7

Re : controler la presence d'une lettre dans une textbox

salut rudymagny,

pour être complet :

Code:

Sub MoisDate()
    Dim strDate As String
    Dim strMois As String
    
    strDate = InputBox("Entrez la date", "Saisie d'une date", Date)
    If IsDate(strDate) Then
        strMois = Choose(Month(CDate(strDate)), "janvier", "février", "mars", "avril", "mai", _
            "juin,", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
        
        Sheets(strMois).Select
    End If
End Sub

 

Vote positif 0 Vote négatif