Discussion :

[grkvz]

Bonjour,

Ayant beaucoup naviguer sur developpez.net pour apprendre le VBA, je suis hélas confronté à un problème dont je n'arrive pas cette fois à trouver une solution... je m'explique :
J'utilise un fichier excel qui est connecté en DAO à une base Access. Tout fonctionne impecc, mais...

J'ai dans une feuille Excel 7 champs ayant chacun une liste déroulante puis un bouton macro "Filtre".
1-Date
2-Domaine
3-Secteur
4-Département
5-Site
6-Métier
7-Nature

Comme je l'ai dit, chaque "cellule" possède une liste déroulante avec des valeurs pré-définis
Le but étant de choisir une valeur dans chaque cellule souhaité pour faire un filtre et afficher le résultat de la requête SQL dans un tableau excel.

Actuellement, si la personne renseigne les 7 cellules, une requête qui fonctionne correctement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Domaine = Range("B2").Value
 Scteur = Range("B3").Value
 Departement = Range("B4").Value
 Site = Range("B5").Value
 Metier = Range("B6").Value
 Cntrat = Range("B7").Value
 
 Date1 = Range("B1").Value
 Date2 = DateSerial(Year(Date1), Month(Date1), 1)
 
 
 
sSQL = "SELECT * FROM TableA WHERE [Col1]= '" & Domaine & "'AND [Col2]= '" & Scteur & "' AND [Col3]= '" & Departement & "' AND [Col4]= '" & Site & "' AND [Col5]= '" & Metier & "' AND [Col6]= '" & Cntrat & "' AND [Col7] BETWEEN format('" & Date2 & "','dd/mm/yyyy') AND format('" & Date1 & "','dd/mm/yyyy');"

Le problème dans cette requête c'est que je ne prends absolument pas en compte si l'utilisateur renseigne la cellule 1 et 7 et laisse les autres vides... ce qui devrait me sortir le résultat en fonction de la date et de la nature... même process pour toutes les manipulations avec ce "filtre".

J'ai commencé à chercher d'autres solutions mais en vain....
C'est pourquoi je fais mon bapteme sur developpez.net et demande de l'aide car je sèche terriblement.

Toute piste est la bienvenue

[parmi]

Bonjour,

Si je comprends bien, certaines valeurs peuvent être vides et tu voudrais faire la requête sur les valeurs choisies seulement, c'est ça ?

[grkvz]

Oui c'est exactement ça !

[parmi]

Tu pourrais essayer quelque chose comme 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
    sSQL = "SELECT * FROM TableA "
    If Domaine <> "" Then sSQL = sSQL & "WHERE [Col1]= '" & Domaine & "' "
    If Scteur <> "" Then
        If InStr(1, sSQL, "WHERE") > 0 Then
            sSQL = sSQL & "AND [Col2]= '" & Scteur & "' "
        Else
            sSQL = sSQL & "WHERE [Col2]= '" & Scteur & "' "
        End If
    End If
    If Departement <> "" Then
        If InStr(1, sSQL, "WHERE") > 0 Then
            sSQL = sSQL & "AND [Col3]= '" & Departement & "' "
        Else
            sSQL = sSQL & "WHERE [Col3]= '" & Departement & "' "
        End If
    End If
    If Site <> "" Then
        If InStr(1, sSQL, "WHERE") > 0 Then
            sSQL = sSQL & "AND [Col4]= '" & Site & "' "
        Else
            sSQL = sSQL & "WHERE [Col4]= '" & Site & "' "
        End If
    End If
    If Metier <> "" Then
        If InStr(1, sSQL, "WHERE") > 0 Then
            sSQL = sSQL & "AND [Col5]= '" & Metier & "' "
        Else
            sSQL = sSQL & "WHERE [Col5]= '" & Metier & "' "
        End If
    End If
    If Cntrat <> "" Then
        If InStr(1, sSQL, "WHERE") > 0 Then
            sSQL = sSQL & "AND [Col6]= '" & Cntrat & "' "
        Else
            sSQL = sSQL & "WHERE [Col6]= '" & Cntrat & "' "
        End If
    End If
    If Date1 <> "" Then
        If InStr(1, sSQL, "WHERE") > 0 Then
            sSQL = sSQL & " AND [Col7] BETWEEN format('" & Date2 & "','dd/mm/yyyy') AND format('" & Date1 & "','dd/mm/yyyy') "
        Else
            sSQL = sSQL & "WHERE [Col7] BETWEEN format('" & Date2 & "','dd/mm/yyyy') AND format('" & Date1 & "','dd/mm/yyyy') "
        End If
    End If
 
    'Debug.Print sSQL  si tu veux voir le résultat

[grkvz]

N'étant plus au boulot je vais essayer ça dès le petit matin !
Je ne connaissais pas du tout "instr" et c'est exactement ce type de raisonnement que je souhaitais mettre en place.
Si j'ai bien compris la fonction "instr" va permettre d'analyser la requête SQL et si elle contient "where" alors.. sinon rajoute "And"...
Mais que signifie le "1" ? (Pour la première valeur trouvée ?)

En tout cas, je pense que ça répond exactement à mon besoin et pour une fois j'ai hâte de voir le résultat demain 😂.

Je te remercie par avance de ton aide et de ta rapidité !
Je te confirmerai ça demain matin. 😀

[parmi]

Tu as bien compris: Instr (In String) recherche un mot, une lettre ... dans une chaîne et retourne la position trouvée, sinon 0.
Le 1 est facultatif, mais désigne la position du premier caractère à être lu.