IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lancement d'une macro à horaire fixe


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Profil pro
    Inscrit en
    Novembre 2011
    Messages
    28
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2011
    Messages : 28
    Par défaut Lancement d'une macro à horaire fixe
    bonjour
    voila j'aimerais executer une macro mais pas par heure de decompte comme stipuler en haut mais par rapport a une cellule
    c'est a dire que je rentre l'heure dans la cellule et lorsque l'heure arrive a l'heure de la cellule la macro s'execute
    j'ai bien copier ce code mais je suis obliger de rentrer dans le code pour changer l'heure
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
     
    Dim bstop As Boolean
    Dim HeureProchainAppel
     
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
     bstop = True
     HorlogeEnc3
    End Sub
     
    Private Sub Workbook_Open()
     HorlogeEnc3
    End Sub
     
    Sub HorlogeEnc3()
    If bstop = True Then
     'Annuler le paramétrage du OnTime programmé précédemment.
     Application.OnTime EarliestTime:=HeureProchainAppel, _
        Procedure:="ThisWorkbook.HorlogeEnc3", Schedule:=False
        Exit Sub
    End If
     
      Sheets("feuil2").Range("A18").Value = Format(Now, "HH:MM:SS")
     
    'Nouveau paramétrage de OnTime
    HeureProchainAppel = Now + TimeValue("00:00:01")
    Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnc3", False
    Application.OnTime TimeValue("14:13:00"), "Macro1"
    Application.OnTime TimeValue("14:13:03"), "Macro2"
    End Sub
    ,mais je voudrais ne pas rentrer dans le code mais que le code s'execute par rapport a l'heure de la cellule feuille2 cellule A 18 plus la macro2 apres 3 secondes
    merci de votre aide

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 179
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 179
    Billets dans le blog
    53
    Par défaut
    Bonjour,

    Admettons que tu veuilles enregistrer l'heure à laquelle la procédure MaMacro doit s'enclencher dans la cellule B2 d'une feuille.
    Code à placer dans le module de la feuille où la cellule se trouve
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$B$1" Then Application.OnTime Target, "MaMacro"
    End Sub
    Code à placer dans un module quelconque
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub maMacro()
     MsgBox "Hello, il est " & Time
    End Sub
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre actif
    Profil pro
    Inscrit en
    Novembre 2011
    Messages
    28
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2011
    Messages : 28
    Par défaut
    bonjour
    merci de la reponse
    mais c'est pas ce que je demande
    voila j'ai une cellule qui affiche l'heure reel
    et je voudrais que si la cellule B18 est la meme heure que l'heure reel la macro ce declenche

Discussions similaires

  1. Lancement d'une macro à heure fixe
    Par grrimag dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 27/03/2008, 17h49
  2. [VBA-E] Lancement d'une macro en fonction du contenu d'une cellule
    Par Zak Blayde dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 30/01/2007, 15h13
  3. [VBA-E]Probleme de lancement d'une macro non souhaité
    Par Mut dans le forum Macros et VBA Excel
    Réponses: 19
    Dernier message: 06/12/2006, 12h50
  4. [VBA-E] Lancement d'une macro située dans un autre fichier
    Par sat478 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 07/09/2006, 16h48
  5. Réponses: 2
    Dernier message: 22/07/2002, 12h13

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo