Discussion :

[sunstrike69]

Bonjour à tous,

je suis nouveau sur ce forum, même si ca fait deja un peu de temps que je navigue sur developpez.net pour y trouver des tutoriels bien utiles!!! Je me suis mis récemment sur VBA et je rencontre un problème :

j'aimerai créer une macro qui me rempli automatiquement un tableau à partir de données qui s'actualisent toutes les minutes dans une case(j'ai utilisée la fonction import de données).

Pour l'instant j'ai écris ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Module1(tableau)
 
Dim tableau As Range
 
Set tableau = Range("E6:E106")
 
For tableau = Range("E6") To Range("E106")
    Range("D6").Copy
    tableau.Select
    ActiveSheet.Paste
Range.Next
Next
 
End Sub

Il faudrait en plus que j'arrive à implementer la procédure Application.Ontime pour que la fonction For_Next s'effectue uniquement toutes les minutes et non en continue, mais avant j'aimerai que ce peu de code fonctionne. Le problème est que je n'arrive même pas a enregistrer la macro. Quand je met lecture, il m'ouvre une fenetre pour créer une nouvelle macro.

J'espère avoir été à peu près clair..

Désolé si la solution est évidente, mais c'est seulement ma deuxième macro.

Merci d'avance

[fring]

Bonjour et bienvenue sur le forum

Essaie ceci :

• procédures à insérer dans un module standard (par exemple Module1)
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  Sub ReglageTimer()
      Dim Interval As Integer
      Interval = 60 '<-- 60 secondes
      Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecuterLaCopie"
  End Sub
   
  Sub ExecuterLaCopie()
      With Sheets("NomDeLaFeuille") '<-- adapter le nom de la feuille
          .Range("E65535").End(xlUp)(2) = .Range("D6") '<-- copie la valeur de la cellule D6 dans la première cellule vide de la colonne E
      End With
      ReglageTimer '<-- relance le timer
  End Sub

• procédures à insérer dans le module ThisWorkbook (double clic sur ThisWorkbook dans l'éditeur de Visual Basic)
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  'Pour démarrer le Timer à l'ouverture du classeur
  Private Sub Workbook_Open()
      ReglageTimer
  End Sub
   
  'Pour arreter le Timer à la fermeture du classeur
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Application.OnTime Now, "ExecuterTimer", , False
  End Sub

[sunstrike69]

Merci beaucoup, c'est exactement ce que j'essayais de faire!

J'espère que d'ici quelques mois je serais à même de répondre aux questions des novices, mais avant d'en être la il y a des chances que je repasse de temps en temps pour poser des questions

[fring]

Repasse autant que le besoin s'en fait sentir (je peux te filer mes chemises ?)

En attendant, les us et coutumes du forum veulent que quand on a obtenu une réponse satisfaisante, on tag la discussion en cliquant sur