Questionnaire aléatoire

bonjour,

je n'ai pas trouvé mon bonheur donc je demande un coup de pouce.

je souhaite qu'une question me soit posée, et le clic d'après, la réponse s'affiche, puis re-question etc...

avec un exemple simple, la table des 3 (j'adapterai ensuite):

Les questions: Dans la colonne A1 à A50 : 3x1; 3x2; ...; 3; 6; 9; 12 ...

les réponses : dans la colonnes B1 à B50: 3; 6; ...; 3x1; 3x2; 3x3; 3x4; ...

je lance le questionnaire, une question s'affiche au hasard (A32 qui correspond à 3x6), j'y réfléchi, un clic, la réponse s'affiche (B32 = 18), je clic et nouvelle question etc..

il ne s'agit pas de table mais de code et de texte, mais j'adapterai.

merci

Bonjour,

Moi, je pense que l'on s'adaptera bien à ton fichier exemple, sinon t'es pas prêt de trouver ton bonheur.

Leakim

Leakim: C'est pas faux et c'est pas compliqué

Re,

J'espère que cela fera ton bonheur

'code de base de seb
'https://www.excel-pratique.com/fr/astuces_vba/generer_nombres_aleatoires
Option Explicit

Sub aleatoire()
Dim nb_alea As byte
Dim cel1 As String, cel2 As String

    'Initialiser le générateur de nombres aléatoires
    '=> Randomize : à ajouter avant d'utiliser Rnd pour obtenir des valeurs complètement aléatoires
    Randomize

    'Nombre aléatoire entier entre 1 et 50 :
    nb_alea = Int(22 * Rnd) + 1

    cel1 = Cells(nb_alea, 1)
    cel2 = Cells(nb_alea, 1).Offset(, 1)

    MsgBox cel1
    MsgBox cel2

End Sub

Sinon le fichier.

Leakim

Ça a l'air d'aller.

J'adapte par rapport à mes besoins et je confirme ça demain.

Merci beaucoup

Bonjour,

J'ai pensé que cela pouvait être plus dynamique comme ceci.

Sub aleatoire()
Dim nb_alea As Byte
Dim derlig As Long
Dim cel1 As String, cel2 As String

    'Initialiser le générateur de nombres aléatoires
    '=> Randomize : à ajouter avant d'utiliser Rnd pour obtenir des valeurs complètement aléatoires
    Randomize

    'Nombre aléatoire entier entre 1 et la dernière ligne de la colonne A :
    derlig = Range("A" & Rows.Count).End(xlUp).Row
    nb_alea = Int(derlig * Rnd) + 1

    cel1 = Cells(nb_alea, 1)
    cel2 = Cells(nb_alea, 1).Offset(, 1)

    MsgBox cel1
    MsgBox cel2

End Sub

Leakim

Bonjour,

j'ai fais des essais, c'est IMPECCABLE

je vous remercie beaucoup

bonne journée

Leakim