Macro exel variation cellule dans le temps

Résolu

Tomtom41 -
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 !!

Afficher la suite

A voir également:

Macro exel variation cellule dans le temps
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Renommer plusieurs fichiers en même temps - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Proteger cellule excel - Guide

2 réponses

Réponse 1 / 2

sofienexcel Messages postés 72 Statut Membre

Bonjour,

vous trouvez ci joint mon essai

https://www.cjoint.com/c/EFslOtqqNKM

Tomtom41

Comment puis-je exploiter votre lien ?

Merci

baladur13 Messages postés 50037 Statut Modérateur 13 709 > Tomtom41

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

pijaku Messages postés 13513 Statut Modérateur 2 763 > Tomtom41

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.

Tomtom41 > pijaku Messages postés 13513 Statut Modérateur

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

Réponse 2 / 2

pijaku Messages postés 13513 Statut Modérateur 2 763

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

Tomtom41

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 !

pijaku Messages postés 13513 Statut Modérateur 2 763 > Tomtom41

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?

Tomtom41

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

pijaku Messages postés 13513 Statut Modérateur 2 763 > Tomtom41

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...

Tomtom41 > pijaku Messages postés 13513 Statut Modérateur

Super !

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

Merci beaucoup pour le temps passé !

A bientôt !

Discussions similaires

Durée d'une diapositive animée

35 GO à l'étranger

Family link : les temps ne correspondent pas !

Délai de validation sur Leboncoin

Votre réponse

Discussions similaires