Bonjour à tous,
Je souhaite créer un questionnaire à choix multiples avec excel.
Une feuille contenant une colonne de la liste des questions, une deuxième colonne contenant la bonne réponse (la seule pour les question dont la réponse est unique), puis deux ou trois autres colonnes contenant des réponses fausses pour les questions à choix multiples Le total des questions étant d'environ 1500...(çà je sais faire....). Je précise que les questions et réponses seront du type texte et / ou chiffres.
Une feuille d'accueil où lapersonne s'identifie à partir d'une liste déroulante et lance le test par un bouton aprés avoir défini le nombre de questions.
Au lancement du test, une boite de dialogue apparait avec la question tirée au sort aléatoirement et les réponses possibles auxquelles ont doit répondre en cochant la ou les bonnes réponses. Lorsque c'est une question avec une seule réponse possible (uniquement des chiffres), elle doit être rentrer par la personne dans un champ de saisie.Un bouton validation permet de passer à la question suivante.
Pour corser le tout, j'aurais besoin que les résultats soient sauvegardés dans une feuille dont le nom d'onglet serait le nom de l'agent suivi de la date !!!
J'ai quelques notions dans la programmation, mais j'avoue que je ne maîtrise pas assez pour un travail aussi complexe.
J'ai déjà regardé le travail fait pour le tirage aléatoire des postiers, mais dans cet exemple, il n'y a qu'une seule réponse possible...
Bonjour le fil,
j'ai tenté de tester le fichier du #21 mais il me dit que la table QCM doit être renseignée au préalable. Ne pourrais-tu pas la renseigner par quelques données afin de pouvoir tester le fichier ?
Tu dis que le problème a lieu à l'ouverture du fichier ? Tu testes bien avec une version 2007 ?
Personnellement je suis en version 2010 64 bits et donc il me faut retoucher les API pour que cela fonctionne mais si tu testes sous 2007 ou 2010 version office 32 bits tu ne dois pas avoir ce problème.
Tu parles de 2 fichiers différents mais celui du message #21 s'appelle également QCM Cisco_v2 donc quand tu dis
Cisco, j'ai eu exactement le même message d'erreur et le même symptôme (code non accessible) sur le fichier de ce post : https://www.excel-downloads.com/threads/modifier-code-ini-pour-changer-nom-des-feuilles.193013/
J'ai, comme toi, mis en cause le fichier...
Mais ayant dû réinstaller mon micro (avec formatage) pour une autre raison, je m'aperçois que maintenant je l'ouvre correctement.
Cette erreur doit donc plus être liée à la configuration du poste qu'au fichier, excel qui a dû se véroler. Ce qui explique que les autres intervenants ne constatent rien.
Lorsque je télécharge le fichier de kjin (#21), et que je l'ouvre, j'ai le message en pièce jointe, et ensuite "Erreur automation. Erreur non spécifiée". Lorsque j'essaye avec un de mes anciens fichiers, fait à partir du fichier proposé par kjin, j'ai directement "Erreur automation...", sur un ordi équipé avec Vista, Excel 2007, 32 bits.
Je pense aussi que cela vient de la configuration mais, bon, vu mon niveau... Je n'ai pas reconfiguré cet ordi depuis la création de ces fichiers, en avril 2011, mais, ai téléchargé quelques mises à jour... Ceci explique peut être cela.
Je mets aussi en pièce jointe un des fichiers fait avec la macro de Kjin, enregistré sous excel 2003.
Bonjour le fil,
...Tu parles de 2 fichiers différents mais celui du message #21 s'appelle également QCM Cisco_v2 donc quand tu dis , je ne vois pas à quel autre fichier tu fais référence.
A+
J'ai fait des tests avec le fichier du message #21, retéléchargé sur le forum, et avec des fichiers faits en avril 2011, à partir de la proposition de Kjin, pour mon usage perso. Voila pourquoi j'ai parlé de plusieurs fichiers. Tous me renvoient des messages d'erreur, sur l'ordi d'origine (Excel 2007, 32 bits).
Re
1er test sur ton fichier QCM du #36 : plantage car il te signale que la feuille est protégée en lecture seule.
Le code qui plante est
Code:
Sub Depart()
Dim ListeNb As Variant
With Sheets("RESULT")
.Range("B2:B1001,D2:D1001").ClearContents
.Range("G2") = NbQ
ListeNb = GenQ(NbQ, 1, [TotQ])
.Range(.Cells(2, 2), .Cells(NbQ + 1, 2)).Value = Application.Transpose(ListeNb)
End With
End Sub
Pour éviter cela, il te faut déprotéger la feuille en début de code (utiliser la méthode unprotect) et le re protéger à la fin (utiliser la méthode protect).
A+
La macro plante toujours chez moi, avec le même message, et au même endroit. Toutefois, cela ne me gêne pas beaucoup, car cela tourne correctement au lycée.
Est-ce que quelqu'un pourrait modifier la macro proposée par kjin, pour qu'on passe à la question suivante, non pas en fonction du temps imparti pour répondre à la question en cours, mais avec un bouton "Suivant" ?
@Cisco , c'est bien le pb. Je l'avais réalisé aussi initialement pour pour un ets scolaire, et aucun pb ne m'a été signalé depuis
As- tu essayé d'installer les correctifs concernant MSCOMCTL ?
J'avais aussi une version en manuel. Je la retrouve et je la poste
A+
kjin
Est-ce que quelqu'un pourrait modifier la macro proposée par kjin, pour qu'on passe à la question suivante, non pas en fonction du temps imparti pour répondre à la question en cours, mais avec un bouton "Question suivante" ?
La librairie MSCOMCTL.OCX doit être activée faire fonctionner le QCM en automatique et apparemment cela pose qq fois des pb sous 2007 et plus, d'où le correctif en question
En PJ, la version timer + manuel dont j'ai désactivé la fonction automatique
Bien qu'elle soit désactivée, si tu veux supprimer complétement la fonction automatique, il suffit d'effacer les lignes de code qui sont cochées.
A+
kjin