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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #2

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.

 

Pièces jointes

• Calculs_v3.xlsm

  27.1 KB · Affichages: 4

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 25 Février 2020

• #3

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

 

Dernière édition: 25 Février 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #4

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.

VB:

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

 

Pièces jointes

• Calculs_v4.xlsm

  27.5 KB · Affichages: 3

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 25 Février 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #6

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.

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 25 Février 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #8

Soir vous mettez :

VB:

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

VB:

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

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 25 Février 2020

• #9

Je viens de tester:

VB:

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #10

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 :

VB:

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

ou

Code:

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

Ai je raté quelque chose ?

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 25 Février 2020

• #11

J'ai réussi:

VB:

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #12

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #13

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

VB:

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 )

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 25 Février 2020

• #14

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 ?

 

Pièces jointes

• Calculs_v5.xlsm

  24.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Février 2020

• #15

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

VB:

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

 

Pièces jointes

• Calculs_v6.xlsm

  27.3 KB · Affichages: 2

Vote positif 0 Vote négatif