Discussion :

[mat2424]

Bonjour,
ça fait quelques temps que j'ai pas bossé sur du sql et sur access et je suis un peu perdu !!!!

Probleme :

j'ai une table principale contenant des enregistrement du type

Entete --------------->Id| Date | Question1 | question 2| etc ---- question 40
enregistrement ---> 1 | 2009 | A ---------- | B | ...
enregistrement ---> 2| 2009 | C --------- | A | ...

Donc pour chaque question 5 types de reponses A , B, C, D ,NC

J'aimerais recuperer et compter les reponses sous forme de tableau du type :

Reponses | Question 1 | Question 2 |
A --------------3--------------2
B -------------- 5 -------------- 3
Etc ...

Une lumiere ?

Merci d'avance !

[helas]

Bonjour,
avec des UNIONs mais il faudrait l'écrire pour les 40, je me suis arrêté à la question 5 par paresse

Code :

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

1
2
3
4
5
6
7
8
9
10
 
SELECT "A" AS q, Sum(IIf([question1]="a",1,0)) AS [question 1], Sum(IIf([question2]="a",1,0)) AS [question 2], Sum(IIf([question3]="a",1,0)) AS [question 3], Sum(IIf([question4]="a",1,0)) AS [question 4], Sum(IIf([question5]="a",1,0)) AS [question 5] FROM Table1 GROUP BY "A"
UNION
SELECT "B" AS q, Sum(IIf([question1]="b",1,0)) AS [question 1], Sum(IIf([question2]="b",1,0)) AS [question 2], Sum(IIf([question3]="b",1,0)) AS [question 3], Sum(IIf([question4]="b",1,0)) AS [question 4], Sum(IIf([question5]="b",1,0)) AS [question 5] FROM Table1 GROUP BY "B"
UNION
SELECT "C" AS q, Sum(IIf([question1]="c",1,0)) AS [question 1], Sum(IIf([question2]="c",1,0)) AS [question 2], Sum(IIf([question3]="c",1,0)) AS [question 3], Sum(IIf([question4]="c",1,0)) AS [question 4], Sum(IIf([question5]="c",1,0)) AS [question 5] FROM Table1 GROUP BY "C"
UNION
SELECT "D" AS q, Sum(IIf([question1]="d",1,0)) AS [question 1], Sum(IIf([question2]="d",1,0)) AS [question 2], Sum(IIf([question3]="d",1,0)) AS [question 3], Sum(IIf([question4]="d",1,0)) AS [question 4], Sum(IIf([question5]="d",1,0)) AS [question 5] FROM Table1 GROUP BY "D"
UNION
SELECT "NC" AS q, Sum(IIf([question1]="nc",1,0)) AS [question 1], Sum(IIf([question2]="nc",1,0)) AS [question 2], Sum(IIf([question3]="nc",1,0)) AS [question 3], Sum(IIf([question4]="nc",1,0)) AS [question 4], Sum(IIf([question5]="nc",1,0)) AS [question 5] FROM Table1 GROUP BY "NC"

[mat2424]

Donc pas moyen d'automatiser ça sans traiter chaque question une a une !!!
grrrrrrrrrrrrrr .
tu aurais pu mettre au moins les 40 questions

merci pour la reponse
si un traitement auto est faisable je suis preneur !

[Pierre Fauconnier]

Salut.

L'idéal est une requête croisée, mais tes données ne se présentent pas bien pour cela.

Donc, tu peux passer par une table temporaire et créer une requête croisée sur cette table.

La structure de la table du questionnaire




La structure de la table temporaire



Le code qui l'alimente

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
Sub AnalyseCroisee()
    Dim sql As String
    Dim rs As DAO.Recordset
    Dim i As Integer
 
    ' Suppression des enregistrements temporaires
    sql = "delete from questionnairetemp"
    DoCmd.RunSQL sql
 
    ' Ajout des questionnaires
    Set rs = CurrentDb.OpenRecordset("select * from tquestionnaires")
    Do While Not rs.EOF
        For i = 1 To 40
            sql = "insert into questionnairetemp (question, reponse) values('question" & i & _
                "','" & rs.Fields("question" & i) & "')"
            DoCmd.RunSQL sql
        Next i
        rs.MoveNext
    Loop
End Sub

La requête croisée en création




Son résultat

[mat2424]

merci pour vos reponses
je verrais ça demain avant de clore le sujet

[mat2424]

J'ai utilisé la première solution dans la mesure ou mes champs ne sont pas incrementiel (par rapport a l'exemple)
Merci à vous deux !