Discussion :

[melouze]

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

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

Merci d'avance,

[AlphaScorpi]

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

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

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

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

par

Code :

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

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

[sophieceuzin]

Bonjour,

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

Ceuzin

[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 !