[XL-2007] recuperation des terminaison d'un mots dans le userform

[jeph.net]

Hi,j'aimerais demander l'aide,je suis entrain de programmer un excel userform avec VB, je veux programmer un textbox pour y inserer de mot avec terminaison "tion" si l'utilisateur se tromper par hasard et y inserer le mot ne terminant pas par "tion", le message d'erreur va apparaitre. je voulais demander a quelqu'un l'aide parce que je comprends pas comment je peux le faire et en tout cas j'en ai besoin.Merci de votre aide.Joseph

[jfontaine]

Bonjour,

En utilisant l'évenement exit, tu peux empecher la sortie de la textbox si les 4 derniers caractères sont différents de "tion"

Code :

1
2
3
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Right(TextBox1.Text, 4) <> "tion" Then Cancel = True
End Sub

[jeph.net]

bonjouor, j'ai voulue coder le textbox pour empecher l'entre de mots qui ne terminent par "tion" ou "er" en faisant comme ca:

Code :

1
2
3
4
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Right(TextBox1.Text, 4) <> "tion"  Or Right(TextBox1.Text, 2) <> "er"  Then Cancel=True
End Sub

mais quand je fais ainsi rien ne marche seulement quand je fais un seul cas comme ceci:

Code :

1
2
3
4
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Right(TextBox1.Text, 4) <> "tion"   Then Cancel=True
End Sub

est-ce quelqu'un peut m'aider et montre moi comment je peux gerer ces deux cas pour le meme textbox.

merci d'avance.

[jfontaine]

Comme cela ca fonctionne (en Inversant le raisonnement)

Code :

1
2
3
4
5
6
7
8
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
 
If Right(TextBox1.Text, 4) = "tion" Or Right(TextBox1.Text, 2) = "er" Then
    Cancel = False
End If
 
End Sub