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,