Remplissage en temps et en heure Résolu

Question

Bonjour, 

Dans le cadre de mon stage, je cherche à créer une macro qui me permettrait de faire ceci :

Lorsque la cellule A2 est vide, 2h après le remplissage de la cellule A1, afficher un message disant "attention, vous n'avez pas répondu".

Est-ce possible?

Je pensais créer un fichier avec au moins 4 colonnes : DATE, HEURE, CLIENT, REPONSE.
Lorsqu'on reçoit une demande, on remplit les colonnes DATE, HEURE, CLIENT
Puis on a 2h pour remplir la case REPONSE, avant que le message disant "attention, vous n'avez pas répondu" s'affiche.

Qu'en pensez-vous?

Merci d'avance!

papou · Answer

Bonsoir ouistitlilie,

Voici une façon de procéder :

Dans le module de code de ta feuille, tu copies le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
If Range("A1") <> "" And Range("A2") = "" Then Chrono
End Sub
Sub Chrono()
Hdeb = Now
Application.OnTime Now + TimeValue("00:00:05"), "Message"
End Sub
Puis dans un module standard :

Sub Message()
MsgBox "Attention, vous n'avez pas répondu !", vbOKOnly + vbExclamation, "DÉLAI DÉPASSÉ"
End Sub
Pour que tu puisses tester, j'ai réglé le délai à 5 secondes. Pour ton application finale, tu remplaceras "00:00:05" par "02:00:00".

Espérant avoir répondu.

Cordialement.

aquarelle · Answer

Bonsoir ouistitlilie,

Voici un exemple, un peu adapté, de l'utilisation de la macro de papou avec quelques explications, en commentaires afin que tu puisses mieux comprendre :
http://cjoint.com/12jn/BFgtcyOvkpC.htm

Bonne soirée

Remplissage en temps et en heure

2 réponses

Discussions similaires

Newsletters