XL 2019 Création prog. questions réponses

[MINDMAP007]

Bonjour,
je suis à la recherche d'un petit programme me permettant de :

- créer des questions avec des réponses prédéfinies, avec une sélection vrai faux, avec choix multiples

Lorsque l'apprenant fait faux la question revient de manière aléatoire dans la liste des questions

J'ai cherché sur le site mais pas trouvé qqc correspondant à ce besoin.

Qqn pour me donner un support ?
Cordialement
bonne soirée
SID010517

 

[Staple1600]

Bonsoir le fil

MINDMAP007
Tu as regardé dans la section RESSOURCES du forum ?
Tu devrais trouver des exemples.

PS: Adepte du mindmapping?

 

[MINDMAP007]

Bonjour,
Oui adepte du mindmapping mais aussi de créativité et idées innovantes, ce qui m'a amené sur ce site.
Après un 2ème passage, je ne trouve toujours pas qqc sur le sujet que je recherche
Il n'y a pas un prog. qui permet de gérer les réponses fausses qui reviendrait dans la liste des questions.

 

[mapomme]

Bonjour @MINDMAP007, @Staple1600 ,

Pour le fun, voir le fichier joint...

Les codes sont le module:

• de ThisWorkbook
• de la feuille "Feuil2"
• de module m_QCM

 

[MINDMAP007]

Merci mapomme ça a l'air bien je vais tester tout cela.
bonne journée
Mindmap007

 

[MINDMAP007]

Bonjour mapomme,

c'est bien ce que je cherche mais comment je fais pour mettre mes propres questions / réponses ?
Bon we

 

[Pounet95]

Bonjour,
Il y a une feuille cachée à l'ouverture du fichier.
Les questions/ réponses y sont.
Pour modifier, il faut manipuler le VBA et demander éventuellement l'autoris

 

[Usine à gaz]

Bonjour MINDMAP007, mapomme, Pounet95 ... le Forum,

J'ai modifié le fichier pour montrer les feuilles et donc Feuille1 à adapter selon votre souhait
Code ThisWorkbook à modifier comme ceci :

Option Explicit
Private Sub Workbook_Open()
   Sheets("Feuil1").Visible = True
   Sheets("Feuil2").Visible = True
   'Sheets("Feuil1").Visible = xlSheetVeryHidden
   With Sheets("Feuil2")
      .Activate
      .Range("a1:e7").ClearContents
      .Range("L1:L3").ClearContents
      .cbDeb.Visible = True
      .cbFin.Visible = False
      .cbRep.Visible = False
   End With
End Sub

à remettre ensuite comme ceci :

Option Explicit
Private Sub Workbook_Open()
   Sheets("Feuil1").Visible = xlSheetVeryHidden
   With Sheets("Feuil2")
      .Activate
      .Range("a1:e7").ClearContents
      .Range("L1:L3").ClearContents
      .cbDeb.Visible = True
      .cbFin.Visible = False
      .cbRep.Visible = False
   End With
End Sub

Fichier joint,
lionel,

 

[mapomme]

Bonjour @MINDMAP007 ,

c'est bien ce que je cherche mais comment je fais pour mettre mes propres questions / réponses ?

Je n'avais fourni aucune explication attendant votre réponse. Maintenant, je vais le faire. @Pounet95 et @arthour973 ont trouvé la réponse .

Il existe une feuille cachée qui est "très cachée". Pour la faire apparaitre (sans macro VBA) :

1. Aller dans l'éditeur VBA
2. Dans la fenêtre projet, sélectionnez la feuille "Feuil1" (celle qui est cachée)
3. Afficher la fenêtre des propriétés (touche F4) si elle ne l'est pas
4. Dans la fenêtre propriété, aller sur la propriété "Visible"
5. Affecter la propriété "xlsheetVisible"
6. La feuille "Feuil1" redevient visible
7. Voir l'image jointe

Dans cette feuille "Feuil1", la liste des questions est présente avec les réponses possibles.
La liste des questions débute en ligne 1.

Pour chaque question:

• Le texte de la question est en colonne A
• Les réponses possibles (de 1 à 4) sont en colonne B jusqu'en colonne E au maximum
• La réponse en colonne B est la bonne réponse

A vous d'inscrire les questions désirées et leur réponses.

Quand on pose une question:

• l'ordre d'affichage des réponses est aléatoire (l'utilisateur ne peut pas retenir visuellement le placement des réponses erronées précédentes)
• quand une réponse est bonne, on retire la question de la liste des questions restantes à poser
• L'ordre des questions posées est aléatoire

edit : Bonjour @Pounet95 , @arthour973

 

[mapomme]

Re,

Si quelqu’un le désire, je peux commenter le code...

 

[Staple1600]

Bonjour mapomme

Désolé, j'avais mal lu (pas mes lunettes)
J'avais compris
"Si quelqu'un me désire, je peux affrioler son code "

Ok je sors

(mais c'était juste pour le plaisir de te croiser )

 

[mapomme]

Bonjour @Staple1600 ,

J'avais compris
"Si quelqu'un me désire, je peux affrioler son code "

Toute proposition sera examinée avec bienveillance et sans opinion préconçue