Bonjour,
J'ai utiliser la fonction Rnd pour selectionner une valeur aléatoire entre A1 et B100
La valeur selectionné est un mot et à coté de celui-ci figure sa traduction, j'aimerai savoir comment utiliser la fonction Offset afin de pouvoir afficher la traduction du mot généré par la fonction Rnd
Voici ma macro fonctionnant a moitié
Sub ChoixAleatoire()
Dim Plage As Range
Dim Valeur As String
Dim Reponse As String
Dim Traduction As String
Set Plage = Range("A1:B100")
Valeur = Plage(Int(100 * Rnd) + 1)
Traduction = Valeur.Offset(0, 1)
Reponse = InputBox("Quelle est la traduction pour le mot " & " (" & Valeur & ")")
MsgBox ("La reponse est " & " (" & Traduction & ")")
End Sub