Occurence de cellule dans plusieurs feuilles

Bonjour,

je ne suis pas du tout programmeur aussi j'ai besoin de votre aide. J'ai envoyé un questionnaire à 200 personnes. Ce questionnaire est fait sous format excel. Chacun va me renvoyer son questionnaire rempli sous forme d'une feuille excel. Je vais regrouper dans un même fichier excel ces 200 questionnaires.

Question N°1:
Les questionnaires comprend des questions du genre :
Classez par ordre d'importance les événements suivants (1 le plus important et 4 le moins important)
- Le nouveau procès de Britney
- L'élection d'Obama
- La crise financière
- La mort de votre poisson rouge
(exemple bien évidemment bidon).

Pour faire une moyenne du rang de classement de chaque évenement j'ai utilisé simplement cette formule dans Excel :
=SOMME(Feuil1:Feuil6!B15)/$H$1
H1 correspond au nombre de questionnaires
B15 correspond à ma cellule où le questionné met le rang de classement pour cet événement.

Maintenant je souhaiterai savoir combien de fois l'évenement Britney à été classé premier?

Question N°2
J'ai une question de ce type :

toujours souvent jamais
A quelle fréquence trouvez vous des solutions dans ce forum

Les personnes mettront une croix ou autre chose dans la bonne case. Comment puis-je comptabiliser tous les résultats des différentes feuille dans une feuille de dépuillement.

J'espère avoir été clair.

Merci d'avance pour l'utilisation de votre savoir.
Configuration: Windows XP
Internet Explorer 6.0
Excel : à partir de 97

3 réponses

  1. Contributeur
    Bonjour

    Par Formule associée à une fonction personalisée que tu integrera dans un module VBA
    http://www.commentcamarche.net/faq/sujet 13258 formules sur matrice multi feuilles

    avec cette fonction tu pourras faire du multi-feuille avec des formules matricielles
    0
    1. Merci de ton aide Wildried, mais ce n'est pas assez vulgarisé pour moi et j'ai beau chercher je ne m'en sors pas. J'ai créer la fonction personnalisé qui est donnée dans l'exemple :

      Function trf_plage(plage As Range, Optional feuilles As String = "") As Variant
      Dim cel As Range, i As Long, j As Integer, tablo() As Variant
      Dim feuille1 As String, feuille2 As String
      Application.Volatile
      i = -1
      If feuilles = "" Then feuilles = ActiveSheet.Name & ":" & ActiveSheet.Name
      feuille1 = Left(feuilles, InStr(feuilles, ":") - 1)
      feuille2 = Right(feuilles, Len(feuilles) - InStr(feuilles, ":"))
      For j = Sheets(feuille1).Index To Sheets(feuille2).Index
      For Each cel In plage
      i = i + 1
      ReDim Preserve tablo(i)
      tablo(i) = Sheets(j).Cells(cel.Row, cel.Column).Value
      Next
      Next j
      trf_plage = tablo
      End Function

      elle fonctionne mais elle ne fait que reprendre les données de la feuille 1 (questionnaire N°1)
      0
      1. Contributeur
        re:

        dans l'astuce tu as plein d'exemple de formule autre exemple :

        Compter tous les Souvents en cellule A1 sur 200 feuilles

        nb.si(Feuil1:Feuil200!A1;"Souvent") ' ne fonctionne pas

        en formule matricielle :
        =Somme(si(trf_plage(A1;"Feuil1:Feuil200")="Souvent";1;0)
        ceci fonctionne
        0