[resolu]Pause

Pause [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2006 à 17:19:43    

Bonjour,
 
j'aimerais qu'apres la selection d'une valeur le programme fasse une pause d'un tps que je définirai!
 
merci


Message édité par lden le 28-06-2006 à 10:42:30
Reply

Marsh Posté le 27-06-2006 à 17:19:43   

Reply

Marsh Posté le 27-06-2006 à 17:22:14    

Sub PauseTimer(ByVal nSecond As Single)
Dim t0 As Single
     'temps de référence
     t0 = Timer
     'boucle d'attente
     Do While Timer - t0 < nSecond
           Dim dummy As Integer
           dummy = DoEvents()
           'si on dépasse minuit,il faut
           'retrancher un jour
           If Timer < t0 Then
               t0 = t0 - 24 * 60 * 60
           End If
     Loop
End Sub

Reply

Marsh Posté le 27-06-2006 à 17:45:15    

merci!!

Reply

Marsh Posté le 27-06-2006 à 18:02:13    

il ya aussi Wait (méthode)

Reply

Marsh Posté le 27-06-2006 à 18:16:20    

et tu mets quoi pr methode

Reply

Marsh Posté le 27-06-2006 à 18:47:12    

à vue d'oeil le programme de lhonolulu laisse les événements s'éxécuter, simplement il fait une pause dans la procédure courante.
Pour faire une "vraie" pause qui freeze carrément le logiciel tu peux utiliser la fonction API Sleep(temps en ms).


---------------
Réalisation amplis classe D / T      Topic .Net - C# @ Prog
Reply

Marsh Posté le 27-06-2006 à 19:31:34    

Citation :

Wait, méthode
Voir aussi S'applique à Exemple Spécificités  
Cette méthode marque une pause dans l'exécution de la macro jusqu'à une heure spécifiée. Elle renvoie la valeur True si l'heure spécifiée est atteinte.
 
Important   La méthode Wait suspend toute activité de Microsoft Excel et peut vous empêcher d'accomplir toute autre opération sur votre ordinateur pendant la durée de la pause. Seules les tâches de fond telles que l'impression ou le recalcul se poursuivent.
 
expression.Wait(Time)
 
expression   Obligatoire. Expression qui renvoie un objet Application.
 
Time   Argument de type Variant obligatoire. Heure, exprimée dans le format Date de Microsoft Excel, à partir de laquelle l'exécution de la macro doit reprendre.
 
Exemples
Cet exemple montre comment suspendre l'exécution d'une macro jusqu'à aujourd'hui 18:23.
 
Application.Wait "18:23:00"
Cet exemple montre comment suspendre l'exécution d'une macro pendant environ 10 secondes.
 
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Cet exemple montre comment afficher un message indiquant si 10 secondes se sont écoulées.
 
If Application.Wait(Now + TimeValue("0:00:10" )) Then
    MsgBox "Time expired"
End If

Reply

Marsh Posté le 28-06-2006 à 10:16:53    

Merci pour toutes ces infos bien utiles
 
bonne journée

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed