Affecter texte à une Case à cocher

[vba95]

Bonjour à tous,

Je viens de créer un fichier Excel (en pièce jointe) avec des cases à cocher.

Je souhaiterais que quand la case est cochée, s’affiche le jour et l’heure à laquelle la case à été cochée.

En bref, je voudrais que dès que la case est cochée s’affiche =MAINTENANT (et que ca reste fixe)

J’espère que vos pourrez m’aider.

Merci d’avance.

 

[Gelinotte]

Re : Affecter texte à une Case à cocher

Bonjour,

Voici une version qui semble correspondre à ta demande.

Quand tu coches une première fois la case, ça inscrit la date et l'heure dans la colonne B en face de la case.

Tu décoches ou rechoches la case, il ne se passera plus rien.

Pour qu'elle fonctionne à nouveau, il faut effacer manuellement la date et heure de la colonne B en face de la case.

G

 

[DoubleZero]

Re : Affecter texte à une Case à cocher

Bonjour, vba95, le Forum,

En attendant mieux , une suggestion en pièce jointe (sans case à cocher).

A bientôt .

P. S. : Bonjour, Gelinotte

 

[job75]

Re : Affecter texte à une Case à cocher

Bonsoir vba95, salut Gelinotte

Une seule macro affectée à chaque case à cocher :

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

Fichier .xls joint.

A+

 

[Gelinotte]

Re : Affecter texte à une Case à cocher

Bonjour,

Vba95, tu as maintenant 3 versions fonctionnelles. Job75 a un code plus qu'intéressant. Vive la savoir


G

 

[job75]

Re : Affecter texte à une Case à cocher

Re,

Une fois la case cochée, pour qu'elle ne soit plus décochée :

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

Pour pouvoir la décocher il faut effacer la cellule.

Fichier (2).

Edit : aïe aïe aïe pas vu du tout 00, mille excuses, bonsoir notre chère ânesse

A+

 

[DoubleZero]

Re : Affecter texte à une Case à cocher

Re-bonjour, bonjour, job75 ,

...Edit : aïe aïe aïe pas vu du tout 00, mille excuses...

@ job75 :

Zéro excuse car rien à pardonner , mais... grand BRAVO pour solutions proposées, comme d'habitude !

A bientôt,

 

[vba95]

Re : Affecter texte à une Case à cocher

Bonjour A tous,

Merci pour votre aide avec ces 3 versions fonctionnelles j'ai trouvé mon bonheur.

Encore un grand merci à vous tous et au forum.

@ +