Intersepter le clic gauche de la souris pour l'annuler

Question

Petit soucis sur une application : C'est un QCM, il y a un compte à rebours pour répondre aux questions, le choix de la réponse se fait par un clic sur une des 4 cellules correspondantes, à ce moment là que la réponse soit bonne ou pas, on affiche la nouvelle question avec les 4 nouvelles réponses et on relance le compte à rebours. Jusque là tout va bien. Lorsque le compte à rebours arrive à 0, alors on affiche la nouvelle question avec les 4 nouvelles réponses et on relance le compte à rebours. Jusque là tout va bien. Mais si pendant ce petit laps de temps, le joueur clic sur une des cellules de réponse, alors ce clic est "conservé" en mémoire, et lors de la fin d'affichage de la question suivante, le clic est "libéré" et empêche le joueur de jouer "correctement"... Ma question : lors du lancement de la macro de changement de question par le fait du compte à rebours à 0, est-il possible de "dire" à Excel de ne pas prendre en compte les différents clic de souris, et qu'une fois que la question est affichée, alors on redonne la main à la souris ? voici le fichier : Merci par avance. @ bientôt LouReeD...

MFerrand · Accepted Answer

Content que tu aies abouti !.....

MFerrand · Answer

Bonsoir LouReed, (re plutôt)

Un peu long à lire pour entrer dans le mécanisme (surtout le soir avancé ), mais selon ta description, je suppose que tu mémorises le clic sur procédure d'évènement.

La solution me paraît donc d'interrompre l'interception d'évènements entre la fin d'une question et le début de la suivante, quitte pour bien baliser ce passage en affichant : "réponse enregistrée" ou "temps écoulé pas de réponse" juste après avoir mis EnableEvents à False, puis "Nouvelle question" ou "Question suivante", suivie de EnableEvents à True, suivi de l'affichage de la question.

Cordialement.

MFerrand · Answer

Si tu prends en compte le clic sur l'évènement SelectionChange, lorsque celui-ci est interrompu, le clic ne devrait pas être pris en compte.

(NB- prenant en compte le clic gauche, tu es obligé de déplacer la sélection à l'affichage de la question, car un clic sur la cellule sélectionnée ne déclenche pas l'évènement).

Si la question n'admet qu'une réponse, il faut que tu prévois de modifier la réponse si le questionné se ravise et la change avant la fin du temps.

Je suppose que tu enregistres les réponses dans une variable (une par question ou un tableau) propre à chaque question. Si aucun clic durant une question, aucune réponse ne devrait être enregistrée pour la question, si changement de réponse en cours de temps seule la dernière doit être dans la variable.

Pour ce qui est de l'affichage du déroulement, ça me semblait un bon moyen de baliser les séquences :

Events = False

Affichage fin de question

====quand l'affichage a lieu, plus d'évènement ! (puisque arrêté avant)

Il me semble qu'il faut un DoEvents juste avant False (pour dernier clic à prendre).

Question suivante

Events = True

Là un autre DoEvents avant True (pour éliminer les clics nuls)

Je suis peut-être à côté par rapport à ton programme, mais il me semble que le problème ne peut venir que des clics de sélection intervenant durant l'exécution d'une procédure, et donc soit traités à la fin, soit durant un DoEvents.

MFerrand · Answer

