[vba excel] chercher un mot dans une cellule

Bonsoir,:)

ma problématique est la suivante: je souhaite trouver un mot précis dans une cellule qui contient plusieurs mots, (par exemple : trouver le mot "ESPACE" dans une cellule contenant "RENAULT ESPACE RXE") :roll: je ne sais pas si il existe un fonction répondant à mes attentes dans vba ? Si cette fonction n'existe pas, quelqu'un pourrait-il m'indiquer la démarche à suivre pour en créer une ?

Merci d'avance pour vos futures réponses.

MrYoYo

bonsoir,

Voici un élément de réponse

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

motàchercher = InputBox("que cherchez vous ?") tailledemot = Len(motàchercher) 'ici il faut commencer une boucle for ou while où tu souhaites chercher   Celloùchercher = Cells(ligne, colonne) ' bien sûr il faut avant paramétrer ligne et colonne !   For X = 1 To Len(CellàTester) Car = Mid(Celloùchercher, X, tailledemot) If Car = motàchercher Then ' ce que tu veux End If Next X 'ici il faut fermer la boucle

---

fast

désolé une erreur c'est glissée il faut remplacer

Code:

---

1 2 3

CellàTester

---

par

Code:

---

1 2	Celloùchercher

---

fast

voir InStr.. :f1: ou la : http://silkyroad.developpez.com/VBA/...racteres/#LI-E

Merci pour cette réponse très rapide,

je viens d'adapter ta solution à mon problème, ça marche nickel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

For j = 1 To ActiveWindow.RangeSelection.Count nomachanger = ActiveWindow.RangeSelection.Cells(j, 1).Value MsgBox nomachanger Sheets(1).Select Range("a1").Select tailledemot = Len(nomachanger) Do While ActiveCell.Value <> "" For X = 1 To Len(ActiveCell) Car = Mid(ActiveCell, X, tailledemot) If Car = nomachanger Then MsgBox nomachanger & " trouvé" End If Next X ActiveCell.Offset(1, 0).Select Loop Sheets(2).Select   Next j

---

Merci beaucoup fast.

bonne nuit.

Bonjour,

Je me permet de compléter ce topic car je trouve que l'élément de réponse fournit est compliqué.

Je fournis donc une autre réponse, bien plus simple.

Code:

---

1 2 3 4

If Range("A1").Value Like "*" & Range("A2").Value & "*" Then MsgBox "Le mot " & Cells(2, 1).Value & " existe dans la cellule A1." End If

---

Ce code recherche si le mot dans la cellule A2 existe dans la chaîne de mot de la cellule A1.

Bonne journée et bon courage aux codeurs!

catsur

Et Instr ? Ça sert à quoi ? 8O

Vu la façon dont la question est posé je suppose que ça fait la même chose..

En fait je suis tombé sur ce topic un peu par hasard et quand j'ai vu la longueur de la réponse je me suis dit que j'allais poser un exemple plus court, pour le prochain qui aura besoin de faire ce type de code...

Voilà c'est tout après celui qui veut utiliser Instr pas de problème je m'en fou moi... D'ailleurs je ne la connais même pas cette fonction...

A plus

Hello,
Ce n'est pas à toi que s'adressait ma question, catsur, d'ailleurs ta solution n'est pas moins bonne qu'avec instr, ce sont les autres propositions qui m'ont, comme toi, fait réagir.
Une explication sur Instr ? Non ? Ça ne fait rien, je la donne tout de même pour pas qu'il y en ait qui meurent idiot :aie:
Instr sert à trouver un string cherché dans un string où chercher, et à fournir la position du string trouvé dans le string où chercher.
Bref, si Instr <> 0 c'est que le premier string est bien dans le second. Ce qui donnerait

Code:

---

1 2	If Instr(Range("A1").Value, Range("A2").Value)<> 0 then _ MsgBox "Le mot " & Cells(2, 1).Value & " existe dans la cellule A1."

---

Bon après-midi

Merci pour la réponse!!

Je ne connaissais pas!

A bientôt!