Problème enchaînement de macros

Bonjour à tous et par avance merci pour l'aide que vous allez pouvoir m'apporter.

Je me suis initié récemment à VBA mais suis confronté à un problème que je pensais au début être lié à la compatibilité entre ma version (2003) et celle que j'utilise sur mon lieu de travail (2016).

L'objectif de ce programme est une sorte de jeu "question/réponse". L'utilisateur clic sur un bouton, voit une question apparaître et a un délai de 5secs avant que la réponse s'affiche automatiquement.

J'ai créé TROIS macros, l'un pour l'affichage de la question, l'autre pour l'affichage de la réponse et un autre pour l'enchaînement de ces deux précédentes par un clic sur un bouton.

A la lecture, vous allez peut être vous dire que je me complique la vie sur certaines formules mais gardez à l'esprit que je suis encore novice et loin de maîtriser toutes les facettes de VBA

Mon problème est le suivant: le code fonctionne lorsque les modules "compagnies"-> questions et "réponses" sont lancés mais lorsque je tente de les enchaîner avec le module "bouton", les 5 secondes s'appliquent pour l'ensemble des modules ce qui fait que la question et la réponse arrivent systématiquement en même temps 5secondes plus tard.

Vous trouverez le document en pièce jointe

Bonne soirée.

Bonjour toutes et tous

@Mathieu26000

je ne comprend pas trop, cette requête,

La question se trouve où ? dans quelle cellule de l'onglet 'Questions'

Question : Quelles cellules doivent avoir un laps de temps pour l'utilisateur ?

En attente de réponse merci d'avance

crdlt,

André

Bonsoir,

Voici ce qui devrait se passer:

• l'utilisateur clique sur un bouton qui va faire apparaître un numéro en F4 qui correspond à un numéro de compagnie.
• un délai de 5 secondes a lieu entre le moment ou l'utilisateur appuie et le moment où la réponse apparaît dans les cellules B9 à F9.
• ces 5secondes écoulées, les réponses apparaissent en B9 à F9

C'est un petit programme pour tester ses connaissances sur un temps imparti.

En sommes, la question est implicite pour celui qui souhaite utiliser ce petit programme: tel numéro équivaut à telle compagnie, centre de secours, etc..

Mon problème ne réside qu'avec "Application.Wait (Now + TimeValue("00:00:05"))" qui, contrairement à ce que je souhaiterais, met en pause pour 5secs LES macros et non pas uniquement la macro "Reponse"

J'espère avoir été assez clair, merci pour votre intérêt

Re,

@ tester

sur bouton G1

je vide les cellules, je remets la temporisation et hop!

crdlt,

André

Bonsoir,

Merci beaucoup ! Rajouter un "Application.Wait" juste avant est une alternative à laquelle je n'avais pas pensé pour résoudre mon problème.

Je vais continuer dans cette direction,

Bonne soirée.