Je crois qu'il faut que tu trouves le pourquoi de la chose ! Je n'ai pas trop été enclin à plonger dans ton code, déjà volumineux... et j'ai pensé qu'illustrer le mécanisme que je préconisais allait me prendre moins de temps ! J'ai donc fait une démo simpliste (comme j'aime ! )... Par rapport aux indications que j'avais exprimées sur un post précédent, je me suis aligné sur ton schéma : une seule réponse (la première) à chaque question doit être prise en compte. D'autre part, la réflexion se poursuivant toujours, j'ai incliné à penser qu'interrompre les évènements n'était pas la bonne formule et je lui substitue une variable booléenne pour donner cours ou non à l'enregistrement de la réponse. J'ai donc fait une base de questions-réponses sur feuille QR : 4 questions, chacune occupe une ligne, en A la question, en B:E les 4 réponses à chaque question. Plage nommée : QuRp. Sur la 1re feuille, emplacement des question et réponses délimité. La zone de réponses est nommée : ZRép. Les questions sont formulées pour l'exemple en "Question x" (x allant de 1 à 4), et les réponses : "Réponse @" (@ variant de A à D, suivi d'un point, suivi du numéro de la question &#91;pour que l'on puisse éventuellement identifier par la suite qu'il s'agit bien de la réponse à la bonne question (mais vu la méthode utilisée, cela n'apporte aucune preuve...)&#93; Deux boutons sur la feuille : un pour lancer le questionnaire, l'autre pour le réinitialiser. Le bouton de lancement est désactivé une fois le questionnaire lancé, la réinitialisation le rétablit actif pour lui permettre de lancer à nouveau. 4 variables publiques niveau module : t (pour fixer le moment où le temps de réponse sera écoulé), qec (integer, sert à conserver le numéro de la question en cours), Rép(1 To) (tableau d'integer pour enregistrer pour chaque question &#91;indice 1 à 4&#93; un numéro de réponse selon la cellule cliquée &#91;1 à 4, correspondant à A à D&#93;), AttRép (booléenne, à True lorsqu'on attend une réponse, à False dans le cas contraire). La réinitialisation, outre effacer la zone Question-Réponse pour redémarrer, remet qec à 0 et vide le tableau Rép. AttRép est à False (soit parce qu'on vient d'ouvrir le classeur, soit parce que systématiquement ramené à False en cas de réponse donnée, ou de non réponse dans le temps imparti), et t importe peu puisque initialisé à chaque question. Le schéma fonctionnel : Le bouton de lancement lance la procédure Questionnement (qui affichera chaque question successivement). Cette proc. incrémente qec, pour avoir le numéro de question à poser, elle déplace la sélection hors de la zone réponse, affiche la question et les réponses voulues (qec les identifie...), puis met AttRép à True, initialise t (maintenant + 10 s.) et programme le lancement d'une procédure CpteTmps au temps t (soit 10 secondes plus tard). La main est alors au questionné. S'il répond : la procédure SelectionChange intervient : vérification que une seule cellule est sélectionnée et qu'elle se trouve dans la zone réponse, si AttRép est True la proc. se poursuit et commence par remettre AttRép à False, et annule le déclenchement programmé de CmpteTmps à l'instant t. Elle enregistre alors la réponse en définissant le rang de la cellule sélectionnée dans la zone réponse. Si le tampon contient des instructions en attente d'exécution, c'est le moment de les éliminer (DoEvents, voir plus loin...). La proc. lance alors la procédure CpteTmps avec l'argument True (argument optionnel) qui indique à cette procédure qu'une réponse a été donnée. Si le questionné n'a pas répondu dans le temps imparti, la procédure CpteTmps est lancée, car programmée, avec l'argument False (par défaut). La procédure CpteTmps intervient donc à l'issue de chaque question : elle teste la valeur de qec pour savoir s'il s'agit de la dernière question (auquel cas elle ne relancera pas pour la suivante) et définit un message en conséquence. Elle complète le message selon qu'elle a été lancée avec True ou False (réponse fournie ou non), mais si False, AttRép n'a pas été ramenée à False et elle le fait. Dans ce cas, elle opère aussi un vidage éventuel du tampon par DoEvents (voir plus loin...) Enfin, elle relance Questionnement pour la question suivante, ou si la dernière passée, elle lance l'affichage des Résultats. La proc. Résultats est juste là à des fins de vérification pour la démo... Inutile de s'étendre. - J'ai placé 2 DoEvents aux emplacements où si une manipulation du questionné se trouve en attente, on la vide sans que cela puisse impacter les réponses, par acquis de conscience. Mais je vois mal la possibilité d'introduire quelque chose dans le déroulement : réponse = un msg s'affiche, il ne peut rien faire que OK et question suivante ; temps écoulé = msg et même schéma... Je te laisse triturer cette démo dans tous les sens : si tu parviens à me produire ton erreur (ou une autre), je m'y replonge... Sinon cela devrait permettre d'analyser comparativement ton mécanisme d'enchaînement des questions et détecter le point qui provoque ton erreur. Cordialement...