Effacer une cellule après 3 secondes

Résolu/Fermé
sebyyy Messages postés 13 Date d'inscription dimanche 28 août 2016 Statut Membre Dernière intervention 29 décembre 2021 - 28 août 2016 à 04:00
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 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
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
28 août 2016 à 07:12
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+
1