Macro supprimer texte quand case décochée

[vba95]

Bonjour,

Dans le fichier joint lorsque l’on coche une case le jour le l’heure s’inscrit automatiquement.

Est-il possible que lorsque la case est décochée le jour le l’heure s’efface automatiquement.

Merci d’avance pour vos réponses.

@ +

 

[Papou-net]

Re : Macro supprimer texte quand case décochée

Bonjour vba95,

Comme ceci, tout simplement :

Sub Valider()
On Error Resume Next
With ActiveSheet.Shapes(Application.Caller)
  If IsEmpty(.TopLeftCell) Then .TopLeftCell = Now Else .TopLeftCell = ""
End With
End Sub

Ou encore plus simple :

Sub Valider()
On Error Resume Next
With ActiveSheet.Shapes(Application.Caller)
  .TopLeftCell = IIf(.TopLeftCell = "", Now, "")
End With
End Sub

Cordialement.

 

[vba95]

Re : Macro supprimer texte quand case décochée

Bonjour Papou-net,

C'est parfait.

MERCI