Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
dcdc2
> J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de celle ci avec ESC
es-tu certain qu'une fonction suffise ?
J'aurais utiliser un application.onkey pour indiquer de lancer une macro quand on presse ESC, cette seconde macro permettant de modifier une variable globale (par exemple fin=true). Ainsi tu ferais une boucle: ... until fin et fin serait modifié par l'autre procédure, au moment de l'action sur une touche.
avais-tu vraiment déjà fait ça autrement ?
> J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de
celle ci avec ESC
es-tu certain qu'une fonction suffise ?
J'aurais utiliser un application.onkey pour indiquer de lancer une macro
quand on presse ESC, cette seconde macro permettant de modifier une variable
globale (par exemple fin=true). Ainsi tu ferais une boucle: ... until fin
et fin serait modifié par l'autre procédure, au moment de l'action sur une
touche.
> J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de celle ci avec ESC
es-tu certain qu'une fonction suffise ?
J'aurais utiliser un application.onkey pour indiquer de lancer une macro quand on presse ESC, cette seconde macro permettant de modifier une variable globale (par exemple fin=true). Ainsi tu ferais une boucle: ... until fin et fin serait modifié par l'autre procédure, au moment de l'action sur une touche.
avais-tu vraiment déjà fait ça autrement ?
le_troll
Salut, et DoEvents ???
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Yves" a écrit dans le message de news:
Bonjour,
J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de celle ci avec ESC
ca resemble a sendkey
Merci de vos réponses.
Salut, et DoEvents ???
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"Yves" <cpsqinfo@globetrotter.qc.ca> a écrit dans le message de
news:ur9BJKblEHA.3612@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de
celle ci avec ESC
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Yves" a écrit dans le message de news:
Bonjour,
J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de celle ci avec ESC
ca resemble a sendkey
Merci de vos réponses.
Zoury
Salut Yves! :O)
où se produit ta boucle ? dans un formulaire ?
tu peux faire comme ceci : '*** Option Explicit
Private m_bLoop As Boolean
Private Sub Form_Load()
m_bLoop = True Do While m_bLoop ' mettre ton code ici DoEvents ' rend la main à Windows Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) m_bLoop = False End Sub '***
Mais pour répondre mot pour mot à ta question, sache qu'il existe "Exit Do" et "Exit For" pour quitter une boucle..
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
"Yves" a écrit dans le message de news:
Bonjour,
J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de celle ci avec ESC
ca resemble a sendkey
Merci de vos réponses.
Salut Yves! :O)
où se produit ta boucle ? dans un formulaire ?
tu peux faire comme ceci :
'***
Option Explicit
Private m_bLoop As Boolean
Private Sub Form_Load()
m_bLoop = True
Do While m_bLoop
' mettre ton code ici
DoEvents ' rend la main à Windows
Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
m_bLoop = False
End Sub
'***
Mais pour répondre mot pour mot à ta question, sache qu'il existe "Exit Do"
et "Exit For" pour quitter une boucle..
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
Le français se refait une beauté, parlons en :
http://www.orthographe-recommandee.info/
"Yves" <cpsqinfo@globetrotter.qc.ca> a écrit dans le message de
news:ur9BJKblEHA.3612@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de
celle ci avec ESC
m_bLoop = True Do While m_bLoop ' mettre ton code ici DoEvents ' rend la main à Windows Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) m_bLoop = False End Sub '***
Mais pour répondre mot pour mot à ta question, sache qu'il existe "Exit Do" et "Exit For" pour quitter une boucle..
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
"Yves" a écrit dans le message de news:
Bonjour,
J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir de celle ci avec ESC
ca resemble a sendkey
Merci de vos réponses.
Yves
Merci pour vos réponse
DoEvents
Ce que je cherchais
:O( je l'avais oublier
"Zoury" a écrit dans le message de news:
Salut Yves! :O)
où se produit ta boucle ? dans un formulaire ?
tu peux faire comme ceci : '*** Option Explicit
Private m_bLoop As Boolean
Private Sub Form_Load()
m_bLoop = True Do While m_bLoop ' mettre ton code ici DoEvents ' rend la main à Windows Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) m_bLoop = False End Sub '***
Mais pour répondre mot pour mot à ta question, sache qu'il existe "Exit
Do"
et "Exit For" pour quitter une boucle..
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
"Yves" a écrit dans le message de news: > Bonjour, > > J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir
de
> celle ci avec ESC > > ca resemble a sendkey > > Merci de vos réponses. > >
Merci pour vos réponse
DoEvents
Ce que je cherchais
:O( je l'avais oublier
"Zoury" <yanick_lefebvre@hotmail.com> a écrit dans le message de
news:OQlblYclEHA.3608@TK2MSFTNGP09.phx.gbl...
Salut Yves! :O)
où se produit ta boucle ? dans un formulaire ?
tu peux faire comme ceci :
'***
Option Explicit
Private m_bLoop As Boolean
Private Sub Form_Load()
m_bLoop = True
Do While m_bLoop
' mettre ton code ici
DoEvents ' rend la main à Windows
Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
m_bLoop = False
End Sub
'***
Mais pour répondre mot pour mot à ta question, sache qu'il existe "Exit
Do"
et "Exit For" pour quitter une boucle..
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
Le français se refait une beauté, parlons en :
http://www.orthographe-recommandee.info/
"Yves" <cpsqinfo@globetrotter.qc.ca> a écrit dans le message de
news:ur9BJKblEHA.3612@TK2MSFTNGP12.phx.gbl...
> Bonjour,
>
> J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir
de
> celle ci avec ESC
>
> ca resemble a sendkey
>
> Merci de vos réponses.
>
>
m_bLoop = True Do While m_bLoop ' mettre ton code ici DoEvents ' rend la main à Windows Loop
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) m_bLoop = False End Sub '***
Mais pour répondre mot pour mot à ta question, sache qu'il existe "Exit
Do"
et "Exit For" pour quitter une boucle..
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
"Yves" a écrit dans le message de news: > Bonjour, > > J'ai oublier la fonction a inserer dans une boucle pour pouvoir sortir
de
> celle ci avec ESC > > ca resemble a sendkey > > Merci de vos réponses. > >
Jacquouille
Bonjour, Dans la boucle mettre: if keyascii' then keyascii=0 : exit for (si boucle for) : exit do (si boucle do) : exit sub (sortie de boucle et sub) endif -- Jacques dit JACQUOUILLE
Bonjour,
Dans la boucle mettre:
if keyascii' then
keyascii=0 : exit for (si boucle for) : exit do (si boucle do) : exit sub
(sortie de boucle et sub)
endif
--
Jacques dit JACQUOUILLE
Bonjour, Dans la boucle mettre: if keyascii' then keyascii=0 : exit for (si boucle for) : exit do (si boucle do) : exit sub (sortie de boucle et sub) endif -- Jacques dit JACQUOUILLE
