Conditions de saisie dans textbox

[Manu]

Bonjour à tous,

Comment puis-je dans un textbox mettre en place une conditions de saisie, telle que la suivante :

Si en sortant (exit) de mon contrôle la valeur saisie est différente de
B ou C ou D ou E, alors j'affiche un message.

Merci à vous.

A +

 

[excalibur]

bonjour manu le forum essaie ce code Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> 'a' Or TextBox6.Value <> 'b' Or TextBox6.Value <> 'c' Then 'ect..
MsgBox 'attention'
End If
End Sub'salutations

 

[excalibur]

correction j ai mis 2 fois textbox6 au lieu de textbox1 enfin dans l hypo que ta textbox s appelle textbox1 resalue

 

[Manu]

Salut merci pour ta réponse,

J'avais essayé cette possibilité mais cela ne fonctionne pas et dès que je tape une des lettres (B,C,etc...) il m'affiche quand même le message.

voici mon code

Private Sub TextBox24_exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox24.Value <> 'b' Or TextBox24.Value <> 'c' Or TextBox24.Value <> 'ci' Or TextBox24.Value <> 'cl' Or TextBox24.Value <> 'd' Or TextBox24.Value <> 'e' Then
MsgBox 'Cette catégorie de permis n'est pas valide, merci de vérifier.', vbCritical, 'Erreur !'

End If

End Sub

Si quelqu'un a une solution. Merci

 

[excalibur]

resalut manu le forum essaie comme cela j ai teste ca marche Option Explicit
Private Sub TextBox24_exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox24.Value = 'b' Or TextBox24.Value = 'c' Or TextBox24.Value = 'ci' Or TextBox24.Value = 'cl' Or TextBox24.Value = 'd' Or TextBox24.Value = 'e' Then
Exit Sub
Else
MsgBox 'Cette catégorie de permis n'est pas valide, merci de vérifier.', vbCritical, 'Erreur !'
End If
End Sub' salutations

 

[Manu]

Re,

Ca marche nickel, merci à toi.

A +