Discussion :

[thiefer]

Bonjour à tous,
voici certainement une interrogation basique mais je ne trouve pas d'échange préalable sur le sujet dans le forum.
Sûrement pas utilisé les bons mots clefs...

Voilà, j'ai deux zones de listes déroulantes qui se renseignent mutuellement en cascade.
Cela fonctionne très bien.
J'ai juste un soucis, je souhaite faire afficher une possibilité de choix supplémentaire, le choix "Tous".

Voici mon code

Code :

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

1
2
3
4
Me.cbo_annee.DefaultValue = "'Tous'"
Me.cbo_sport.DefaultValue = "'Tous'"
Me.cbo_annee.RowSource = "SELECT DISTINCT Year([date]) AS Annee FROM tbl_donnees ORDER BY Year([date])"
Me.cbo_sport.RowSource = "SELECT DISTINCT sport FROM tbl_donnees ORDER BY sport"

Malheureusement, le champ cbo_sport affiche effectivement "Tous" mais cbo_annee affiche #Erreur.
De plus, lorsque j'effectue une sélection, impossible de revenir sur mes pas et de pouvoir sélectionner à nouveau "tous" les sports.
Quelqu'un pourrait -il me communiquer l'astuce qui va bien en la matière svp ?

Merci par avance

TF

[LedZeppII]

Bonjour,

regardes ici : Ajouter Tous en haut d'une liste déroulante

A+

[thiefer]

Salut LedZepp II (Désolé, je conserve toute ma préférence pour le IV)

Merci pour ton retour,
j'ai appliqué la méthode 2 avec table de valeurs.

Voici donc le code que j'obtiens pour le champ année :

Code :

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

    Me.cbo_annee.RowSource = "SELECT DISTINCT A.Year([date]) FROM (SELECT distinct B.Year([Date]), 1 AS Position FROM tbl_donnees AS B UNION SELECT * FROM tbl_zoneliste WHERE Entete='Toutes') AS A ORDER BY A.Indextri, A.Year([date])"

Malheureusement, lorsque j'ouvre mon formulaire, la zone de liste année s'ouvre tjs à blanc et non pas avec la valeur toutes par défaut.
De plus, lorsque je clique sur ma zone de liste année, j'obtiens le msg d'erreur mentionné en titre de ce post :

Fonction B.Year non définie dans l'expression

Kézaco !!!

Si tu es encore par là, merci de ton aide à (re)venir

TF

[LedZeppII]

Salut thiefer

Tu as mis le nom de la table devant le nom de la fonction au lieu de le mettre devant le champ.

D'abord teste la requête seule.
Ça devrait donner ça :

Code sql :

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

1
2
3
4
5
6
7
SELECT Annee
FROM (
SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B 
UNION 
SELECT * FROM tbl_zoneliste WHERE Entete='Toutes'
) AS A 
ORDER BY A.Position, A.Annee ASC

Une fois qu'elle fonctionne tu peux la transposer en vba.

Désolé, je conserve toute ma préférence pour le IV

Je ne t'en veux pas

A+

[thiefer]

Salut LedZeppII,

tout fonctionne parfaitement, c'est excellent !!!
Avec qui plus est les valeurs de choix "Aucun" et "Aucune" également et l'affichage de "Toutes" et "Tous" par défaut.
Merci bcp pour ton coup de pouce.

A l'occaze, si tu passes par un autre de mes post encore non résolu

Bon week end

TF

[thiefer]

Salut,

alors la solution fonctionne parfaitement sur des combo indépendantes.
Mon sujet est de pouvoir les utiliser avec des combo en cascade et je ne parviens pas à faire fonctionner.
Voici mon code originel

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
Private Sub cbo_sport_Change()
 
Me.cbo_annee.Requery
 
Dim StrSport    As String
Dim SQL         As String
 
         StrSport = "'" & Me.cbo_sport & "'"
        SQL = "SELECT DISTINCT Year([date]) AS Annee FROM tbl_donnees WHERE sport =" & StrSport & " ORDER BY Year([date])"
 
        ' Affecte la chaîne SQL à la liste des années
            cbo_annee.RowSource = SQL
        ' Déverrouille la liste des années
            cbo_annee.Enabled = True
        ' Donne le focus la liste des années
            cbo_annee.SetFocus
        ' Déroule la liste des années
            cbo_annee.Dropdown
 
