copier/coller toutes les 5 minutes

[Eric]

Bonjour,

Comment copier/coller une cellule A1 automatiquement toutes les 5 minutes dans une colonne B (B1, B2, B3 ....)

D'avance merci
Eric

 

[vincent]

Bonsoir

je vois 2 cas pour ton problème

1 si tu ne travailles pas sur ton fichier faire tourner une macro en permanence.

option explicit

Sub copiettcinqmn()
Dim top, top1
top1 = Timer
Do
top = Timer
Do
Loop Until Timer - top >= 300 ' temps en seconde
Range("b65536").End(xlUp).Offset(1, 0) = Range("a1")
Loop Until Timer - top1 >= 600 'temps de fonctionnement de la macro
End Sub

2 si tu dois travailler sur ton fichier dans le code de la feuille (evenementiel worksheet_SelectionChange)

Option Explicit
Public top
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If top = 0 Then top = Timer
If Timer - top >= 30 Then
top = Timer
Range("b65536").End(xlUp).Offset(1, 0) = Range("a1")
End If
End Sub

Voilà une solution je pense qu'il y en a d'autre

Bonne nuit

@+Vincent

 

[Eric]

Bonjour et merci Vincent,

Je travaille sur la même feuille donc copcol de .....

Option Explicit
Public top
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If top = 0 Then top = Timer
If Timer - top >= 30 Then
top = Timer
Range("b65536").End(xlUp).Offset(1, 0) = Range("a1")
End If
End Sub

dans ma macro ????

Merci encore,
Eric

 

[vincent]

Re

pour copier cette macro dans la feuille sur laquelle tu travailles il faut faire un click droit sur l'onglet de la feuille puis visualiser le code et dans la fenetre qui s'ouvre tu colle le code


@+Vincent

 

[Eric]

oki, THX gonna try....

parce que là, ça marchait pas

THX
Eric

 

[Eric]

...et si je voulais des secondes, je transforme ton

"top >= 30 Then"

par

"top >= 0.1 Then"


???

 

[vincent]

Re

l'instruction timer travaille en 100' de seconde donc pour 1 seconde
top>=1 pour 1/10 de seconde top>=0.1 pour 5 minutes top >=300 (petite erreur dans mon 1er post j'ai ecrit 30 au lieu de 300)

 

[Eric]

Excuse-moi pour l'heure tardive Vincent et merci pour la précision sur le timer
Mais la colonne B ne s'incréménte pas si je ne touche à rien sur la feuille
Il faudrait pourtant que toutes les 5 min, j'ai automatiquement la valeur de cette cellule A1

Encore merci
Eric

 

[vincent]

Re

effectivement si tu ne touches à rien rien ne se passe et je n'ai pas de solution pour le moment .

je continue à chercher et avec un peu de change quelqu'un d'autre passera par là avec une autre solution.

Bonne nuit à plus

@+Vincent

 

[Eric]

Bonne nuit et merci encore pour ton aide Vincent

Eric

 

[Myta]

Salut Eric , Vincent et le forum

Eric regarde le fichier en piêce jointe si cela pourrait te convenir...

Amicalement Mytå

 

[Myta]

Oups re le forum

Eric ici je copie la cellule au 5 secondes avec

NextTemps = Now + TimeValue("00:00:05")

juste cette ligne a modifier pour 5 minutes avec

NextTemps = Now + TimeValue("00:05:00")

Mytå

 

[Eric]

Salut Myta

Pile poil ce que je souhaitais

Merci bien à vous deux pour cette sympathique aide

Amicalement
Eric

 

[Eric]

comment dois-je cop/col ta macro Myta ??

(marche pas dans mon fichier.....)

 

[Eric]

oups, pas bien reveillé..... c OK

THX