Discussion :

[pythfred]

help,
je suis tout neuf en VBA et j'ai besoin de faire une macro qui me permette a chaque heure d'aller prendre une valeur dans une cellule et de la copier sur une autre!
j'ai essayer avec un timer mais c'est pas assez précis il loupe des contrôles!
si quelqu'un peut m'aider ca serait sympa!

[Peut-êtreUneRéponse]

Dans un module de ton classeur :

Code vba :

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
24
25
26
 
Public StopIt
 
Sub InitOnTime()
 
  'lancement toutes les 2 heures
  depart = Now + TimeValue("02:00:00")
  ' ici ton code pour coller
  ' ...
 
  If Not StopIt Then
    Application.OnTime depart, "MaMacro"
  Else
    On Error Resume Next
    Application.OnTime depart, "MaMacro", Schedule:=False
  End If
 
End Sub
 
Sub MaMacro()
  InitOnTime
End Sub
 
Sub testStop()
  StopIt = True
End Sub

A adapter. Tu peux par exemple faire le InitOnTime à l'ouverture du classeur et forcer StopIt à True à la fermeture du classeur.

.

[pythfred]

j'ai essayé mais c'est pas ça !
le but c'est que sur un feuille d'un classeur je récupère les données d'un autre classeur et d'une cellule en particulier et que je copie cette cellule dans un tableau ex: 1ier heure X pce 2iem heure X pce etc..donc faire une copie chaque heures des l'ouverture du classeur sans que cela ne perturbe les utilisateurs du classeur et que la macro s'arrête a la fermeture du classeur.
si quelqu'un peut me donner un coup de main ca serait cool!

[fring]

Bonjour,

Ce que te propose peutêtreunereponse est pourtant bien ça...!

Je vais essayer de le retranscrire autrement, tu comprendras peut-être mieux

1. Le code qui va définir le timing
   

   Code :

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

   1
   2
   3
   4
   5
   6
   Dim Timing As Date '<-- à déclarer en tête de module
    
   Sub Start_Timing()
   Timing = Now + TimeValue("01:00:00")
   Application.OnTime Timing, "MaMacro"
   End Sub

2. Le code qui va chercher les infos dans la cellule
   

   Code :

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

   1
   2
   3
   4
   5
   6
   7
   8
   9
   10
   11
   12
   Sub MaMacro()
   '***************
   '...
   '...
   'précédure qui va chercher l'info dans la cellule
   '...
   '...
   '***************
    
   Start_Timing '<-- on relance le timing
    
   End Sub

3. Le code qui va stopper le timing
   

   Code :

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

   1
   2
   3
   4
   Sub Stop_Timing()
   On Error Resume Next
   Application.OnTime Timing, "MaMacro", , False
   End Sub

4. Le code pour lancer le timing à l'ouverture du classeur
   

   Code :

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

   1
   2
   3
   Private Sub Workbook_Open()
   Start_Timing
   End Sub

5. Le code pour arrêter le timing à la fermeture du classeur
   

   Code :

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

   1
   2
   3
   Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Stop_Timing
   End Sub

[pythfred]

hello,
comment doit etre formulé le code pour chercher les données dans une cellule et les copier dans une autre?
et merci a tous!!!!!!

[fring]

La question est un peu vague, plusieurs possibilités, voici la plus simple

Code :

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

Range("A1") = Range("A2")

Si ça ne convient pas, détaille un peu plus ce que tu souhaites obtenir