Bonsoir à tous
j'aimerai faire une table de multiplication en vba pour ma fille en classe de ce1
Pour ce faire des chiffre ce place aléatoirement dans les cellules D13 et H13
1er soucis avec mon code: il n'y en a qu'un seul qui apparait.
En suite j'aimerais mettre un compteur de sorte que 1 bonne réponse = 1 point ; 1 mauvaise= -1 point
voila le code que j'ai commencé
Private Sub commencer1_Click()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("D13").Select
Set plage = Range("H13").Select
plage.Value = ""
If plage.Count > 4 Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 4)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
merci pour votre futur coup de main
j'aimerai faire une table de multiplication en vba pour ma fille en classe de ce1
Pour ce faire des chiffre ce place aléatoirement dans les cellules D13 et H13
1er soucis avec mon code: il n'y en a qu'un seul qui apparait.
En suite j'aimerais mettre un compteur de sorte que 1 bonne réponse = 1 point ; 1 mauvaise= -1 point
voila le code que j'ai commencé
Private Sub commencer1_Click()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("D13").Select
Set plage = Range("H13").Select
plage.Value = ""
If plage.Count > 4 Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 4)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
merci pour votre futur coup de main