Code de comparaison de caractères

[Benoit]

Bonjour tout le monde,

Voici mon problème :

Je veux utiliser un comboBox pour offrir une liste de choix aux utilisateurs. Par contre, je désire laisser la propriété Style à : fmStyleDropDownCombo au lieu de fmStyleDropDownList. La première option est plus "user friendly" dans une longue liste que la deuxième.

Le combobox s'alimente donc à une liste de nom déjà saisie dans une feuille Excel.

Quand l'utilisateur a terminé sa saisie, je veux comparer la valeur du combobox aux valeurs de la liste de noms. Si le nom y est, tout est OK, sinon, un message s'affichera pour dire que la valeur entrée n'appartient pas à la liste.

Mon problème est donc le bout de code qui me permettrait de facilement comparer la valeur du combobox à toutes les valeurs de la liste en respectant la case...

Merci de votre aide....

 

[Zon]

Salut,

Une fonction du style

Function Saisiecombo(Combo as MSFORMS.combobx) as boolean
dim I&
with combo
for i=0 to ubound(.list)
if .value=.list(i) then
saisiecombo=true
exit for
end if
next i
end with
end function

if not saisiecombo(lenomdetacombo) then msgbox "Veuillez sélectionner un élément dans la liste SVP".



A+++

 

[CHti160]

Salut "Benoit","Zon",Le "FORUM"
je me permet dans ce fil de poser une question concernant la déclaration de la variable "I" ,j'ai deja remarqué cette facon de faire ,mais ne la connais pas
la question est à quoi sert le "&" dans Dim I&
encore excuse
merci d'avance
A+++
Jean Marie

 

[Arnaud]

salut,

si je ne me trompe, cela correspond a la déclaration d'un Long.