Excel: D'un clic, introduction de la date

thunderesse -  
Bonjour,

Dans un classeur excel:

En cliquant sur une cellule avec le bouton G de la souris, j'aimerais que la date du jour s'inscrive. Celle-ci ne doit pas se modifier lors des prochaines ouvertures du classeur, les jours suivants.

Merci d'avance.

10 réponses

  2. thunderesse
    Dommage cela m'aurait fait gagné beaucoup de temps pour ma facturation. :-(( Je continuerai donc à taper la date du jour...
    1. Raymond PENTIER Contributeur
      . . . . . . . . . Ce n'est pourtant pas bien long : tu tapes
      7/8
      et excel affiche
      07/08/10
      ou
      07 août 2010
      ou
      samedi 07 août 2010
      selon le format date que tu auras appliqué à la cellule.
      1. Mytå Contributeur
        Salut le forum

        Pour la date du jour, un simple raccourci clavier peut le faire CTRL+;

        Mytå
        Merci de donner suite à votre question, nous ne sommes pas des robots...
        Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
        1. Raymond PENTIER Contributeur
          En effet, Mytå ; j'avais complètement oublié ce raccourci, que je n'utilise jamais.
          C'est effectivement la meilleure solution pour thunderesse
      3. Thunderesse
        Bon d'accord, on n'est flemmard ou on ne l'est pas...

        Et moi je le suis!!!

        Et heureusement car c'est grâce à ça et un peu à Vous que cette dernière semaine je viens de faire passer le temps que je dois consacrer à ma facturation de 2H/sem à 15min
        Alors d'un seul coup je me suis prise à rêver qu'il ne m'en faudrait plus que 10 avec 10 clics de souris et une seule main (ce qui est très pratique quand on a une petite puce qui hurle en nous tournant autour..).

        Alors je suis un peu déçue d'avoir rencontrer les limites d'excel, qui jusqu'à présent, ne m'avait pas laissée tomber...
        Ca avait pourtant l'air facile dans ma petite tête... Si clic G alors date du jour...

        Dans tous les cas, MERCI, ce forum m'a été d'un grand secours...
        1. m@rina Modérateur
          Oui, mais ça voudrait dire que tu ne pourrait plus sélectionner de cellule, que tu ne pourrait plus saisir dans une cellule autre chose qu'une date, etc... et que tu ne pourrais même plus supprimer la date car il faut bien cliquer pour cela ! :D

          m@rina
          1. Thunderesse
            Et les autres boutons de cette petite bête-là... on ne peut pas non plus les utiliser?? Ou un double clic??
            1. Patrice33740
              En VBA, tu pourrais utiliser l'événement sur le clic droit de la feuille : 

              Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 ActiveCell.Value = Date
End Sub
              1. Patrice33740
                Si le menu contextuel te gène : 

                Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  CommandBars("Cell").Enabled = False
  ActiveCell.Value = Date
End Sub

Private Sub Worksheet_Deactivate()
 CommandBars("Cell").Enabled = True
End Sub
              2. Patrice33740
                En voyant la réponse de Lermite222 je m'aperçoit que j'ai oublié la deuxième condition (lui aussi !) :
                « Celle-ci ne doit pas se modifier lors des prochaines ouvertures du classeur, les jours suivants. »

                Voici donc une solution avec le clic droit : 

                Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  CommandBars("Cell").Enabled = False
  If VarType(ActiveCell.Value) = vbDate Then ActiveCell.Value = Date
End Sub

Private Sub Worksheet_Deactivate()
 CommandBars("Cell").Enabled = True
End Sub
              3. lermite222 Contributeur
                Comprend rien à ce que tu écrit.
                Dans mon exemple la date sera mémorisée et ne changera plus, sauf si ont le veux vraiment !!!
              4. lermite222 Contributeur
                Copie mon code dans le module de la feuille
                Clic sur quelques colonnes.
                Sauve le classeur et réouvre le.
                Les date ont changer ????
                Tu confond avec la formute =DATE
            2. lermite222 Contributeur
              Bonjour tou(te)s,
              Avec un simple clic... 
              Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target = "" Then ' 1 pour la colonne A
        Target = Date
    End If
End Sub

              A+
              1. Thunderesse
                Et Sur MAC :-(((
                1. lermite222 Contributeur
                  Ca n'a rien à voir avec le PC c'est propre à Excel et celà devrait aussi fonctionner sur MAC.
                2. Thunderesse
                  C'est une macro?

                  Si j'ai bien lu, les Macros ne fonctionnent pas sur MAC... I
                3. lermite222 Contributeur
                  ???
                  Clic droit sur l'onglet de ta feuille>> selectionne "Voir le code"
                  Dans la fenêtre qui s'ouvre tu colle le code ci-dessus.
                  Et tu reviens dans excel.
                  Tu clic sur une cellule vide de la colonne A
                  A+
                4. Mytå Contributeur
                  Salut le forum

                  Attention, les macros ont été supprimées de la version 2008 pour MAC

                  Mytå
                5. lermite222 Contributeur
                  Merci pout l'info.
                  mais je n'ai pas un MAC.
                  Et excel perd beaucoup d'intérêt si plus de macro.
                  A+