Occurence de cellule dans plusieurs feuilles

concouriste Messages postés 3 Statut Membre -  
wilfried_42 Messages postés 912 Statut Contributeur -
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. wilfried_42 Messages postés 912 Statut Contributeur 245
     
    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
  2. concouriste Messages postés 3 Statut Membre
     
    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
  3. wilfried_42 Messages postés 912 Statut Contributeur 245
     
    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