Control Texte compris dans Chexbox par rapport liste

[Lisa]

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

 

[pierrejean]

Re : Control Texte compris dans Chexbox par rapport liste

bonjour Lisa

qu'est-ce que Liste ?

un string ?
une plage nommée ?
un tableau ?
.....?

 

[Lisa]

Re : Control Texte compris dans Chexbox par rapport liste

Bonjour,

C'est une plage de donnée qui est sur une feuille cachée et à laquelle j'ai donnée le nom "CONTROL"

D'avance merci
Lisa

 

[pierrejean]

Re : Control Texte compris dans Chexbox par rapport liste

re

A tester

Private Sub DDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim trouve as Boolean
for each cel in Range("CONTROL")
  If Mid(DDate.Text, 4, 4) = [B]cel [/B]Then trouve=true
next cel
If trouve=False then  MsgBox "le format est incorrect.": Exit Sub
 
End Sub

 

[Lisa]

Re : Control Texte compris dans Chexbox par rapport liste

Merci beaucoup pour votre aide, cela fonctionne à merveille
Bonne journée
Lisa