XL 2019 inserer un compteur dans une macro VBA

[Olivier GUILLOT]

Bonjour à toutes et à tous.

Je me suis créé une application pour effectuer des exercices de calcul mental …. au demeurant, je partage le fichier car je pense que c'est un exercice indispensable à nos neurones….

Je joins le fichier pour etre plus clair :
le tableau détermine de manière aléatoire deux nombres, qui après application d'une macro qui va recalculer la feuille va permettre de valider ou non la réponse.

Le but du fichier est de répondre à la question aléatoire addittionnant deux chiffres aléatoire, cette proposition est copié-collée en valeur pour conserver la question, le bouton calcul! va relancer le calcul et afficher la réponse bonne ou fausse avec un smiley correspondant : un L ou un J avec la police Windings..

J'ai du procédé par une macro faisant un copier-coller de valeur car toute action à une influence sur la fonction ALEA et ne permet donc pas de conserver la proposition de la recherche.

Je souhaite créer un compteur qui parte de 0 pour incrémenter les bonnes et les mauvaises réponses au fur et à mesure des réponses dans les cellules F10 et F11 sans que le calcul remette le compteur à 0 : le but est d'afficher le taux de bonne réponses dans la cellule F12

Je sèche un peux sur la formule VBA mais je serai tenté par un IF… THEN...

Qu'en pensez vous ?

Merci de vos contributions…. en retour, je propose de diffuser librement ce tableur….

Bonne journée.

Olivier

 

[Claudy]

Bonjour,
en H2 =B2+D2 , que tu colores en blanc...pour rendre invisible,
et dans ton code, au début, avant ' Mettre à zéro les compteurs

If Range("H2").Value = Range("F2").Value Then
Range("F10") = Range("F10") + 1
Else
Range("F11") = Range("F11") + 1
End If
' Mettre à zéro les compteurs

A+
Claudy

 

[Olivier GUILLOT]

Bonjour,
en H2 =B2+D2 , que tu colores en blanc...pour rendre invisible,
et dans ton code, au début, avant ' Mettre à zéro les compteurs

If Range("H2").Value = Range("F2").Value Then
Range("F10") = Range("F10") + 1
Else
Range("F11") = Range("F11") + 1
End If
' Mettre à zéro les compteurs

A+
Claudy

Merci Claudy,

Hormis la référence des cellules que j'ai modifié avec mon tableau, la fonction fonctionne parfaitement.

Merci beaucoup.

Pour info, j'utilise beaucoup les VBA en enregistrant les macro… ce qui limite la compréhension des formules à saisir.

votre aide m'a apporté un éclairage….

 

[Claudy]

Bonsoir,
de retour maison...
C'est aussi comme ça que j'ai débuté il y a 20 ans...et j'ai découvert ce forum qui m'a donné beaucoup de trucs et astuces.
Ha oui autre conseil:

Application.Calculation = xlManual
à la fin de ta macro:

Application.Calculation = xlCalculationAutomatic

Bonne soirée,
Claudy