Signaler

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

Posez votre question sebyyy 1Messages postés dimanche 28 août 2016Date d'inscription 28 août 2016 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
moins plus
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+
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 !