controler la presence d'une lettre dans une textbox

[Nicko]

Bonjour à tous,

J'aimerais savoir s'il est possible de verifier la presence d'une lettre dans une textbox ?

Je m'explique:

J'ai une textbox dans laquelle je rentre un code qui peut commencer soit par T, A ou C. (exemple C06075)

De cette lettre depend l'action qui va etre executer.
T > action 1
A > action 2
C > action 3

Si vous avez une solution !

 

[Kobaya]

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

 

[Nicko]

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 ?

 

[Kobaya]

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.

 

[rudymagny]

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

 

[rudymagny]

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

Je vous confirme ça fonctionne!!

Merci @+

 

[Kobaya]

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

salut rudymagny,

pour être complet :

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