Générer aléatoirement une question

[altefqhatre]

Bonjour,

Je vais devoir passer un examen sous forme de "questions à choix multiples".

Ayant déjà développer en vba, geek comme je suis, je me demandais s'il était possible de répertorier toutes les questions possibles avec leurs réponses respectives et de créer une macro qui en pioche une aléatoirement. Ceci me servirai d'entraînement en quelques sortes

J'ai lu plusieurs postes concernant des nombres générés automatiquement, mais je n'ai rien trouver à propos de phrases entières.

Je pense bien qu'il faudrait que je les écrive toutes dans un code, mais comment les générer une par une de façon aléatoire?

Merci d'avance!

a++

 

[Pierrot93]

Re : Générer aléatoirement une question

Bonjour,

peut être placer tes phrases sur une feuille de calcul plutot que directement dans le code.... ensuite tu tires aléatoirement un numéro qui correspondrait à un numéro de ligne.... A voir...

bon après midi
@+

 

[CBernardT]

Re : Générer aléatoirement une question

Bonjour,

tirage aléatoire de questions tirées d'une liste de question jusqu'à épuisement des questions. Aucune répétition de question pendant la série en cours.

 

[altefqhatre]

Re : Générer aléatoirement une question

Bonjour et merci beaucoup pour vos réponses

J'en profite pour demander autre chose.

J'ai attribué un nom à la plage de cellules contenant la question 1. Est-il possible d'afficher une référence dans une msgbox?

Merci!

a++

 

[Pierrot93]

Re : Générer aléatoirement une question

Bonjour,

Est-il possible d'afficher une référence dans une msgbox?

de quelle référence veux-tu parler ???

@+

 

[altefqhatre]

Re : Générer aléatoirement une question

J'ai nommé la plage "A1:C3" en "Question1".

Je voudrais savoir s'il est possible d'afficher le contenu de cette référence dans une MsgBox

 

[Pierrot93]

Re : Générer aléatoirement une question

Re,

peut être ceci :

MsgBox Range("maplage").Name

mais pas sûr que ce soit se que tu veux....

 

[altefqhatre]

Re : Générer aléatoirement une question

Effectivement c'est pas tout à fait ça Pierrot ;-)

Cette MsgBox me renvoie: "=QuestionsALL!$A$1:$B:6"

Je crois que je me complique la vie enfait à vouloir utiliser des références... lol

Bernard merci pour ton code qui fonctionne parfaitement

J'essaye maintenant d'insérer la réponse à la question affichée en appuyant sur OK dans la MsgBox.

La réponse se trouve dans la cellule à droite de chaque question.

Malheureusement je n'arrive pas à renvoyer cette valeur via une MsgBox.

Voilà comment j'ai procédé:

Dim Derlig As Integer, i As Byte, Tablo, Coll As Collection, Y As Byte
' Mise en tableau ddes questions
With Sheets("Questions")
Derlig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:A" & Derlig)
' Tirage des joueurs
Set Coll = New Collection
Do
    Y = Int((UBound(Tablo, 1) * Rnd) + 1)
    On Error Resume Next
    Coll.Add Tablo(Y, 1), CStr(Tablo(Y, 1))
    If Err.Number = 0 Then
    
  MsgBox Tablo(Y, 1), , ("Question")
  
   MsgBox Tablo(Y, 1).Offset(0, 1).Value, ("Réponse")                Cette ligne ne réagit pas, rien ne se passe :-(
    
    'Message pour la prise de décision d'imprimer des pages de la première feuille
    If MsgBox(("Voulez-vous passer à la question suivante ?"), vbQuestion + vbYesNo, ("Confirmation")) = vbNo Then Exit Sub
    On Error GoTo 0
    
    End If
    
     
    
Loop Until Coll.Count = UBound(Tablo, 1)
End With

Merci du coup de main en tout cas!

 

[Pierrot93]

Re : Générer aléatoirement une question

Re,

regarde ceci :

Dim c As Range, p As String, s() As String, t
s = Split(Mid(Range("maplage").Name, 2), "!")
For Each c In Sheets(s(0)).Range(s(1))
    t = t & c.Value & vbLf
Next c
MsgBox t

bon après midi
@+

 

[Pierrot93]

Re : Générer aléatoirement une question

Re,

devrait suffire si plage dans classeur actif..;

Sub Test2()
Dim c As Range, t As String
For Each c In Range("maplage")
    t = t & c.Value & vbLf
Next c
MsgBox t
End Sub

@+

 

[kjin]

Re : Générer aléatoirement une question

Bonjour le fil,
Ce lien peut peut-être t'aider...
A+
kjin

 

[CBernardT]

Re : Générer aléatoirement une question

Bonjour,

Une amélioration pour avoir oui ou non la réponse

 

[altefqhatre]

Re : Générer aléatoirement une question

Merci beaucoup à tout le monde!

Voilà le code final, ajusté à mes besoins:

Sub Aléatoire()

Dim Derlig As Integer, i As Byte, Tablo, Coll As Collection, Y As Byte
' Mise en tableau ddes questions
With Sheets("QUESTIONS")
Derlig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:B" & Derlig)
' Tirage des joueurs
Set Coll = New Collection
Do
    Y = Int((UBound(Tablo, 1) * Rnd) + 1)
    On Error Resume Next
    Coll.Add Tablo(Y, 1), CStr(Tablo(Y, 1))
    If Err.Number = 0 Then
    ' Question
    If MsgBox(Tablo(Y, 1) & vbLf & vbLf & "Pour obtenir la réponse à la question, cliquer sur 'Oui.", vbYesNo, ("Question")) = vbYes Then
    ' Réponse
    MsgBox Tablo(Y, 1) & Chr(13) & Chr(13) & Chr(13) & "Réponse:" & Chr(9) _
     & Chr(9) & Tablo(Y, 2), vbOKOnly, "Réponse à la question"
    End If
    'Message pour passer ou non à la question suivante
    If MsgBox(("Voulez-vous passer à la question suivante ?"), vbQuestion + vbYesNo, ("Confirmation")) = vbNo Then Exit Sub
    On Error GoTo 0
    End If
Loop Until Coll.Count = UBound(Tablo, 1)
End With

End Sub

a++