Discussion :

[MrYoYo]

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

[fast&furious]

bonsoir,

Voici un élément de réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fast&furious]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
    CellàTester

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Celloùchercher

fast

[SfJ5Rpw8]

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

[MrYoYo]

Merci pour cette réponse très rapide,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[catsur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Et Instr ? Ça sert à quoi ?

[catsur]

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

[ouskel'n'or]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[catsur]

Merci pour la réponse!!

Je ne connaissais pas!

A bientôt!