table de multipliquation

[kinny]

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

 

[Hieu]

Re : table de multipliquation

Salut Kinny,

Peux-tu fournir ton fichier excel ?

++

 

[kinny]

Re : table de multipliquation

le voici

c'est un peu brouillon

 

[kinny]

Re : table de multipliquation

Pour l'instant j'en suis a l'etape ou je dois mettre des chiffre aleatoirement en D13 et h13. dans la macro je vais jusqu'a 4

 

[Hieu]

Re : table de multipliCation

Re,

Dans un premier temps, tu as créé un set plage, puis un autre aussi nommé plage qui "écrase" le précédent !
C'est pourquoi tu n'as rien qui s'écrit dans "D13"

Edit : J'ai modifié le nom de la discussion

 

[kinny]

Re : table de multipliquation

merci hieu. c'est ou que je peux voir ce que tu as modifié

 

[Hieu]

Re : table de multiplication

Voilà comment je simplifierai ton code,

Private Sub commencer1_Click()
Range("D13") = WorksheetFunction.RandBetween(1, 4)
Range("H13") = WorksheetFunction.RandBetween(1, 4)
End sub

Ce qui est inutile, car, je pense, qu'il est tout aussi simple d'écrire ces formules directement dans les cellules.

 

[thebenoit59]

Re : table de multipliquation

Bonsoir Kinny, bonsoir Hieu.

Un exemple rapide d'une décomposition de procédures pour réaliser ce type de projet.
C'est très sommaire et brouillon et ça ne ressemble pas à grand chose, ça aura le mérite de t'aiguiller sur la méthodologie.

En somme :

On initialise le compteur de point et le numéro de la question.
On lance la procédure de choix aléatoire et nous nous plaçons sur la cellule de résultat.
Le résultat entré, on effectue automatiquement une vérification. Si c'est OK, on gagne 1 point, sinon on en perd 1.
La cellule en A1 est le compteur, en D1 le n° de la question.

 

[kinny]

Re : table de multipliquation

Ben en tout cas un grand merci ca marche niquel

 

[Hieu]

Re : table de multipliCation

Impeccable!!

 

[kinny]

Re : table de multiplication

presque parfait

 

[kinny]

Re : table de multiplication

serait il possible de relancer les multiplications automatiquement sans avoir a cliquer sur c parti

 

[kinny]

Re : table de multiplication

parcontre si je me trompe sur l'operation il me marque pas la bonne reponse attendu
exemple 1 x 2 il me marque que la réponse est 12

 

[Modeste geedee]

Re : table de multipliquation

Bonsour®
Vite fait pour le fun...


améliorations .. ???

 

[kinny]

Re : table de multipliquation

merci pour tout vos effort