End Sub

Voici avec l'addendum des choix Tous et Aucun ce que cela devient

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
Private Sub cbo_sport_Change()
 
Me.cbo_annee.Requery
 
Dim StrSport    As String
Dim SQL         As String
 
    Select Case Me.cbo_sport.Value
        Case "Tous"
        SQL = "SELECT Annee FROM (SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B Union SELECT * FROM tbl_zoneliste WHERE Entete='Toutes' OR Entete='Aucune') AS A ORDER BY A.Position, A.Annee ASC"
 
        Case "Aucun"
        SQL = "SELECT Annee FROM (SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B Union SELECT * FROM tbl_zoneliste WHERE Entete='Toutes' OR Entete='Aucune') AS A ORDER BY A.Position, A.Annee ASC"
 
        Case Else
        StrSport = "'" & Me.cbo_sport & "'"
        SQL = "SELECT Annee FROM (SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B Union SELECT * FROM tbl_zoneliste WHERE Entete='Toutes' OR Entete='Aucune') AS A WHERE sport =" & StrSport & " ORDER BY A.Position, A.Annee ASC"
    End Select
 
        ' Affecte la chaîne SQL à la liste des années
            cbo_annee.RowSource = SQL
        ' Déverrouille la liste des années
            cbo_annee.Enabled = True
        ' Donne le focus la liste des années
            cbo_annee.SetFocus
        ' Déroule la liste des années
            cbo_annee.Dropdown
 
End Sub

Concernant le Case Else, j'ai essayé ces trois solutions :

Code :

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

SQL = "SELECT Annee FROM (SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B Union SELECT * FROM tbl_zoneliste WHERE Entete='Toutes' OR Entete='Aucune') AS A WHERE sport =" & StrSport & " ORDER BY A.Position, A.Annee ASC"

Dans ce cas, seul "course" qui est le seul sport présent chaque année me ramène l'ensemble des valeurs "Aucune", "Toutes" et les années. Les autres sports ouvrent ma liste sans aucune valeur (un seul champ à blanc).
Fonctionne ainsi avec sport car avec A.sport et B.sport, affichage d'une fenêtre me demandant d'entrer une valeur de paramètre pour A.sport (ou B.sport)

Code :

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

SQL = "SELECT Annee FROM (SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees WHERE sport =" & StrSport & " AS B Union SELECT * FROM tbl_zoneliste WHERE Entete='Toutes' OR Entete='Aucune') AS A ORDER BY A.Position, A.Annee ASC"

Dans ce cas, avec sport, A.sport ou B.sport, ma liste année s'ouvre sans valeur (1 seul champ à blanc)

Code :

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

SQL = "SELECT Annee FROM (SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B Union SELECT * FROM tbl_zoneliste WHERE Entete='Toutes' OR Entete='Aucune' AND sport =" & StrSport & " ) AS A ORDER BY A.Position, A.Annee ASC"

Dans ce cas, avec sport, il m'affiche systématiquement la valeur "Toutes" suivies de l'ensemble des années trouvées dans la base quelque soit le sport.
Avec A.sport et B.sport, il m'affiche deux fois la fenêtre entrer une valeur de paramètre, puis m'affiche les valeurs "Aucune", "Toutes" suivies de toutes les années en base sans considération de la sélection sport.

C'est sûrement pas grand chose mais j'ai l'impression d'avoir fait le tour des possibilités, en tous cas de celles en ma limite de compétence de newbie.

S'il était possible de me communiquer l'astuce qui va faire fonctionner mon code correctement,

Merci par avance,

TF

[thiefer]

SAlut à tous les lecteurs éventuels,

désolé pour le message précédent qui était le fruit d'un dur lendemain de week end.
Alors pour "ceusses" qui ne le savaient encore point, la solution est limpide et évidente :

Code :

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

1
2
3
4
5
6
7
SELECT Annee FROM
(SELECT distinct Year(B.[date]) As Annee, 1 AS Position FROM tbl_donnees AS B 
WHERE B.Sport=" & StrSport & " 
Union SELECT * FROM tbl_zoneliste 
WHERE Entete='Toutes' OR Entete='Aucune') 
AS A 
ORDER BY A.Position, A.Annee ASC"

Problème résolu pour moi, en espérant que cela serve à d'autres

Tch'ô

TF