Menu

Effacer une cellule après 3 secondes [Résolu/Fermé]

sebyyy 2 Messages postés dimanche 28 août 2016Date d'inscription 27 mars 2017 Dernière intervention - 28 août 2016 à 04:00 - Dernière réponse : Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention
- 28 août 2016 à 07:12
Bonjour,

je cherche à savoir comment faire... Par exemple:

J'ajoute dans la cellule A1 un texte et j'aimerais que dans les 3 secondes qui suivent, la cellule s'efface toute seul.

merci d'avance pour votre aide
Afficher la suite 

1 réponse

Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 28 août 2016 à 07:12
+1
Utile
Bonjour,

Tu peux utiliser cette procédure (à placer dans le module de la feuille) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then
Application.Wait Time + TimeSerial(0, 0, 3)
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End Sub

A+
Cette réponse vous a-t-elle aidé ?