Création d'un quizz sous Excel

[okbast]

Bonjour à tous 🙂

Je débute sur les macros, et je souhaite créer un petit quizz (ici pour des traductions en anglais).

Je m'explique :

J'ai mis dans la colonne B des mots en anglais, et dans la colonne C, leur traduction en français correspondante. (sur la même ligne)

Je souhaiterai grâce à un macro, pouvoir cliquer une premiere fois sur un bouton, pour qu'il m'affiche un des mots de ma colonne B au hasard (en anglais), et une deuxieme fois sur ce même bouton, pour que dans la case d'à coté, il m'affiche sa traduction en français.

J'ai mis mon fichier en pièce jointe pour que ça soit plus simple à comprendre.
J'ai essayé de faire un petit macro, mais ça ne marche pas terrible... En cliquant sur le bouton, il m'affiche le mot dans les deux langues, mais le pire c'est que les traductions ne correspondent pas 😱

Merci d'avance ! 🙂

 

[Staple1600]

Re : Création d'un quizz sous Excel

Bonsoir à tous


okbast
As-tu trouver de l'inspiration tout en bas de cette page ?

 

[okbast]

Re : Création d'un quizz sous Excel

Merci de votre réponse.

J'ai regardé les différents topics proposés, mais ça ne m'a pas aidé du tout...
Je débute vraiment sur les macros (il s'agit de mon premier !), donc je ne connais pas du tout le langage VBA... 🙂

 

[Staple1600]

Re : Création d'un quizz sous Excel

Re,

OK, alors bienvenue sur le forum et dans le vaste monde d'Excel et du VBA.

PS1/ Peux-tu joindre plutôt une version *.xls, ainsi plus de monde sera susceptible de t'aider.

PS2/: Je repasse plus tard car ce soir j'ai pas trop le temps de rester sur le forum mais d'autres viendront te filer un coup de main .

 

[mapomme]

Re : Création d'un quizz sous Excel

Bonsoir okbast et bienvenu 🙂, Staple1600, le forum,

Un exemple (sans code VBA) dans le message
Création de questionnaire d'apres Base de données #2.
Télécharger le fichier et suivez les indications du message.

NB: si vous le désirez, on peut rajouter un bouton.

 

[mapomme]

Re : Création d'un quizz sous Excel

(re)Bonsoir,

Avec comme base votre fichier.

Un clique sur le bouton lance la macro TestMot() dans le Module1.

Option Explicit

'variable de module conserve sa valeur entre deux appels de testmot()
'Premier = True si on a affiché un mot anglais à traduire
'Premier = false si on a affiché la traduction

Dim Premier As Boolean

Sub TestMot()
If Premier Then
  'on affiche la traduction en utilisant directement les fonctions
  'de Excel par le biais de Application.WorksheetFunction
  Range("H2") = Application.WorksheetFunction.Index(Range("motfr"), _
      Application.WorksheetFunction.Match(Range("G2"), Range("MotGB"), 0))
  'la seconde étape (traduction affichée) est faite
  Premier = False
Else
  'on efface la traduction française précédente
  Range("H2") = ""
  'on affiche le mot anglais à traduire en utilisant directement les fonctions
  'de Excel par le biais de Application.WorksheetFunction
  Range("G2") = Application.WorksheetFunction.Index(Range("MotGb"), _
      Application.WorksheetFunction.RandBetween(1, Range("MotGb").Rows.Count))
  'la première étape (mot à traduite) est faite
  Premier = True
End If
    
End Sub

 

[okbast]

Re : Création d'un quizz sous Excel

Wouah merci beaucoup, c'est exactement ce qu'il me fallait ! 😀

Je vais me pencher sur le macro pour voir de plus près ce que vous avez fait, pour pouvoir le reproduire ensuite.

Encore merci 🙂