Microsoft 365 Boucle sur application.on time

job75

XLDnaute Barbatruc

• 9 Novembre 2019

• #2

On attend une suite :
https://www.excel-downloads.com/threads/graphique-axe-horizontal.20038142/#post-20272272

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2019

• #3

Le 2ème argument de Application.Ontime doit être le nom d'une macro sous forme de texte...

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 9 Novembre 2019

• #4

Sub diversClaudy()
'Range("E120").End(xlUp)(2).Select
ActiveCell = ActiveCell.Offset(0, 1).Value
End Sub

Sub testzaza()
For Each cel In Range("E7:E30")
Application.OnTime Now + TimeValue("00:00:03"), "diversClaudy"
'ActiveCell = ActiveCell.Offset(0, 1).Value
Next


End Sub

Comme ça?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2019

• #5

Testez, vous verrez bien.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Novembre 2019

• #6

Bonjour,

Exemple simple qui affiche l'heure dans une feuille Excel:

VB:

Dim temps
Sub majHeure()
ThisWorkbook.Sheets("feuil1").[A1] = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
   majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

Boisgontier

 

Pièces jointes

• Copie de OnTimeHeure.xls

  44 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2019

• #7

Bonjour JB,

Le but de ce fil est peut-être de créer une temporisation entre les entrées dans les cellules, alors utiliser :

VB:

Sub Test()
Dim c As Range, t#
For Each c In [E7:E30]
    c = c(1, 2)
    t = Timer + 3 'temporisation 3 secondes
    While Timer < t And t < 86400: DoEvents: Wend
Next
End Sub

Les cellules de la feuille restent accessibles pendant l'exécution ce qui ne serait pas le cas si on utilisait Application.Wait.

A+

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 9 Novembre 2019

• #8

Bonsoir,
ok merci beaucoup, mon graphique est devenu un film vidéo....
Bonne soirée,
Claudy

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 10 Novembre 2019

• #9

Bonjour et merci à Job 75....
Et voilà, je partage, il suffit de cliquer sur le graphique pour lancer la macro.
Bon dimanche,
Claudy

 

Pièces jointes

• Graph Claudy.xlsm

  21.8 KB · Affichages: 8

Vote positif 0 Vote négatif