Microsoft 365 Générer facilement un QCM

[M2C2]

Bonjour,

Pour des besoins d'enseignements, j'ai besoin de générer souvent et rapidement des QCM pour mes étudiants.
J'ai rassemblé environ 80 questions et leurs réponses dans un fichier Excel (voir un extrait en PJ)
Pour chaque question, j'ai nommé les plages "Question01" ; "Question02" ; etc ...

Je voudrais pouvoir créer de nouvelles feuilles dans lesquelles seraient présentées un tirage aléatoire de X questions parmi les 80 (Voir un ex sur la Feuille 'Epreuve #1' dans lequel un tirage de 2 questions aurait été fait sur les 5 présente dans la Base de Questions) ?

J'ai fouillé sans trouver comment, via les formules d'Excel, comment on pourrait demander "sélectionne moi aléatoirement X plages de cellules dont le nom commence par 'QuestionXX' !"

Peut-être est-ce mon choix de présentation en lignes plutôt qu'en colonnes qui n'est pas le bon ?
(Le souci, c'est que chaque question contient un nombre variable de réponses possibles !)

Je vous remercie par avance de votre aide et bravo pour ce forum très utile que je viens de découvrir !

 

[Staple1600]

Bonjour le fil, M2C2 (Bienvenue sur le forum)

[Suggestion en passant]
Trouver l'inspiration (ou pas) dans les archives
et/ou
Puiser dans l'existant pour éviter trop de fatigue

Questionnaire à choix multiples

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

www.excel-downloads.com

[/Suggestion en passant]

 

[M2C2]

Merci Staple1600
C'est justement parce que je n'ai pas trouvé la réponse que je me suis permis de poster !
Mais je vais continuer à chercher ...

 

[Staple1600]

Re

Dans le lien que j'ai mis, il y a plusieurs fichiers exemple
Aucun ne te convient?
Notamment un de ceux proposés par kjin

Questionnaire à choix multiples

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

www.excel-downloads.com

 

[Dranreb]

Bonjour.
Une proposition.

 

[M2C2]

Merci infiniment à tous les deux
Je vais regarder ça mais j'utilise la Pack 365 sur Mac et ce que je découvre, c'est que ActiveX n'est pas aisément utilisable sur Mac !
Tout ça est trop compliqué pour mon petit besoin ... Je vais continuer à produire mes sujets "A la main" !
Merci encore pour votre aide

 

[Staple1600]

Re

[Suggestion en passant]
Tu peux renseigner dans ton profil, quelle version d'Excel tu utilises.
Cela permet d'apporter des réponses qui prennent en compte ce paramètre.

Cela se passe ici:

https://www.excel-downloads.com/account/account-details

[/Suggestion en passant]

 

[Dranreb]

Ah les Mac … Quelle calamité !
Et avec un contrôle de formulaire ça va mieux ?

 

[M2C2]

Rhooooooo ... C'est -presque- le Nirvana !-)
Si je pouvais abuser ... C'est possible d'avoir le même mais avec deux changements :
1) le bouton sur la 1ere page
2) quand on clic dessus, il créer un nouvel onglet à la date du jour avec 45 questions tirées au hasard, parmi un total de 82 qui se situent sur la 1ere page

J'ai beau regarder votre code VBA ... j'y comprend couic !

 

[Dranreb]

Voir le module de classe ListeAléat pour trouver les explications pour chaque méthode de ce type d'objet.
Le bouton peut être mis ailleurs.
Changez la procédure comme suit :

Sub Tirage()
   Dim Wsh As Worksheet, NomPlage As String, RngSrc As Range, RngCbl As Range, N As Byte
   Set Wsh = ThisWorkbook.Worksheets.Add
   Wsh.Name = Format(Date, "dd-mm-yyyy")
   Set RngCbl = Wsh.[A1]
   Randomize
   With New ListeAléat
      .Init 85
      For N = 1 To 45
         NomPlage = "Question" & Format(.Aléat(N), "00")
         On Error Resume Next
         Set RngSrc = Feuil1.Range(NomPlage)
         If Err Then MsgBox " Plage """ & NomPlage & """ inaccessible.", vbCritical, "Tirage": Exit Sub
         On Error GoTo 0
         RngSrc.Copy Destination:=RngCbl
         Set RngCbl = RngCbl.Offset(RngSrc.Rows.Count)
         RngCbl.Resize(, 2).ClearContents
         Set RngCbl = RngCbl.Offset(1)
         Next N
      End With
   RngCbl.Resize(50, 2).ClearContents
   End Sub

 

[M2C2]

Merci infiniment pour votre aide : je vais gagner beaucoup de temps dans la réalisation de mes sujets !
Bravo à ce forum très dynamique

 

[M2C2]

Je viens d'intégrer votre code, @Dranreb et cela fonctionne parfaitement : me voilà un enseignant heureux !
Merci encore et bravo pour votre compétence et votre générosité !
Me voilà "Supporter XLD Bronze" de votre Forum