Reconnaitre un Mot

Bonjour

Essaye ceci :

=SI(ESTERREUR(CHERCHE("vichy";A3));SI(ESTERREUR(CHERCHE("montluçon";A3));"";"Zone 2");"Zone 1")

Je ne doute pas que les formulistes vont simplifier cette formule moche.

Salut
Hervé

Salut,
Voici une propoition de code :
Dim m_rech_mot as long 'variable de positiond du mot recherche

m_rech_mot=Instr(1,activecell.value,"vichy",vbTextCompare)
if m_rech_mot<>0 then
Msgbox("vichy à été trouver")
end if

Attention , cette méthode tiens compte de la case (Minuscule,Majuscule)
Pour solutionner cela :

m_rech_mot=Instr(1,UCase(activecell.value),"VICHY",vbTextCompare)

le contenue de la séllule est automatiquement convertie en Majuscule.

explication :

Instr

cette fonction recherche la position d'un caractère ou d'une chaine de caractère et renvoie ça position par rapport à cette même chaine

Msgbox

renvoie un message dans une petit fenêtre

Voila

Bon courage... et percévers VBA peu être trés utile

Wilfried ;-)

Salut herve

pas besoin de l'amelioner elle marche tres bien

merci pour cette formule
@+
____________________________________________________________
Salut wiefried
je te remercie de ton code, mais je ny comprends rien en vba

pour moi la formule d'herve me convient mieux
@+