Discussion :

[ArnaudA]

Bonjour,
J'ai eu beau chercher mais je n'arrive pas à régler mon problème.
J'espère que l'un(e) de vous pourra m'aider.

Je met en place une base de données pour remplacer de vieux fichiers Excel.
Une entrée correspond à un poste, avec des infos associées à ce poste.


J'ai besoin de compiler ces données pour pouvoir les filtrer par date (début et/ou fin) et/ou par produit et/ou par granulo et/ou par campagne.

J'ai créé une requête pour récupérer ces données et pouvoir les filtrer.
J'ai créé un formulaire sur lequel j'ai ajouté mes filtres.


Les filtres Date début et Date fin semblent bien fonctionner (à vérifier avec les autres filtres)
Cependant, je n'arrive pas à filtrer les produits.
L'idéal serait que je n'ai qu'un seul champ "filtre produit" qui s'applique aux champs "produit_1" & "produit_2" & "produit_3" & "produit_4".

Avez-vous une idée de ce qu'il faut que je fasse pour arriver à filtrer les quatre champs produit pour chaque poste ?

Merci d'avance pour votre aide.

[Zekraoui_Jakani]

Vous pouvez vous inspirer de 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
21
22
23
24
25
26
Sub filtrerProduits()
 
    Dim critere1, critere2, critere3, critere4 As String
    Dim CritereX, critereFinal As String
    CritereX = ""
    Dim nbrCriteres As Integer
    nbrCriteres = 4
 
    critere1 = "aaa"    'IIf(IsNull(Me.produit_1), "", "[produit] like '" & Me.produit_1 & "'")
    critere2 = "bbb"    'IIf(IsNull(Me.produit_2), "", "[produit] like '" & Me.produit_2 & "'")
    critere3 = "ccc"    'IIf(IsNull(Me.produit_3), "", "[produit] like '" & Me.produit_3 & "'")
    critere4 = ""    'IIf(IsNull(Me.produit_4), "", "[produit] like '" & Me.produit_4 & "'")
 
    For J = 1 To nbrCriteres
        CritereX = Choose(J, critere1, critere2, critere3, critere4)
        CritereX = IIf(Len(CritereX) = 0, "", " [Produit] Like '" & CritereX & "' And")
        On Error Resume Next
        If J = nbrCriteres Then CritereX = " " & Left(Trim(CritereX), InStrRev(Trim(CritereX), " And") - 1)
        critereFinal = IIf(Len(CritereX) = 0, critereFinal, critereFinal & CritereX)
    Next J
 
    If Right(critereFinal, 4) Like " And" Then _
        critereFinal = Mid(critereFinal, 1, Len(critereFinal) - 4)
    Debug.Print Trim(critereFinal)
 
End Sub

[ArnaudA]

Merci pour votre aide Zekraoui_Jakani !