Discussion :

[electrosat03]

Salut, passé un bon W-E?

Voilà, j'aimerais savoir comment par une requête en VBA, faire une recherche sur un champ texte, je m'explique :
J'ai une variable qui comporte un texte avec plusieurs apostrophe et dont le nombre peut varier, et j'aimerais faire une recherche dans une table pour retrouver ce texte mot pour mot.

je connais replace, mais comment faire puisqu'on ne connait pas le nombre d'apostrophe que le texte peut contenir???

Merci de votre aide.
A+

[Tofalu]

Etape 1 : Remplacer les apostrophes par des espaces avec Replace
Etape 2 : Spliter la chaine pour en extraire un tableau de mots (Fonction Split)
Etape 3 : Construire une requête en parourant le tableau obtenu et en combinant la liste des critères avec OR

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
21
22
Sub test()
Dim strSQL As String, strChaine As String, tstrT() As String
Dim i As Integer
'Début de la requete
strSQL = "SELECT * FROM Matable"
'Chaine à traiter
strChaine = "Salut m'sieur"
'Recupère la liste des mots
tstrT = Split(Replace(strChaine, "'", " "), " ")
'Parcours le tableau et construit la requete
For i = 0 To UBound(tstrT)
    'Si premier critere alors ajoute le where
    If i = 0 Then
        strSQL = strSQL & " WHERE "
    Else
        strSQL = strSQL & " OR "
    End If
    'Ajoute le critere
    strSQL = strSQL & " MonChamp LIKE *" & tstrT(i) & "*"
Next i
MsgBox strSQL
End Sub

[electrosat03]

Salut tofalu,

Merci pour ta réponse, je vais essayer ça se soir car je vais au boulot.

Merci A+