Validation usf sans msg d'erreur

Bonjour à tous,

Je souhaite valider 2 textbox sur mon USF. Le premier textbox doit contenir dans le texte TM et l'autre textbox T0. J'ai donc créé ce code:

'Je ne permets pas une valeur autre que TM. 

Private Sub TextBox_TM_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If InStr(1, TextBox_TM.Value, "TM", vbTextCompare) = 0 Then
    MsgBox "LA VALEUR RENSEIGNÉE NE CORRESPOND PAS A UNE TM!", vbCritical, "ERREUR:"
    TextBox_TM.Value = ""
    Cancel = True

  End If
End Sub    

Pour le deuxième textbox j'ai exactement le même code, situé en dessous mais, cette fois, qui indique T0:

'Je ne permets pas une valeur autre que T0. 

Private Sub TextBox_TM_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If InStr(1, TextBox_OF.Value, "T0", vbTextCompare) = 0 Then
    MsgBox "LA VALEUR RENSEIGNÉE NE CORRESPOND PAS A UN T0!", vbCritical, "ERREUR:"
    TextBox_OF.Value = ""
    Cancel = True

  End If
End Sub 

Ca donne donc cela:

'Je ne permets pas une valeur autre que TM.

Private Sub TextBox_TM_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If InStr(1, TextBox_TM.Value, "TM", vbTextCompare) = 0 Then
    MsgBox "LA VALEUR RENSEIGNÉE NE CORRESPOND PAS A UNE TM!", vbCritical, "ERREUR:"
    TextBox_TM.Value = ""
    Cancel = True

  End If
End Sub

'Je ne permets pas une valeur autre qu'un OF.

Private Sub TextBox_OF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If InStr(1, TextBox_OF.Value, "T0", vbTextCompare) = 0 Then
    MsgBox "LA VALEUR RENSEIGNÉE NE CORRESPOND PAS A UN OF!", vbCritical, "ERREUR:"
    TextBox_OF.Value = ""
    Cancel = True

  End If
End Sub

Lorsque je passe de la textbox TM via tabulation à la textbox OF il n'y a bien le message d'erreur qui apparait si le texte ne contient pas "TM". Par contre, sur la deuxième textbox, quand je fais TAB pour aller sur le bouton VALIDER il n'y a pas de message d'erreur qui apparait si le texte contient pas T0. MAIS, si je reviens sur la première textbox, là oui j'ai le MsgBox qui s'affiche....

Je ne comprends pas pourquoi ça ne marche pas.

Merci pour votre aide.

Patrick.

Bonjour,

Je pense que tu devrais fournir un exemple de ton fichier, si tu veux obtenir une réponse.

Crdlt