Re-bonjour,

Je souhaiterais créer une macro pour effectuer un recueil de données de questionnaire:

Il s'agit d'additionner tous les "OUI" de toutes les cases C3 (par exemple) de toutes les feuilles (1 feuille=1 questionnaire) d'un classeur sauf Feuil1 et Feuil2. Sachant qu'à chaque questionnaire, un nouvelle feuille s'ajoute...

Suis-je assez clair ds ma demande ?

Merci d'avance !

Salut,

Effectivement, ça manque un peu de précisions...

Un exemple (parmi d'autres):

Private Sub Worksheet_Activate()
Dim i%, n%
With ThisWorkbook.Worksheets
For i = 1 To .Count
If .Item(i).Name <> "Feuil1" And .Item(i).Name <> "Feuil2" Then
If .Item(i).Range("C3").Value = "OUI" Then n = n + 1
End If
Next i
MsgBox n & " réponses 'OUI' sur " & .Count - 2 & " ont été recensées.", , "'OUI' à la question..."
End With
End Sub

Macro évènementielle (à coller dans le module d'une feuille, Feuil1 par exemple, ou Feuil2). A chaque fois que tu activeras la feuille concernée, un message t'indiquant le nombre de 'OUI' décomptés (et le nombre de feuille concernées par le comptage) s'affichera.

Attention: 'OUI' n'est pas la même chose que 'oui' ou 'Oui'...

Précise plus ton besoin le cas échéant. Bonne continuation.

Merci ferrand, excuse-moi pour la réponse tardive... WE oblige...

En effet, en me relisant et en lisant ta réponse, ça manque de précision...

Précisons :

Dans une feuille "RECUEIL", je voudrais compter tous les OUI de la case C3 de toutes les feuilles suivantes.

Les feuilles suivantes sont des questionnaires identiques remplis par des personnes différentes. A chaque fois qu'un utilisateur se connecte, il clique sur un bouton qui créé un nouveau questionnaire (ça j'arrive à faire). Et pour compliquer, chaque feuille portera le nom de celui qui l'a rempli (pour ça j'ai eu une réponse sur le forum). Sans limitation de nombre de questionnaires... Je voudrais donc faire des stats sur le nombre de OUI répondu à la question 1, puis la 2 etc...

Enfin, si tu as une autre idée pour recueillir , je suis preneur !

Merci d'avance

Salut,

Pas de souci. Tu peux très bien adapté ma proposition ("bête et méchante", car elle recalcule tout à chaque fois !) à la configuration que tu indiques (pas encore très précise non plus !) dont je déduis que ton classeur comporte 2 feuilles qui ne sont pas des questionnaires, 1 feuille RECUEIL pour recueillir les résultats, et des questionnaires (donc autant de questionnaires que de feuilles - 3).

En gardant une procédure évènementielle qui s'exécute à chaque activation de la feuille RECUEIL :

Private Sub Worksheet_Activate()
Dim i%, n%, rép$
With ThisWorkbook.Worksheets
For i = 1 To .Count
If .Item(i).Name <> "Feuil1" And .Item(i).Name <> "Feuil2" and .Item(i).Name <> "RECUEIL" Then
With .Item(i)
rép = Trim(UCase(.Range("C3").Value))
If rép = "OUI" Then n = n + 1
End With
End If
Next i
With .Item("RECUEIL")
.Range("C3").Value = n
.Range("A1").Value = .Count - 3
End With
End With
End Sub

On peut évidemment adapter pour recenser toutes les questions (il faut les références des cellules où trouver les réponses et quel type de réponse tester)... On peut aussi ne pas la lancer automatiquement mais par un raccourci clavier ou un bouton... On peut sophistiquer un peu et ne pas refaire le calcul à chaque fois (précisions sur l'organisation des questionnaires nécessaires) [ce qui n'est pas forcément plus rapide].

L'affectation de la réponse à une variable rép est destiné à mettre en majuscules les oui ou Oui et éliminer les espaces éventuels avant et après. (Au cas où cela risque de se produire). Dans le cas où l'on risquerait aussi d'avoir des choses type "O ui", il faudrait compléter par une élimination d'éventuelles espaces intérieures...

A1: à remplacer le cas échéant par une cellule destinée à recueillir le nombre total de questionnaires.

A toi de voir...

Super, je vais essayer cela dès que possible et je te tiens au courant...

Telle quelle, elle s'exécute à l'activation de la feuille et ne teste qu'une réponse. Pour d'autres soloutions, il y aura quelques modifications à apporter...