× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Excel : macro pour récupérer ttes les données ?
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
tomdeboys
  Posté le 30/04/2010 @ 11:13 
Aller en bas de la page 
Nouvel astucien

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 !

Publicité
ferrand
 Posté le 30/04/2010 à 17:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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.

tomdeboys
 Posté le 03/05/2010 à 11:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

ferrand
 Posté le 03/05/2010 à 14:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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



Modifié par ferrand le 03/05/2010 14:41
tomdeboys
 Posté le 03/05/2010 à 17:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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

ferrand
 Posté le 03/05/2010 à 18:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
58,45 €SSD Crucial MX500 500 Go à 58,45 € livré
Valable jusqu'au 22 Octobre

Amazon Allemagne propose actuellement le SSD Crucial MX500 500 Go à 53,78 €. Comptez 4,67 € pour la livraison en France soit un total de 58,45 € livré. On le trouve ailleurs à partir de 80 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 3 ans.

Rappelons que vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et qu'il n'y a pas de douane.


> Voir l'offre
13,99 €McAfee Internet Security 2020 (3 appareils, 1 an) à 13,99 €
Valable jusqu'au 22 Octobre

Amazon fait une promotion sur la suite antivirus Internet Security 2020 qui passe à 13,99 €. Cette protection intégrale alliant antivirus, protection de l'identité et protection de la confidentialité des données pour tous vos PC, Mac, smartphones et tablettes est valide pour 3 appareils pendant 1 an. La clé d'activation ainsi que le lien de téléchargement vous seront envoyés par email une fois la commande passée. Une très bonne affaire.


> Voir l'offre
39,99 €Pack clavier + souris sans-fil Logitech MK470 à 39,99 €
Valable jusqu'au 24 Octobre

Boulanger fait une promotion sur le pack clavier + souris sans-fil Logitech MK470 à 39,99 € au lieu de 50 €. Compact et avant-gardiste, cet ensemble Logitech MK470 est parfait pour travailler efficacement. L'ensemble se distingue notamment par sa simplicité et à leur profil ultra-mince. Le clavier compact comprend notamment un pavé numérique et 12 raccourcis de fonction, vous offrant ainsi toutes les touches dont vous avez besoin. De plus, les touches à microcharnières extra-plates offrent une expérience de frappe fluide et familière. Quant à la souris, elle est dotée de trois boutons et d'une molette de défilement extrêmement silencieuse. Et avec sa forme en galet et la douceur de la souris ambidextre, elle offre un grand confort d'utilisation pour les droitiers comme les gauchers. Le pack est également disponible en noir au même prix.


> Voir l'offre

Sujets relatifs
macro excel pour convertir données
macro excel pour convertir données d'un txt
macro excel pour stockage de données
Creation d' une boucle macro dans fichier EXCEL pour impression
Macro pour ouverture d'un fichier Excel
Macro pour créer un Gencode sur Excel - EAN 18
Macro Excel compilations données et export pdf
Macro pour un envoi feuille excel par mail
Macro excel pour enregistrer
EXCEL RECHERCHEV pour autre fichier. Macro?
Plus de sujets relatifs à Excel : macro pour récupérer ttes les données ?
 > Tous les forums > Forum Bureautique