1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub CommandButton1_Click()
Dim Result As String
Dim var(8) As Variant
Range("B2:B5").Select
Selection.ClearContents 'raz du résultat précédent
encore:
Result = 0
For t = 2 To 8
var(t) = Int(2 * Rnd()) 'défini aléatoirement les lignes de valeurs qui vont être additionnées
Next t
For t = 2 To 8
If var(t) = 1 Then Result = Result + Cells(t, 1) 'fait la somme des valeurs dont les lignes ont été choisies
Next t
If Result <> Cells(1, 3) Then GoTo encore 'test la somme des valeurs
For t = 2 To 8
If var(t) = 1 Then Cells(t, 2) = Cells(t, 1) 'renvoi les valeurs dont la somme a donné un bon résultat
Next t
End Sub |
Partager