Discussion :

[Geekdu39]

Bonsoir,

Actuellement j'ai crée un fichier avec les temps d'attente d'un parc d'attraction qui se met à jour à partir d'un site web.

Mais, voulant faire des statistiques, je voudrai que tous les x minutes, la cellule du temps d'attente soit copié dans une autre cellule de la même ligne et dans une autre colonne (par exemple pour le premier dans D2,E2,F2,...) avec l'heure d'ajout comme titre de la colonne.
J'ai déjà essayé de le faire en vba mais, venant juste de commencer, je ne sais pas du tout comment faire. Je pense qu'il faudrait une boucle qui s'exécute toutes les x minutes mais je ne suis pas sûr.
Voici mon script vba :

Du coup comment fait-on pour automatiser cela ?

Merci d'avance pour votre aide

Cordialement

[Nicolas JACQUIN]

bonjour,
recherche du coté de Application.OnTime

[boisgontierjacques]

Bonsoir,


cf exemple en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
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

[Nicolas JACQUIN]

Bonjour,
Apparemment ça aide pas, voici un exemple à adapter à ton problème

Code à placer dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub TEST()
 
Dim derligne As Integer
Dim i As Integer
derligne = Range("B65536").End(xlUp).Row
'Boucle sur tes lignes à actualiser
For i = 1 To derligne
    'Ton action à exécuter
    Range("D" & i).Value = Now
Next i
'Active la gestion de l'évènement toute les 5 secondes
Application.OnTime Now + TimeValue("00:00:05"), "TEST"
 
End Sub
 
 
Sub StopTEST()
    On Error Resume Next
    'Stopper la gestion de l'évènement
    Application.OnTime Now + TimeValue("00:00:05"), "TEST", , False
End Sub

Et code à placer dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Workbook_Open()
    'Activation
    TEST
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Désctivation
    StopTEST
End Sub

En espérant que ça pourra t'aider

[Geekdu39]

Merci beaucoup de votre aide, cela fonctionne nickel !

Cordialement