Reconnaitre un Mot

[jchrist]

Bonjour les Exlcien ou Formuliens

J'ai vu un post il y a qq jour traitant de la reconnaissance de mot.
seulement voila je ne le retrouve plus sur le forum

je voudrais que par exemple si dans la cellule precedente il est affiche
"vichy centre", ou "montlucon est" la cellule reconnaisse le mot "vichy" et affiche "ZONE 1" ou reconnaisse le mot"montlucon" et affiche "zone 2"

je sais que pour vous c'est du gateau , mais moi je suis debutant

et je 'excuse de vous ennuyer pour des pecadilles

merci rt @+

 

[Hervé]

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é

 

[Wilfried]

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 ;-)

 

[jchrist]

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
@+