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

hervoul · 27 Octobre 2011

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 · 28 Octobre 2011

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 · 28 Octobre 2011

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...

Code:

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 · 28 Octobre 2011

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

Re,

pour éviter les nombres négatifs :

Code:

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 · 28 Octobre 2011

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 :

Code:

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 · 28 Octobre 2011

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 · 29 Octobre 2011

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 · 29 Octobre 2011

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...

Code:

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 · 30 Octobre 2011

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 · 30 Octobre 2011

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 · 30 Octobre 2011

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

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

hervoul

XLDnaute Occasionnel

Pièces jointes

hervoul

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

hervoul

XLDnaute Occasionnel

hervoul

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

hervoul

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Pièces jointes

hervoul

XLDnaute Occasionnel

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

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Privacy & Transparency

Privacy & Transparency