Copie du contenu d'une cellule à intervalle temps donné

[Jannoch]

Bonjour !
merci de lire mon message.
Voila ma requète.
Considérons la cellule A1 dont le contenu ( chiffre) change toute les secondes. ( ou 2 sec. ou 5 sec. etc....)
Le but est d'obtenir une macro ( ou autre fonction) qui va relever la valeur de la celule A1 et l'inscrire dans la cellule B2, puis 1 seconde plus tard en B3, puis 1 seconde plus tard en B4..... etc....( une cellule vers le bas à chaque fois) Il faut pouvoir paramètrer aussi l'intervalle en temps entre chaque enregistrement.....2 sec. 5 sec. etc....
Voila merci pour votre aide et bonne journée !🙂
Jannoch.

 

[koukou40]

Re : Copie du contenu d'une cellule à intervalle temps donné

Bonjour !
merci de lire mon message.
Voila ma requète.
Considérons la cellule A1 dont le contenu ( chiffre) change toute les secondes. ( ou 2 sec. ou 5 sec. etc....)
Le but est d'obtenir une macro ( ou autre fonction) qui va relever la valeur de la celule A1 et l'inscrire dans la cellule B2, puis 1 seconde plus tard en B3, puis 1 seconde plus tard en B4..... etc....( une cellule vers le bas à chaque fois) Il faut pouvoir paramètrer aussi l'intervalle en temps entre chaque enregistrement.....2 sec. 5 sec. etc....
Voila merci pour votre aide et bonne journée !🙂
Jannoch.

salut !
Pas évident ton truc !!!

 

[GIBI]

Re : Copie du contenu d'une cellule à intervalle temps donné

Bonjour,
voici une boucle avec sortie aprés 10000 ligne

ok = True
l = 1
Do While ok
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + 5 ' toutes les 5"
DoEvents ' Donne le contrôle à d'autres processus.
Loop
l = l + 1
If l > 10000 Then Exit Sub
Cells(l, 2).Value = Timer 'Cells(1, 1).Value
Loop

GIBI

 

[Cousinhub]

Re : Copie du contenu d'une cellule à intervalle temps donné

Bonjour,

je suppose que ta cellule se modifie suite à une requête....

Si cela

dans le workbook_open() :

Private Sub Workbook_Open()
Ancien = Sheets("Feuil1").[A1]
End Sub

dans un module standard :

Public Ancien

et dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    [B65000].End(xlUp)(2) = Ancien
    Ancien = Target
End If
End Sub