Affecter texte à une Case à cocher

G

Gelinotte

XLDnaute Accro

• 22 Octobre 2012

• #2

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

 

Pièces jointes

• Excel Downloads Case à cocher(1).xlsm

  37.7 KB · Affichages: 72

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Octobre 2012

• #3

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

 

Pièces jointes

• 00 - vba95 - Maintenant si.xls

  42 KB · Affichages: 57

Dernière édition: 22 Octobre 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2012

• #4

Re : Affecter texte à une Case à cocher

Bonsoir vba95, salut Gelinotte 🙂

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

Code:

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+

 

Pièces jointes

• Excel Downloads Case à cocher(1).xls

  52 KB · Affichages: 51

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 22 Octobre 2012

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2012

• #6

Re : Affecter texte à une Case à cocher

Re,

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

Code:

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+

 

Pièces jointes

• Excel Downloads Case à cocher(2).xls

  56.5 KB · Affichages: 55

Dernière édition: 22 Octobre 2012

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Octobre 2012

• #7

Re : Affecter texte à une Case à cocher

Re-bonjour, bonjour, job75 🙂,

job75 à dit:

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

Cliquez pour agrandir...

@ job75 :

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

A bientôt,

🙂🙂

 

Vote positif 0 Vote négatif

V

vba95

Guest

• 23 Octobre 2012

• #8

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.

@ +

 

Vote positif 0 Vote négatif