Excel pour reviser

Bonjour a tous,

Ma question va peut être paraitre facile a beaucoup mais quand on est novice....

Je cherche a faire un Excel simple pour faire des révisions.

Dans la colonne A : la liste des questions que je puisse allonger au fur et a mesure de mes révisions

Dans la colonne B : la liste des réponses (en face des questions)

Dans la colonne D :

- une première case a cliquer, quand on clique dessus une question s'affiche de façon aléatoire de la liste colonne A dans une case a coté

- une seconde case a cliquer (ou la même avec un second clique), quand on clique dessus la réponse a la question posée s'affiche dans une case a coté

Le plus serait que lors d'une série la même question ne se répète pas.

Merci à tous

Bonjour masoyann, le forum,

Un début de réponse.....

Doubleclic en E3 pour la question

Doubleclic en E5 pour la réponse

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim question As String, reponse As String
  Dim derlig As Integer, lig As Integer
  Dim plageR As Range

       derlig = Range("B" & Rows.Count).End(xlUp).Row
   Set plageR = Range("B4:C" & derlig)

   If Not Application.Intersect(Target, Range("E3")) Is Nothing Then
         lig = Int(derlig * Rnd) + 1
    question = Range("B" & lig).Value: Range("F3") = question: Range("F5").ClearContents
   End If

    If Not Application.Intersect(Target, Range("E5")) Is Nothing Then
     On Error Resume Next
     If Range("F3") <> "" Then reponse = WorksheetFunction.VLookup(Range("F3"), plageR, 2, False)
       Range("F5") = IIf(IsError(reponse), "", reponse)
    End If
End Sub


Cordialement,

Merci xorsankukai Cela repond bien a ma recherche, bonne fin de week end

Rechercher des sujets similaires à "reviser"