Copie du contenu d'une cellule à intervalle
Jeehan
Messages postés
1
Statut
Membre
-
jack -
jack -
Bonjour,
Merci de lire mon message.
Voila ma requète. J edispose d" Excel 2002.
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 inscrire le contenu de A1 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 !
Merci de lire mon message.
Voila ma requète. J edispose d" Excel 2002.
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 inscrire le contenu de A1 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 !
A voir également:
- Copie du contenu d'une cellule à intervalle
- Copie cachée - Guide
- Word a trouvé du contenu illisible - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
1 réponse
Sub liretoutelessecondes ()
Ligne = 1
While True
ActiveSheet.Cells(Ligne, 2) = ActiveSheet.Range("A1")
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1 ' choisir ici la duree en seconde
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Ligne = Ligne + 1
DoEvents
Wend
End Sub
Ligne = 1
While True
ActiveSheet.Cells(Ligne, 2) = ActiveSheet.Range("A1")
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1 ' choisir ici la duree en seconde
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Ligne = Ligne + 1
DoEvents
Wend
End Sub
