Sortir d\'une boucle

[mooneck]

Bonjour

 

J'ai un petit code pour renomer des points en les incrémentant.

 

Je voudrais utiliser la touche Echap pour sortir de la boucle.

 

Quelqu'un aurait-il une idée ?

Voici le bout de code.

 

    Do
   
       oStatus = oSelection.SelectElement2(oInputObjectType, "Choisir un le Point " & "PT" & NumSheet & Format(NumPt, "00") & " ou appuyer sur Echap pour Annuler.", True)
       Set oPoint = oSelection.Item(1).Value
       'MsgBox oPoint.Name
       oPoint.Name = "PT" & NumSheet & Format(NumPt, "00")
       NumPt = NumPt + 1
       CATIA.ActiveDocument.Selection.Clear

   
   Loop Until NumPt = 100

 

Merci d'avance :question:

[marc54]

Salut,

 

Juste après ton oStatus=..., tu devrais faire un masgbox(oStatus) pour voir ce qu'il te retourne avec un ESC.

Ensuite tu testes : if ostatus="?" then exit loop

ou un truc du genre

 

au nez, j'ai pas testé...

 

A+

[jarabito]

Salut moonek,

 

comme marc le dit, il te suffit de verifier ton oStatus...

il y en a 4 si je me souviens bien, "Normal", "Cancel", "Redo" et "Undo" (pas trop sur du redo, mais les autres sont tous la)

 

tu peux faire un Do while "Normal" ou faire un IF et donner des autres instructions pour "Cancel" (de memoire, cancel se passe quand tu tapes Esc)

 

cho

 

luis

[jarabito]

ha, je n'avais pas fait gaffe que t'avais possé la meme question sur le forum de COE....

fin bref, maintenant que je verifie mes codes, je fais toujours un IF avec chaque option... un pour normal, un pour cancel, etc...

 

[mooneck]

Merci à tous

 

Oui effectivement j'avais posé la meme question sur COE.

J'ai le meme réponse !

 

Je vais donc utiliser le ostatus et tester ses états.

 

@+