Macro supprimer texte quand case décochée

vba95 · 24 Octobre 2012

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 · 24 Octobre 2012

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

Bonjour vba95,

Comme ceci, tout simplement :

Code:

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 :

Code:

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

Cordialement.

vba95 · 24 Octobre 2012

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

Bonjour Papou-net,

C'est parfait. 😀

MERCI

Macro supprimer texte quand case décochée

vba95

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

vba95

Guest

Discussions similaires

Macro supprimer texte quand case décochée

vba95

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

vba95

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency