Icône de la ressource

VBA - Afficher un message d'information en utilisant une Shape V2

Le fichier à télécharger contient:
  1. Le Module_ShowShape à importer dans le projet VBA.
  2. Le Module_Test comme exemple de mise en œuvre.
Note: Voir toutes mes ressources -> https://excel-downloads.com/resources/?creator_id=268468

Les principales caractéristiques:
  • Permet d'afficher un texte dans une Shape pour, par exemple, informer des étapes d'un traitement d'une macro. Ce texte affiché n'attend pas de réponse de l'utilisateur, c'est simplement une information affichée à l'écran.
Mise en œuvre très simple:
  • Placer le Module_ShowShape dans la projet VBA.

  • Dans le code VBA, utiliser les 2 fonctions ShowShape() et ClearShape() avec les paramètres ad hoc.
    VB:
    .../...
    Call ShowShape("Ceci est un message d'information")
    .../...
    Call ClearShape
    .../...
  • Des paramètres optionnels divers permettent:
    - de définir le type de Shape (rectangle par défaut),
    - de nommer la Shape (si affichages multiples en parallèle),
    - de définir le fond et la fonte,
    - de définir la position autre que centrée dans le Range visible de la fenêtre Excel,
    - de provoquer un clignotement,
    - de définir une durée minimale d'affichage en millisecondes,
    - de définir une durée maximale d'affichage en secondes.
Versions:
  • V1 - Initiale
  • V2 - Correction d'un bug de positionnement
InfoMessage.gif
  • J'aime
Réactions: AtTheOne