Saluer l’utilisateur lors de la saisie

Un lecteur m’a demandé s’il était possible d’afficher, quand un utilisateur modifie une cellule de la colonne 1, un message donné pendant 5 secondes dans la cellule à droite, saluant l’utilisateur. Ce message doit s’autodétruire après 5 secondes…

La solution se trouve en deux étapes : il faut créer une macro événementielle pour afficher le message et appeler cinq secondes plus tard une macro – placée, elle, dans un module normal – , qui efface ce message.

Voici la macro événementielle liée à la feuille :

Dans un module normal, il faut ensuite définir deux variables publiques et créer la macro « Efface » assurant l’effacement du message :

Public Ligne As String
Public Feuille As String
Sub Efface()
Sheets(Feuille).Cells(Ligne, 2).ClearContents
End Sub

Remarque – Il serait aisé de modifier le code pour que le message ne soit affiché que si l’on a cliqué dans une zone particulière autre que la colonne 1.