feuilles avec différents calculs simples qui se corrige elle-même par simple clic ...

[hervoul]

Bonjour les Xlnautes...🙂
Voilà,
Parce que ma petite fille de 8 ans me demande sans arrêt des calculs ainsi que leurs corrections....j'ai pensé construire une feuille qui, à l'aide de boutons à cliquer par exemple :
1) génèrerait des séries de calculs des + simples aux plus complexes (niveau primaire seulement ...🙄)
2) corrigerait les résultats
3) archiverait les résultats (stats + note/10 ou 20) afin de noter les progressions
voilà😕
Rvoul
PS : voilà le fichier joint, pour voir à peu près l'interface de la feuille. je me débrouillerai pour rendre tout cela plus esthétique + tard.
Je cherche pour l'instant les formules ou autres...pour tout ou partie des 3 problèmes (générer des calculs; repérer les erreurs; archiver des stats)
je suis aussi ouvert à vos propositions...(éventuellement trop compliqué à mettre en place...hemmm)
Merci

 

[hervoul]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

🙄 ...j'ai trouvé ce dont j'avais besoin en fouillant un peu sur votre merveilleux forum....

1) J'ai cependant besoin de votre aide pour étendre la formule sur plusieurs lignes...
et oui...😕 je suis toujours aussi mauvais... mais ce qui est acquis n'est plus a faire....(normalement...😱)
2) Je voulais aussi faire la meme chose avec des soustractions et des divisions (sur des onglets différents)
3) ...pour + tard, quelles modifications doit on faire pour générer non plus des chiffres de 1 à 10 mais de 1 à 100?

voir fichier joint (les questions sont aussi sur la feuille)
merci
RVoul

 

[Pierrot93]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Bonjour,

regarde peut être ceci si cela peut te faire avancer...

Dim i As Byte
For i = 9 To 27
    Cells(i, 3).Value = Int(100 * Rnd) + 1
    Cells(i, 4).Value = Choose(Int(4 * Rnd) + 1, "+", "-", "*", "/")
    Cells(i, 5).Value = Int(100 * Rnd) + 1
Next i

bon après midi
@+

 

[Pierrot93]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Re,

pour éviter les nombres négatifs :

Dim i As Byte
Randomize
Range("C9:G27").ClearContents
For i = 9 To 27
    Cells(i, 3).Value = Int(100 * Rnd) + 1
    Cells(i, 4).Value = Choose(Int(4 * Rnd) + 1, "+", "-", "*", "/")
    Do While Cells(i, 5).Value > Cells(i, 3).Value Or Cells(i, 5).Value = 0
        Cells(i, 5).Value = Int(100 * Rnd) + 1
    Loop
    Cells(i, 6).Value = "="
Next i

 

[Pierrot93]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Re,

on peut même faire un test pour sur le reste de la division :

Dim i As Byte
Randomize
Range("C9:G27").ClearContents
For i = 9 To 27
    Cells(i, 3).Value = Int(100 * Rnd) + 1
    Cells(i, 4).Value = Choose(Int(4 * Rnd) + 1, "+", "-", "*", "/")
    Do While Cells(i, 5).Value > Cells(i, 3).Value Or Cells(i, 5).Value = 0
        Cells(i, 5).Value = Int(100 * Rnd) + 1
        If Cells(i, 4).Value = "/" Then If Cells(i, 3).Value Mod Cells(i, 5).Value > 0 Then Cells(i, 5).Value = 0
    Loop
    Cells(i, 6).Value = "="
Next i

 

[hervoul]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

merci beaucoup, je vois ça demain...
hemm... 😕 les divisions et les soustractions sont bien sur les autres onglets? je copie ces codes sur les onglets? n'est-ce-pas?
merci
Rvoul

 

[hervoul]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Hello,
Là désolé, j'y suis pas...j'ai du oublier quelque chose...ou manquer quelque chose...😕
Peux tu copier sur l'exemple "calculator" STP ?
Je te remercie...
RVoul

 

[Pierrot93]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Bonjour,

code placé dans ton fichier... en lien et place de celui que tu avais mis...

Dim i As Byte
 Randomize
 Range("C9:G27").ClearContents
 For i = 9 To 27
     Cells(i, 3).Value = Int(100 * Rnd) + 1
     Cells(i, 4).Value = Choose(Int(4 * Rnd) + 1, "+", "-", "*", "/")
     Do While Cells(i, 5).Value > Cells(i, 3).Value Or Cells(i, 5).Value = 0
         Cells(i, 5).Value = Int(100 * Rnd) + 1
         If Cells(i, 4).Value = "/" Then If Cells(i, 3).Value Mod Cells(i, 5).Value > 0 Then Cells(i, 5).Value = 0
     Loop
     Cells(i, 6).Value = "="
 Next i

bonne soirée
@+

 

[hervoul]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Re...
je suis désolé Pierrot93, je t'ai mis une copie d'ecran pour que tu voies le problème que j'ai...
j'ai bien mis le code en lieu et place del'ancien...
Et pourtant....😕
à+
RVoul

 

[Pierrot93]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Bonjour,

il faut une déclaration de procédure... et la fin...

bonne journée
@+

 

[hervoul]

Re : feuilles avec différents calculs simples qui se corrige elle-même par simple cli

Je te remercie et bon dimanche.
...désolé pour tout le dérangement...
RVoul