VBA, Utilisation de la fonction Offset

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

Bonjour,

On peut avoir ton fichier Excel ?

Bonjour,

Voici le fichier, la macro figure tout en haut.

Merci par Avance

Re,

Essaye ça pour une traduction Allemand en Français et adapte-le si besoin est :

Sub ChoixAleatoire()
    Dim Plage As Range
    Dim Valeur As String
    Dim lig As Integer
    Set Plage = Range("A1:A100")
    Valeur = Plage(Int(100 * Rnd) + 1)
    lig = WorksheetFunction.Match(Valeur, Plage, 0)
    MsgBox ("La traduction pour le mot : " & Valeur & " est : " & Range("B" & lig))
End Sub