Question sur la fonction find : mot entier seulement

Version imprimable

27/03/2013, 21h34
melouze

Question sur la fonction find : mot entier seulement

Bonjour à tous :)

Je vous explique mon problème :

J'ai des requêtes SQL enregistrées dans des cellules de mon fichier Excel.

Je veux extraire de ces requêtes les différents nom de tables, j'utilise donc la fonction find qui balaie ma requête et qui utilise une liste de table pour comparer et retourner les tables effectivement trouvées dans la requête.

J'utilise donc un .Find(What:=Worksheets("Tables").Cells(j, 2).Value, LookAt:=xlPart)

Lorsque le nom d'une table existante dans mon onglet Tables est trouvé dans la requête, le nom est conservé, celà fonctionne bien.

Le problème est que est j'ai des noms de tables qui en contiennent d'autres, exemple :

Table 1 : T_AAA_BBB_CCC
Table 2 : T_AAA_BBB

Du coup admettons que dans ma requête il y ait la table T_AAA_BBB_CCC mais pas la T_AAA_BBB, quand mon code va rechercher la chaine "T_AAA_BBB" (vu qu'elle est dans la liste des tables existantes, qui est fixe), il va quand même trouver une correspondance, et me dire a tord que T_AAA_BBB est utilisée dans la requête.

Je pensais qu'un LookAt:=xlWhole pouvait m'aider mais j'ai l'impression que non, il renvoie "trouvé" que si la cellule contenant la requête ne contient que la chaîne recherchée et rien d'autre, ce qui n'est pas le cas.

Je cherche donc un moyen pour que seule T_AAA_BBB_CCC soit retournée, en vain :aie:

Si vous avez des idées, elles sont plus que bienvenues :D

Merci d'avance,

Essaies de tester le contenu de la cellule par la suite avec quelque chose du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub evdsf()
    Dim c As Range
    Dim s As String
    Dim r1 As String
    Dim fnd As Boolean
    Dim rng As Range
'...
 
    Set rng = LaPlageOuRechercher
 
 
    With rng
        s = Worksheets("Tables").Cells(j, 2).Value
        fnd = False
        Set c = .Find(s, LookAt:=xlPart)
        If Not c Is Nothing Then
            If c.Value <> s Then
                r1 = c.Address
                Do
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> r1 And c.Value <> s
                If c.Value = s Then fnd = True
            Else
                fnd = True
            End If
        End If
    End With
 
    If fnd = True Then
        '...
 
 
End Sub

EDIT :

Remplacer

Code:

Set c = .Find(s, LookAt:=xlPart)

par

Code:

Set c = .Find(s, LookAt:=xWhole)

28/03/2013, 06h41
sophieceuzin

Bonjour,

Dans Find, Il faut spécifier LookAt:=xlWhole

Ceuzin
28/03/2013, 09h44
melouze

Merci à vous 2 ;)

Sophieceuzin, si j'ai bien compris le xlWhole trouve ma chaîne seulement si la cellule est composée uniquement de cette chaîne, ce qui n'est pas le cas :(

Alpha, je me penche sur ta solution ;)

Hésitez pas si vous avez d'autres pistes !