Discussion :

[wabo67]

Bonjour,

Ca a l'air facile mais je reste bloqué sur cette fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'CONDITION M
If "*" & M & "*" = UserForm1.TextBox4.Value Then

Par contre la condition If reste toujours juste.

Je veux juste savoir s'il y a un "M" dans le UserForm1.TextBox4

Merci de votre aide

[babaothe]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if instr(UserForm1.TextBox4.Value, M) then ....

Il faut bien sûr que M soit une variable ou une constante accessible et contienne une valeur

edit :
je suis cependant troublé par le fait que tu parles ici de constante et là de :

Je veux juste savoir s'il y a un "M" dans le UserForm1.TextBox4

ce qui n'est pas la même chose !

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If InStr(UserForm1.TextBox4.Value, "M") > 0 Then
'condition si la Textbox contient un "M" majuscule
End If

[Pierre Fauconnier]

Salut.

Perso, je préfère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

InStr(1, UserForm1.TextBox4.Value, "M", vbBinaryCompare)

car si la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option compare text

est en tête de module, il n'y aura pas de différenciation de casse.