XL 2019 VBA-Tirage aléatoire avec condition else qui plante

VBA_Florent

XLDnaute Nouveau
Bonjour,

Afin de m'améliorer en anglais je me suis fait un petit programme pour 100 mots. Une inputbox s'ouvre et si la traduction est bonne, le mot se marque en vert dans la collone E.
Et si le mot est faux il se met en rouge, mais voila quand je mets else <> de la valeur le programme plante et m'insère 100 lignes en rouge.
Très cordialement.

Private Sub CommandButton1_Click()
Dim t(1 To 100)
j = 0
For i = 1 To 100
If Cells(i, 1) <> "" Then
j = j + 1
t(j) = Cells(i, 1)
End If
Next i
Randomize
Z = InputBox(t(Int(j * Rnd) + 1))

For i = 1 To 100
If Z = Cells(i, 2) Then
MsgBox "Bravo"
Cells(1, 5).Insert
Cells(1, 5).Interior.ColorIndex = 4
Cells(1, 5) = Z
End If
Next i

End Sub
 

Discussions similaires

Réponses
17
Affichages
339

Statistiques des forums

Discussions
298 010
Messages
1 965 113
Membres
200 852
dernier inscrit
Cés39