Discussion :

[patmar83]

bonjour,

J'ai un champ LIBELLE1 sur lequel je souhaite effectuer un test , à savoir détecter dans cette chaine de caractère la présence ou nom de certains mots
EX: Ma chaine de caractère contient-elle les mot "plan" ou "colle"

Quelle est la manière façon de résoudre ce problème

merci

[marsouin_89]

Bonsoir,

Interesse toi à la fonction Split.
Cela devrait résoudre ton problème.

Cordialement

Christophe

[pc75]

Bonjour,

A mon avis, la fonction InStr() est la plus adaptée.

[patmar83]

j'ai effectivement essayé avec InStr, cela parait fonctionner mais uniquement lorsque la chaine de caractère se trouve en première position
Lorsqu'elle se trouve au milieu d'une phrase cela ne fonctionne plus

[pc75]

Re,

Code :

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

1
2
3
4
 
if InStr(LIBELLE, "plan") > 0 or if InStr(LIBELLE, "colle") > 0 then
msgbox "Trouvé"
.....

[patmar83]

J'avais mis le test = 1, donc je pense qu'il ne devait chercher le mot que sur la première position

[marsouin_89]

Bonsoir,

Essaie ceci :

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
20
Sub DoesItemExist(sList As String, _
                       sDelimiter As String, _
                       sItem As String) _
 
'sList = ta chaîne de texte
'sDelimiter = le délimiteur de chaîne (pour toi à priori c'est l'espace)
'sItem = le mot que tu recherche
 
   Dim sItems() As String
 
   sItems = Split(sList, sDelimiter)
 
   Dim i As Integer
   For i = LBound(sItems) To UBound(sItems)
      If i=sItem Then
           MsggBox i
      End If
   Next i
 
End Sub

Exemple pour appeler le code :

Code :

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

Call DoesItemExist("Je recherche ce mot"," ","mot")

Cordialement

Christophe

[patmar83]

merci
je vais essayer ta proposition