Compter le nombre de cases à cocher dans une colonne

**P.Flo** · 28/03/2014, 12h15

Bonjour à tous.

Je travaille actuellement sur l'élaboration d'un fichier Acess pour de la saisie et stockage de fiche version papier et faire des statistiques sur les infos que je rentre.
J'ai alors un problème en ce qui concerne une partie lors de la retranscription de la fiche version papier.

En situation: 4 actions immédiates peuvent être détaillée dans 4 champs distinct. Pour chaque action j'ai le choix entre 6 "niveau d'éfficacité de l'action". A terme, je veux pouvoir compter le nombre d'action avec un niveau d'éfficacité de 1, de 2 ...

Dans un premier temps, j'ai pensé à mettre un système de cases à cocher avec les actions en ligne et le niveau d'éfficacité en colonne, ce qui reviendrait à compter le nombre de case cochées par colonne d'une matrice 4*6. C'est là que les chose se compliquent. Pour faciliter le comptage, il faudrait par exemple que pour le niveau d'éfficacité niveau 1 que mes 4 cases possible à cocher soit dans le même champs. Or lorsque je sélectionne 1 case ... toutes se cochent. Pas facile pour compter du coup.
Je pourrais analyser dans ma requête l'état de toute mes cases à cocher mais vérifier l'état de 24 cases n'est pas ce qu'il y a de mieux.

C'est un peu la même chose je si met des zone des listes déroulantes, il faudrait que je regarde la valeur affichée pour chaque menu déroulant (soit au total 4) et me débrouiller pour pouvoir compter les valeurs qui sont identiques. Pas terrible quand on a une possibilité de faire des regroupements et que cela se fasse automatiquement ...

Pouvez vous m'aider sur ce problème la ?
Je vous envoie une ébauche de mon fichier, peut être cela sera t-il plus explicite

Saisie 31_111.zip

Merci

**ClaudeLELOUP** · 28/03/2014, 15h57

Bonjour,

Utilise plutôt 4 groupes de 6 options, chaque groupe te révèlera directement la valeur choisie et 4 requêtes de regroupement suffiront pour obtenir la synthèse de l'enquête.

**ClaudeLELOUP** · 29/03/2014, 11h09

Tu pourrais par exemple faire comme ceci.

Pour le formulaire :

autant de groupes que de questions ;
avec des conventions de nommage comme indiqué ;
comme source, cette table

À l’ouverture du formulaire, on garnit les étiquettes. L’algorithme consiste à trouver le libellé dans une table (tItems) en fonction du nom de l’étiquette.
Voici un exemple de contenu de la table tItems :

Voici le code de l’événement Sur ouverture du formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
Private Sub Form_Open(Cancel As Integer)
  Dim ctl As Control
  'Garnir les libellés
  For Each ctl In Me.Controls
    If ctl.Name Like "e##" Or ctl.Name Like "T##" Then
        ctl.Caption = DLookup("Libelle", "tItems", "Num=" & Right(ctl.Name, 2))
    End If
  Next ctl
End Sub

Ce qui donne comme résultat :

Pour la synthèse, cet état :

La source de cet état est une requête union, construite au départ de requêtes de ce type :

Voici le SQL de la source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SELECT 1 AS Question, tReponses.Q1 AS [Reponse], Sum(1) AS Occurrences
FROM tReponses
GROUP BY 1, tReponses.Q1 union 
SELECT 2 AS Question, tReponses.Q2  AS [Reponse], Sum(1) AS Occurrences
FROM tReponses
GROUP BY 2, tReponses.Q2 union
SELECT 3 AS Question, tReponses.Q3 AS [Reponse], Sum(1) AS Occurrences
FROM tReponses
GROUP BY 3, tReponses.Q3 UNION SELECT 4 AS Question, tReponses.Q4  AS [Reponse], Sum(1) AS Occurrences
FROM tReponses
GROUP BY 4, tReponses.Q4;