Comment utiliser les événements OnTime et les événements Keypress dans Excel 2016 VBA

Dans cet exemple, la méthode OnTime de l'objet Application est utilisée. Cette méthode prend deux arguments : l'heure (0,625 ou 15h00) et le nom de la procédure Sub à exécuter lorsque l'événement horaire se produit (DisplayAlarm).

Cette procédure est très utile si vous avez tendance à être tellement absorbé par votre travail que vous oubliez les réunions et les rendez-vous. Il suffit de définir un événement OnTime pour vous en souvenir.

La plupart des gens ont du mal à penser au temps en termes de système de numérotation Excel. Par conséquent, vous souhaiterez peut-être utiliser la fonction VBA TimeValue pour représenter l'heure. TimeValue convertit une chaîne qui ressemble à une heure en une valeur qu'Excel peut gérer. L'énoncé suivant montre un moyen plus simple de programmer un événement pour 15 heures :

Application.OnTime TimeValue ("3:00:00"), "DisplayAlarm"

Si vous souhaitez planifier un événement par rapport à l'heure actuelle (par exemple, dans 20 minutes), vous pouvez utiliser une instruction comme celle-ci :

Application.OnTime Now + TimeValue ("00:20:00"), "DisplayAlarm"

Vous pouvez également utiliser la méthode OnTime pour exécuter une procédure VBA un jour particulier. Vous devez vous assurer que votre ordinateur continue de fonctionner et que le classeur contenant la procédure reste ouvert. L'instruction suivante exécute la procédure DisplayAlarm à 17 heures le 31 décembre 2016 :

Application.OnTime DateValue ("31/12/2016 17:00"), "DisplayAlarm"

Cette ligne de code particulière pourrait être utile pour vous avertir que vous devez rentrer chez vous et vous préparer pour les festivités du Nouvel An.

Voici un autre exemple qui utilise l'événement OnTime. L'exécution des procédures UpdateClock écrit l'heure dans la cellule A1 et programme également un autre événement cinq secondes plus tard. Cet événement réexécute la procédure UpdateClock. L'effet net est que la cellule A1 est mise à jour avec l'heure actuelle toutes les cinq secondes. Pour arrêter les événements, exécutez la procédure StopClock (qui annule l'événement). Notez que NextTick est une variable au niveau du module qui stocke l'heure du prochain événement.

Dim NextTick As Date
Sous UpdateClock()
' Met à jour la cellule A1 avec l'heure actuelle
  ThisWorkbook.Sheets(1).Range("A1") = Temps
' Configurer le prochain événement dans cinq secondes
  NextTick = Now + TimeValue ("00:00:05")
  Application.OnTime NextTick, "UpdateClock"
Fin du sous-marin
Sous StopClock()
' Annule l'événement OnTime (arrête l'horloge)
  En cas d'erreur Reprendre ensuite
  Application.OnTime NextTick, "UpdateClock", , Faux
Fin du sous-marin

Appel StopClock

Sous-Setup_OnKey()
  Application.OnKey "{PgDn}", "PgDn_Sub"
  Application.OnKey "{PgUp}", "PgUp_Sub"
Fin du sous-marin
Sous PgDn_Sub()
  En cas d'erreur Reprendre ensuite
  ActiveCell.Décalage(1, 0).Activer
Fin du sous-marin
Sous PgUp_Sub()
  En cas d'erreur Reprendre ensuite
  ActiveCell.Décalage(-1, 0).Activer
Fin du sous-marin

Sous Cancel_OnKey()
  Application.OnKey "{PgDn}"
  Application.OnKey "{PgUp}"
Fin du sous-marin

  Application.OnKey "%{F4}", ""