Macro exel variation cellule dans le temps

Résolu/Fermé
Tomtom41 - 18 juin 2015 à 12:46
 Tomtom41 - 22 juin 2015 à 09:55
Bonjour,

Je suis novice dans excel et je voudrais faire une macro qui modifie la valeur d'une cellule tous les dixièmes ou centième de seconde en suivant une plage de données.

En détail :
de A1 à A365 j'ai des valeur et je souhaiterai que
B1=A1 pendant 1 dixième de seconde puis que B1=A2 pendant 1 dixième de seconde .... B1= A365.

Merci pour le coup de mains !!


A voir également:

2 réponses

sofienexcel Messages postés 70 Date d'inscription vendredi 2 janvier 2015 Statut Membre Dernière intervention 20 février 2021
18 juin 2015 à 13:41
Bonjour,

vous trouvez ci joint mon essai

https://www.cjoint.com/c/EFslOtqqNKM
0
Comment puis-je exploiter votre lien ?

Merci
0
baladur13 Messages postés 46396 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 25 avril 2024 13 221 > Tomtom41
Modifié par baladur13 le 18/06/2015 à 15:17
Bonjour
Clic sur le lien pour ouvrir Cijoint puis faire un clic droit sur le lien EFslOtqqNKM_heure-automatique.xlsm enfin enregistrer afin de pouvoir ensuite l'ouvrir sous Excel ou Open-office
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744 > Tomtom41
18 juin 2015 à 15:26
Bonjour Tomtom, Baladur, Sofienexcel,

@Tomtom : le lien proposé par sofienexcel est fiable. Le classeur proposé peut être téléchargé (procédure expliquée par Baladur13) sans souci.
Il ne réponds pas exactement à votre question (du moins selon mon interprétation personnelle), mais offre des bases de réflexion.
Nous attendons votre retour pour poursuivre.
0
Tomtom41 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
18 juin 2015 à 18:16
Merci pour les infos et pour le temps passé,
Néanmoins effectivement cela ne répond pas exactement a ma question...
Les jours changent toutes les 10 seconde et je souhaiterai que cela se face tous les dixièmes ou centièmes de seconde.
Merci quand même
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
19 juin 2015 à 07:39
Bonjour,

Voici pour toi :
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
Dim i As Integer
For i = 1 To 365
   [B1] = Range("A" & i)
    '100 = dixième de seconde
   Sleep 100 'pour avoir la précision au centième, indiquer ici 10 au lieu de 100
   DoEvents
Next i
End Sub

0
Bonjour,
Il me met une erreur sur la fonction sleep ! Je n'arrive pas a appliquer cette macro...
Merci quand même pour le coup de main !
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744 > Tomtom41
Modifié par pijaku le 19/06/2015 à 09:36
  • Tu es en 32 ou 64 bits?
  • La ligne de code :

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

est-elle bien placée en entête (tout en haut) de ton module?
  • As tu placé cette procédure dans un module standard?
0
je suis en 64 bits et je fais direct un copier collé de la macro dans un module simple...
Message erreur :
"le code contenu doit etre modifié pour un système 64 bits"
"Vérifier les instructions déclare puis marquer avec attribut PTR safe"
Merci
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744 > Tomtom41
19 juin 2015 à 20:15
Il faut remplacer la ligne :
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


par :
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

pour les versions 64 bits...
0
Tomtom41 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
22 juin 2015 à 09:55
Super !

C'est exactement ce dont j'avais besoin !!!

Merci beaucoup pour le temps passé !

A bientôt !
0