Discussion :

[Ratus888]

Bonjour,

Je souhaiterai pouvoir faire une recherche d'une partie d'un mot exemple "requete"
parmi une liste de mot dans une même cellule.
le petit problème c'est que "toto" peut figurer plusieurs fois dans la cellule.

exemple de cellule:
requete21 tatatt requete23 tty iuy uibiii
j'aimerai qu'il détecte deux fois le mot "requete"

en fait , j'ai une feuille j'ai un tableau qui regroupe une liste de requêtes (en ordonnée) et la liste des feuilles où l'on peut trouver une requête figurant dans le tableau. Ainsi faire une croix lorsqu'une requête (requete21, requete22,...) est trouvée.

F

Code :

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

1
2
3
4
5
6
7
8
or IndiceTab = 0 To 268 '
'Comparer les requêtes présentes dans une cellule par rapport aux requêtes du tableau à compléter
 
 If InStr(1, InputTrouveString, CompareDataString(IndiceTab)) = 1 Then
          OutputSheet.Cells(IndiceTab + 5, IndiceFeuil + 2 - position_onglet_matrice).Value = "V"
 End If
 
 Next IndiceTab

Ce programme fonctionne bien si dans la liste de mots, d'une même cellule, il y a au moins une fois le mot requete.
Mais il ne marche pas si il y a plus d'une fois le mot requete, c-a-d (voir exemple de liste ci-dessus) qu'il va trouver seulement "requete21" mais pas "requete23".

[Philippe Tulliez]

Bonjour,
Curieux, il m'avait semblé avoir répondu dans un autre post à la même question (déplacement de sujet ?).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub RechercheMot
  Dim txt As String, findStr As String
  txt = "requete21 tatatt requete23 tty iuy uibiii"
  findStr = "requete"
  Debug.Print Len(txt)
  'txt = Replace(txt, "requete", "")
  If InStr(txt, findStr) Then
    MsgBox "J'ai trouvé " & (Len(txt) - Len(Replace(txt, "requete", ""))) / Len(findStr) & " fois le mot " & findStr
  Else
    MsgBox "Je n'ai pas trouvé le mot " & findStr
  End If
End sub

[Ratus888]

bonjour,
ton code ne règle pas, je m'exlique:
si j'ai requete2 et requete20, et que je recherche requete2, le code trouvera 2 fois la présence requete2 mais moi je souhaite qu'il la trouve 1 fois

[oOVaveOo]

Bonjour,
Tu n'as qu'à modifier ça en mettant un espace après le 2 :

Code :

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

findStr = "requete2 "

[Philippe Tulliez]

bonjour,
ton code ne règle pas, je m'exlique:
si j'ai requete2 et requete20, et que je recherche requete2, le code trouvera 2 fois la présence requete2 mais moi je souhaite qu'il la trouve 1 fois

Excuse moi, mais ou bien je lis mal ou tu t'es mal exprimé.
Il me semble que dans ta question initiale tu souhaitais justement le trouver 2 fois Non ?

exemple de cellule:
requete21 tatatt requete23 tty iuy uibiii
j'aimerai qu'il détecte deux fois le mot "requete"