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.

3 réponses

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
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
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