Bonjour,
Je voudrais contrôler si un texte est présent dans une chexbox par rapport
à une liste, si le texte ne figure pas dans la liste message d'erreur.
j'ai le début de ma formule mais je ne sais pas comment indiquer le controle avec la liste :
Private Sub DDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Mid(DDate.Text, 4, 4) <> Liste Then
MsgBox "le format est incorrect.": Exit Sub
End If
End Sub
D'avance merci pour votre aide
Je voudrais contrôler si un texte est présent dans une chexbox par rapport
à une liste, si le texte ne figure pas dans la liste message d'erreur.
j'ai le début de ma formule mais je ne sais pas comment indiquer le controle avec la liste :
Private Sub DDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Mid(DDate.Text, 4, 4) <> Liste Then
MsgBox "le format est incorrect.": Exit Sub
End If
End Sub
D'avance merci pour votre aide