[VBA] Tableau exercices de soustraction ; validation d'étapes

[Fredox]

Bonjour,
Je créé ce tableau pour des exercices de soustraction, 10 calculs. A la fin du premier calcul j'aimerais enregistrer sur le tableau mis à coté l'exercice, le résultat, puis passer à l'exercice 2 et ainsi de suite.
Je suis en panne pour incrémenter ma série, changer le ligne dans le tableau de suivi...
Je pense que le dérouler parle de lui même.

Un p'tit coup de main me ferais du bien, je joint le fichier.

Merci

 

[sylvanu]

Bonjour Fredox,
Un essai en PJ.
J'ai essayé de toucher le moins possible à votre code.
A testez, n'hésitez pas si un truc cloche.

 

[Fredox]

Bonjour sylvanu,
Très bien, cela fonctionne comme souhaitez, en plus tu as mis un bouton de remise à zéro.
J'aimerais une chose en plus:
- Arrivé à 10 calculs, une fenêtre s'ouvre pour donner le score + OK égal remise à compteur à 0

Tu crois que c'est possible ?

Merci encore

 

[sylvanu]

Re,
La fenêtre est gérée par ce petit bout de code. Voir PJ.
Vous pouvez l'agrémenter de commentaires comme il vous sied.

If compteur = 11 Then
    MsgBox [NoteFinale], , "Note finale"
    Init
    Exit Sub
End If

 

[Fredox]

Superbe,
Merci beaucoup sylvanu, c'est parfait !
Juste quelques retouches visuelles et ce sera Nickel!

 

[sylvanu]

Changer la place du bouton Nouveau jeu".
A plusieurs reprises j'ai appuyé sur ce bouton au lieu de calcul suivant.
Leur proximité porte à confusion.

 

[Fredox]

J'abuse: Si pour le compteur je ne veux pas 11 mais le contenu d'une cellule, je mets quoi ?

 

[sylvanu]

Soir vous mettez :

If compteur = 11 Then
    MsgBox Range("AB1"), , "Note finale"  ' si la cellule AB1 contient la valeur'
    Init
    Exit Sub
End If

Soit vous appelez cette cellule par exemple MaxDésiré et vous mettez

If compteur = 11 Then
    MsgBox [MaxDésiré], , "Note finale" 
    Init
    Exit Sub
End If

 

[Fredox]

Je viens de tester:

If compteur = 11 Then
    MsgBox Range("R3"), , "Note finale"
    Init
    Exit Sub
End If

Cela joue sur la note, je veux en fait modifier le nombre de question

Merci

 

[sylvanu]

Si dans une cellule vous mettez le nombre max de questions.
Par exemple, si vous mettez 5 la note sera par ex de 4/5. Elle est bonne.
Vous pouvez la ramener sur 10 en faisant 10*4/5. En O12 vous mettez :

="Note: "&ENT(10*SOMME(L3:L12)/NB(J3:J12))&"/10"

ou

="Note: "&ARRONDI((10*SOMME(L3:L12)/NB(J3:J12));0)&"/10"

Ai je raté quelque chose ?

 

[Fredox]

J'ai réussi:

If compteur = Range("R3").Value + 1 Then
    MsgBox [NoteFinale], , "Note finale"
    Init
    Exit Sub
End If

J'avais en fait fait une erreur de référence.

Merci

 

[sylvanu]

🙂

 

[sylvanu]

C'est joli.
Mais ce clignotement n'est pas très beau et ralentit le systeme.
Rajoutez ça :

Sub Soustraction()
Application.ScreenUpdating = False    '<<<<<<<<<<  A rajouter'

Le clignotement sera supprimé, et surtout ça ira beaucoup plus vite.
( Application.ScreenUpdating = False fige l'affichage. Il redevient True à la fin de la macro )

 

[Fredox]

C'est fait, merci.
Je me demandais s'il est possible de désactiver le bouton "Calcul suivant" tant que le résultat a saisir est égal à zéro ?

 

[sylvanu]

J'ai appelé la cellule B8 DataEntrée. Si elle est vide ou égale à 0, on sort sans rien faire.

' On sort si le résultat n'est pas affiché
    If [DataEntrée] = 0 Or [DataEntrée] = "" Then Exit Sub