[Excel 2003] Incrémentation automatique

Ikarytos Messages postés 38 Statut Membre -  
pilas31 Messages postés 1878 Statut Contributeur -
Bonjour,

Je souhaiterais savoir si il est possible et si oui comment faire une incrémentation automatique toutes les minutes dans une cellule t'en que le fichier est ouvert et également si il peut enregistrer l'évolution.

Exp.

Dans A1 500€ et toute les minutes ou le fichier est ouvert s'ajoute automatiquement 2€

Grand merci d'avance

6 réponses

  1.
    Ikarytos Messages postés 38 Statut Membre 12
     
    S'il n'est pas possible il aurait été bien de le dire. 3 mots suffisent au lieu que l'on attende des jours pour rien.
    1
  2. pépé35530 Messages postés 2951 Date d'inscription   Statut Membre Dernière intervention   1 390
     
    Bonjour,

    petite remarque :

    les personnes qui répondent sont des bénévoles et non des professionnels. En conséquence les réponses ne sont pas forcément instantanées et un jour ou deux d'attente ne me semble pas exagéré.
    D'autre part, un ton impatient risque de froisser les gens.
    Quant-à la question posée, je n'ai pas d'éléments de réponse.

    A+

    pépé
    1
  3. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    pépé35530 à raison. Je pense que ce n'est pas possible par formules mais il faut utiliser VBA.

    Pour cela il y a un fonction qui s'appelle "Ontime" qui permet de déclencher un événement à un moment voulu.

    Voila l'idée :

    Créer un module macro et insérer la macro suivante qui s'appelle récursivement : 

    Sub Chrono() 
    Application.OnTime Now + TimeValue("00:01:00"), "Chrono" 
    Sheets("Feuil1").Range("A1").Value = Sheets("Feuil1").Range("A1").Value + 2 
End Sub


    Puis pour qu'elle démarre dés l'ouverture du classeur, insérer la macro suivante dans le répertoire "ThisWorkbook" 

    Private Sub Workbook_Open() 
    Sheets("Feuil1").Range("A1").Value = 498 
    Call Chrono 
End Sub


    Cette dernière macro initialise la valeur à 498 puis lance la macro qui fait un premier +2

    A+
    Cordialement,
    1
  4. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    Sub ou fonction indéfinie, c'est curieux car il n'y a rien à faire d'autre.

    Il faut insérer la macro Chrono dans un module en faisant <Alt><F11> pour aller dans l'éditeur VBA puis dans le menu "Insertion" la commande "Module". Un dossier "Module1" est créé dans lequel on copie la macro Chrono.

    Puis dans le dossier "ThisWorlbook" copier la macro "Workbook_Open"

    C'est elle qui s'exécute automatiquement dés l'ouverture du classeur.

    A+
    1

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. pépé35530 Messages postés 2951 Date d'inscription   Statut Membre Dernière intervention   1 390
     
    A défaut d'un chronomètre, il doit être possible de créer une macro et créer une boucle du style

    for i=1 to 1000
    next i
    A1+2
    goto...

    Je ne connais pas le VBA mais quelqu'un pourra sans doute t'aider.

    A+

    pépé
    0
  7. Ikarytos Messages postés 38 Statut Membre 12
     
    Grand merci pour vos réponses.

    Je reçois le message à l'ouverture du fichier,

    Erreur de compilation:
    Sub ou fonction non définie

    Il y avait autre chose à écrire?

    Désolé si j'ai parus impatient
    0