Effacer une cellule après 3 secondes
Résolu
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
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
1 réponse
-
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+
