Signaler

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

Posez votre question sebyyy 2Messages postés dimanche 28 août 2016Date d'inscription 27 mars 2017 Dernière intervention - Dernière réponse le 28 août 2016 à 07:12 par Gyrus
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 
Utile
+1
plus moins
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é ?  
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !