Control Texte compris dans Chexbox par rapport liste

Lisa · 18 Décembre 2007

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 · 18 Décembre 2007

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 · 18 Décembre 2007

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 · 18 Décembre 2007

Re : Control Texte compris dans Chexbox par rapport liste

re

A tester

Code:

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 · 18 Décembre 2007

Re : Control Texte compris dans Chexbox par rapport liste

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

Control Texte compris dans Chexbox par rapport liste

Lisa

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Lisa

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Lisa

XLDnaute Nouveau

Discussions similaires