Faire une synthèse d'une interview

[gimli]

Bonjour à tous,

Je suis en ce moment sur un projet qui consiste à automatiser la création d'une synthèse à partir d'un interview. (voir fichier joint)

Le fichier que j'ai joint comporte plusieurs colonnes, chacunes correspondant à une question, chaque ligne correspond aux réponse d'une personne interrogée. Dans mon fichier exemple, il y a 6 questions et 10 personnes interrogées.

Le but de mon travail est de créer un tableau comme dans l'onglet 2 de mon fichier exemple. ça n'a pas l'air bien compliqué me direz-vous ^^ mais en fait on ne connait pas les réponses que les personnes interrogées peuvent choisir (ce sont des questions fermées, l'interrogé choisit une réponse proposée) ni le nombre de questions...
Les "Nb" correspondent au nombre de fois ou cette réponse a été choisit...

Je galère légèrement =S

Je vous remercie par avance,

Gimli

 

[gimli]

Re : Faire une synthèse d'une interview

Re Efgé,

merci beaucoup pour ton travail, je regarde ça ce soir et je te tiendrais au courant 🙂
encore merci

Bon aprem

Gimli

 

[Habitude]

Re : Faire une synthèse d'une interview

Regarde ceci

D'abord je collecte les données et je créer un objet de données

Ensuite j'affiche les données, où je veux et comme je veux.

 

[gimli]

Re : Faire une synthèse d'une interview

Bonjour Efgé, Habitude,

j'ai regardé vos deux propositions, elles sont très pratiques toutes les deux. Mais ma préférence va pour celle d'Efgé, le code est plus simple à mettre en place.
Cependant je rencontre une petite difficulté à le mettre en place, car dans mon fichier j'ai déja un bouton qui lance ma macro, j'ai donc mis tout ton code dans celui de mon bouton, ça me crée bien une liste avec toutes les question et réponses mais ça ne crée pas le TCD 🙁 et dans le code il n'est mention nulle part de l'onglet "TCD" ou doit s'afficher le tableau...pourquoi ?
merci et merci à Habitude pour ton boulot mais j'ai pas réussi pour l'instant à le mettre en place 🙁

Gimli

 

[Efgé]

Re : Faire une synthèse d'une interview

Bonjour gimli, au fil
Je n'ai pas créé le TCD par macro (je ne m'y suis jamais aventuré 😉). J'ai nommé une plage sur la feuille3 (insertion / Nom / Definir)
Son nom : Data, la formule est :

=DECALER(Feuil3!$A$1;;;NBVAL(Feuil3!$A:$A);2)

Pour faire le TCD : Données / rapport de tableau / Suivant / Plage = Data / Suivant
En espérant que ces explications te seront suffisantes...
Cordialement

 

[Efgé]

Re : Faire une synthèse d'une interview

Re
Voir post suivant
Cordialement

 

[Efgé]

Re : Faire une synthèse d'une interview

Re

@ Gimli
Une proposition tout automarique. Pour tester il faut d'abord enregistrer l'exemple.

@Habitude
Ta remarque est étrange TCD c'est Tableau Croisé Dynamique, non ?

Cordialement

*C'est fait

 

[Habitude]

Re : Faire une synthèse d'une interview

Bonjour Efgé, Habitude,

j'ai regardé vos deux propositions, elles sont très pratiques toutes les deux. Mais ma préférence va pour celle d'Efgé, le code est plus simple à mettre en place.
Cependant je rencontre une petite difficulté à le mettre en place, car dans mon fichier j'ai déja un bouton qui lance ma macro, j'ai donc mis tout ton code dans celui de mon bouton, ça me crée bien une liste avec toutes les question et réponses mais ça ne crée pas le TCD 🙁 et dans le code il n'est mention nulle part de l'onglet "TCD" ou doit s'afficher le tableau...pourquoi ?
merci et merci à Habitude pour ton boulot mais j'ai pas réussi pour l'instant à le mettre en place 🙁

Gimli

Les TCD ont leur qualité je l'avoue. Mais aussi le défaut de ne pas être très dynamique.
Tu n'arrive pas à mettre ne place la création de l'objet ou l'affichage ?

 

[gimli]

Re : Faire une synthèse d'une interview

Re et désolé du retard 🙁

merci à vous deux, j'ai réussi à mettre en place la solution de Efgé qui m'a paru plus simple.
Merci 🙂

Gimli

 

[gimli]

Re : Faire une synthèse d'une interview

Bonjour,

je reviens sur le code fournit par Efgé,

With Sheets("Feuil1")
    Nbrlign = .Range("A" & Application.Rows.Count).End(xlUp).Row - 1
    ReDim Tableau(1 To Nbrlign * 6, 1 To 2)
    For i = 1 To Nbrlign * 6 Step 6
        Tableau(i, 1) = .Cells(1, 1)
        Tableau(i, 2) = .Cells(k, 1)
        Tableau(i + 1, 1) = .Cells(1, 2)
        Tableau(i + 1, 2) = .Cells(k, 2)
        Tableau(i + 2, 1) = .Cells(1, 3)
        Tableau(i + 2, 2) = .Cells(k, 3)
        Tableau(i + 3, 1) = .Cells(1, 4)
        Tableau(i + 3, 2) = .Cells(k, 4)
        Tableau(i + 4, 1) = .Cells(1, 5)
        Tableau(i + 4, 2) = .Cells(k, 5)
        Tableau(i + 5, 1) = .Cells(1, 6)
        Tableau(i + 5, 2) = .Cells(k, 6)
        k = k + 1
    Next
End With

Le code fonctionne si on a un nombre fixe de questions/réponses, or ce n'est pas mon cas . Je ne sais pas à l'avance combien de questions et réponses il y aura... donc je ne peux pas savoir le nombre de fois qu'il faudra incrémenter ce type de ligne

Tableau(i + 1, 1) = .Cells(1, 2)

j'ai pensé remplacer certaines valeurs par des variables mais jusqu'a présent je n'ai pas réussi...

si quelqu'un a des idées pour perfectionner le code, ce serait magnifique

Merci d'avance,

Cordialement,

Gimli

 

[tototiti2008]

Re : Faire une synthèse d'une interview

Bonjour Gimli,

à tester (pour le début)

Dim NbrLign As Long, NbrCol As Long, i As Long, j As Long, k As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each f In ActiveWorkbook.Worksheets
    If f.Name = "Tableau" Then f.Delete
Next f
Dim Tableau()
k = 2
With Sheets("Feuil1")
    NbrLign = .Range("A" & Application.Rows.Count).End(xlUp).Row - 1
    NbrCol = .Cells(1, Application.Columns.Count).End(xlToLeft).Column
    ReDim Tableau(1 To NbrLign * NbrCol, 1 To 2)
    For i = 1 To NbrLign * NbrCol Step NbrCol
        For j = 0 To NbrCol - 1
            Tableau(i + j, 1) = .Cells(1, 1 + j)
            Tableau(i + j, 2) = .Cells(k, 1 + j)
        Next j
        k = k + 1
    Next
End With

 

[gimli]

Re : Faire une synthèse d'une interview

Bonjour Tototiti2008,

je n'ai qu'une chose à dire : fabuleux.

Merci énormément, c'est tout à fait cela que je recherchais 🙂


Gimli