Bonne année à toutes et tous,
je vous soumet un petit problème qui m'est insurmontable et qui m'a empêché de trouver le sommeil hier soir
ci-joint le fichier et le code
Merci d'avance
je vous soumet un petit problème qui m'est insurmontable et qui m'a empêché de trouver le sommeil hier soir
ci-joint le fichier et le code
Code:
Public Sub bouton_Click()
Dim tirage
Dim casedelete
Randomize ' Initialise le générateur de nombres aléatoires.
tirage = Int((26 * Rnd) + 1) ' Renvoie une valeur aléatoire comprise entre 1 et 26.
casedelete = 1 + tirage 'parce que la première lettre de l'alphabet est dans la colonne "2"
Cells(9, casedelete).Select 'pour mettre la lettre sélectionnée
Selection.Font.ColorIndex = 35 ' de la même couleur que le fond
Range("f20").Select 'cache la cellule active derrière le graphe
Range("f20").Value = Cells(9, casedelete).Value ' et y met le résultat
UserForm1.Show 'affiche la boite de saisie de la réponse
End Sub
__________________________________________________________________________________________
Public Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Range("f19").Value = Chr(KeyAscii)
If Range("f19").Value = Range("f20").Value Then 'teste si BONNE REPONSE
TextBox1.Text = "BRAVO"
Cells(3, 15).Value = Cells(3, 15).Value + 1 ' incrémente la case "bonnes réponses"
End If
If Range("f19").Value <> Range("f20").Value Then ' TESTE SI MAUVAISE REPONSE
TextBox1.Text = "ERREUR"
Cells(4, 15).Value = Cells(4, 15).Value + 1 ' incrémente la case "réponses fausses "
End If
Application.Wait (Now + TimeValue("00:00:03")) ' delai d'affichage de 3 secondes
TextBox1.Text = "" ‘ efface le contenu en vue de l’utilisation suivante
' jusqu'ici tout fonctionne, ça bloque à la ligne suivante
[COLOR="Red"]Cells(9, casedelete).Select[/COLOR]
Selection.Font.ColorIndex = 0 ‘pour faire réapparaitre la lettre qui avait été « cachée »
Range("f20").Select 'cache la cellule active derrière le graphe
UserForm1.Hide
End Sub
Merci d'avance