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

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2013

• #2

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 :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

bonne journée
@+

 

Vote positif 0 Vote négatif

P

Pierre F.

XLDnaute Nouveau

• 8 Mars 2013

• #3

Re : Boucle avec attente de réponse et test

Pierrot93 à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cordialement,
Pierre F.

 

Pièces jointes

• TestUn11Applidemo2.xls

  29.5 KB · Affichages: 26

Dernière édition: 8 Mars 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2013

• #4

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....

 

Vote positif 0 Vote négatif

P

Pierre F.

XLDnaute Nouveau

• 8 Mars 2013

• #5

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.

 

Pièces jointes

• TestUn11Applidemo2-1.xls

  44.5 KB · Affichages: 31

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2013

• #6

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

Code:

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

 

Vote positif 0 Vote négatif

P

Pierre F.

XLDnaute Nouveau

• 8 Mars 2013

• #7

Re : Boucle avec attente de réponse et test

Pierrot93 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2013

• #8

Re : Boucle avec attente de réponse et test

Re,

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

 

Pièces jointes

• classeur2.xls

  36 KB · Affichages: 41
• classeur2.xls

  36 KB · Affichages: 39
• classeur2.xls

  36 KB · Affichages: 40

Vote positif 0 Vote négatif

P

Pierre F.

XLDnaute Nouveau

• 8 Mars 2013

• #9

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2013

• #10

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 :

Code:

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

 

Vote positif 0 Vote négatif

P

Pierre F.

XLDnaute Nouveau

• 8 Mars 2013

• #11

Re : Boucle avec attente de réponse et test

Oups;

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

Pierre F.

 

Vote positif 0 Vote négatif