Effacer une cellule après 3 secondes

Résolu
sebyyy Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   526
 
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