Comment faire une pause mais que excel reste actif?Résolu

Question

Bonjour,
voici mon code
Sub bConnection()
a = UserformInterface.bsymbole1.Text
Workbooks("Action1.xls").Sheets("Input").Range("B3") = a
x
a = Workbooks("Action1.xls").Sheets("Input").Range("B10")
UserformInterface.bprix1.Text = a

Seulement la valeur de la cellule excel B10 cest       =RTD("Tf.RtdSvr",,"Q",B3,"LAST")
en fait en entrant un symbole dans B3 ca ecrit la valeur du symbole dans B10 et le userform me  renvoie cette valeur
le seul probleme cest qu il y a un temps avant de recuperer la valeur pour qu il laffiche dans B10
le temps est celui quil faut pour quil la prenne du serveur Tf.RtdSvr
ce quil faut:
cest pouvoir mettre une pause a la place de la croix rouge mais que ca ne bloque pas excel daller chercher la valeur
en fait si a la place cette  histoire de serveur, javais dans B10 une formule calculee a partir de B3 et bien si il a pas eu le temps de calculer il bug
autrement dit il faut faire une pause dans le code mais pas dans excel
merci a tous

us_30 · Accepted Answer

Bonjour,

"DoEvents" semble bien la solution. A priori, je mettrais DoEvents dans une boucle qui testerait si le contenu de B10 a changé..

=

En codage, quelque chose comme ça :

Sub es()



' Retient valeur du départ
Vini = Workbooks("Action1.xls").Sheets("Input").Range("B10")



' Ton truc
a = UserformInterface.bsymbole1.Text
Workbooks("Action1.xls").Sheets("Input").Range("B3") = a



' LA boucle d'attente
Do
    DoEvents
    a = Workbooks("Action1.xls").Sheets("Input").Range("B10")
Loop Until Vini <> a



' Renvoi
UserformInterface.bprix1.Text = a



End Sub


=

(Evidemment, je ne peux pas le tester...)

Amicalement,
Us.

mortalino · Answer

salut,

le code qui est après la croix rouge, tu pourrais peut-être le mettre dans une autre procédure.
Et à la place de la croix, tu fais un OnTime :
Application.OnTime Now + TimeValue("00:00:05"), "La_Nouvelle_Procedure"

A tester, mais sans garanti

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

louvierseb · Answer

oui mais en fait je dois le garder dans la meme procedure pour des problemes par la suite...
merci quand meme
une autre idee?

mortalino · Answer

regarde l'API Sleep 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Mais je crains qu'Excel soit figé !

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

louvierseb · Answer

oui fige, bel et bien fige....

mortalino · Answer

Donc à part ma première proposition, je ne vois pas, désolé.
Qu'est ce qui te bloque sur le fait de faire 2 procédures ?
Si c'est pour récupérer des valeurs, places la déclaration de tes variables dans un module, de portée public

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

louvierseb · Answer

meme ta premiere idee laisse cette page excel figee
je cherche je cherche...
il faudrait faire un bouton recuperation des donnees
et un autre calcul
et la ca marcherai
je pense....
qui q une qutre idee???
merciii

PCPT · Answer

salut,

et un bon vieux doevents ne convient pas?
voire le cumul de doevents et de sleep (petite valeur, genre 20ms) en boucle 1 à 50

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

louvierseb · Answer

lol merci 
et moi qui avait palier ce probleme avec un on error goto msg
msg:
x=msgbox("vous devez attendre un moment  le temps que le calcul se fasse")

merci! les gars

Comment faire une pause mais que excel reste actif?

9 réponses

Votre réponse

Discussions similaires