Discussion :

[Heathcliff_1]

Bonjour,

Voici le filtre que j'essaie de mettre dans ma requête et qui cause problème:

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
Filtre = ""
FiltreVide = " 1 = 0 "
iCell = 2
If Sheets("Main").Cells(2, 1).Value <> "" Then
    While Feuil1.Cells(iCell, 1).Value <> ""
        Liste_items = Liste_items & "'" & Feuil1.Cells(iCell, 1).Value & "%" & "'"
        If Feuil1.Cells(iCell + 1, 1).Value <> "" Then
            Liste_items = Liste_items & " OR numg LIKE "
        End If
        iCell = iCell + 1
    Wend
    Filtre = Filtre & " (numg LIKE " & Liste_items & ") and RIGHT(tlab,1) IN ('A','B','C') "
Else:
    Filtre = FiltreVide
End If
 
Query = "SELECT * FROM Table Where " & Filtre

Quand j'exécute ma macro, j'obtiens l'erreur:

"Erreur d'exécution 1004: Erreur définie par l'application ou pas l'objet".

A noter que le problème ne survient que lorsque le nombre des numg est supérieur 107, si non, le filtre est bien pris en compte et la requête est exécutée sans problème, et je ne comprends pas pourquoi.

Merci pour votre assistance.

Cordialement;

[Heathcliff_1]

Autrement dit, y a t-il un autre moyen pour combiner LIKE et IN autre que de répéter numg LIKE .. OR numg LIKE.... ? Car apparemment il y a une limite à ne pas dépasser pour cette méthode.