[Résolu]Boucle avec attente de réponse et test

[Pierre F.]

Bonjour à toutes et tous.

Sur Feuil1, j'ai une liste de questions (B4:B150). J'ai les réponses en E4:E150 (qui serviront pour valider celles de l'utilisateur).
A l'aide d'une boucle, je souhaiterais afficher une à une ces questions sur la feuille "Un11" (en B4)... Mais avant d'afficher la 2e question j'aimerais que l'utilisateur trouve et écrive la première réponse!

en résumé: dans une boucle, comment l'arrêter (le temps de renseigner une cellule) et la faire continuer après l'entrée du renseignement??

Merci
Pierre F.

Voir fichier: sur message + "haut"

 

[Pierrot93]

Re : Boucle avec attente de réponse et test

Bonjour,

pas accès à ton fichier, problème de proxy... toujours préférable un tout petit fichier placé directement sur le forum... regarde peut être du coté de l'événement "change" de la feuille de calcul, peut être la solution à ton souci :

Private Sub Worksheet_Change(ByVal Target As Range)

bonne journée
@+

 

[Pierre F.]

Re : Boucle avec attente de réponse et test

Bonjour,
pas accès à ton fichier, problème de proxy... toujours préférable un tout petit fichier placé directement sur le forum...

Hello;
Merci pour cette réponse rapide!
Effectivement mon fichier était "bizarre" (très gros pour de petites choses)

Je l'ai remis ci-dessous en taille plus réaliste.

regarde peut être du coté de l'événement "change" de la feuille de calcul, peut être la solution à ton souci

oui, j'avais commencé par ça mais je ne m'en sortais pas... (mon excel est trop rudimentaire)

Cordialement,
Pierre F.

 

[Pierrot93]

Re : Boucle avec attente de réponse et test

Re,

oui mais là en l'état de ton code tu es dans une boucle.... donc pas top à gérer comme ca ton truc... autre piste peut être utiliser un userform....

 

[Pierre F.]

Re : Boucle avec attente de réponse et test

Aie

J'avais pensé à une inputbox mais je préfère travailler dans une cellule "normale"...

J'ai repris l'idée du "change" (voir pj)

Mais, si ça fonctionne pour la première question... ça ne boucle pas

A+
Pierre F.

 

[Pierrot93]

Re : Boucle avec attente de réponse et test

Re,

bah.. en l'état, tu ne l'exécute que si la cellule modifiée est K4

If Not Intersect(Target, [K4:K4]) Is Nothing Then

 

[Pierre F.]

Re : Boucle avec attente de réponse et test

Re,
bah.. en l'état, tu ne l'exécute que si la cellule modifiée est K4

Oui, c'est le but; les questions doivent s'afficher successivement dans la cellule B4 et les réponses être validées en K4... Dès que la réponse de K4 est juste, il faudrait que la question suivante s'affiche...

Pierre F.

 

[Pierrot93]

Re : Boucle avec attente de réponse et test

Re,

ton fichier en retour, une procédure "Workbook_Open" dans le module "thisworkbook" :

 

[Pierre F.]

Re : Boucle avec attente de réponse et test

Ouah!!

C'est exactement ça !!

Petite question: comment la procédure de la feuille Un11 sait-elle que i commence à 4 (est-ce "Static i As Integer" ??)

Merci infiniment (en boucle )

Pierre F.

 

[Pierrot93]

Re : Boucle avec attente de réponse et test

Re,

i ne commence pas à 4 mais à zéro, c'est pour cela que je mets un "i + 4" dans les instructions :

If Target = Sheets("Feuil1").Cells(i + 4, 5) Then

 

[Pierre F.]

Re : Boucle avec attente de réponse et test

Oups;

J'avais vu mais pas intégré
Merci.

Pierre F.