Excel: D'un clic, introduction de la date

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

  1. Contributeur
    Non : Excel ne fonctionne pas ainsi !
    0
    1. Dommage cela m'aurait fait gagné beaucoup de temps pour ma facturation. :-(( Je continuerai donc à taper la date du jour...
      0
      1. 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.
        0
        1. 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)]
          0
          1. Contributeur
            En effet, Mytå ; j'avais complètement oublié ce raccourci, que je n'utilise jamais.
            C'est effectivement la meilleure solution pour thunderesse
            0
        2. 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...
          0
          1. 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
            0
            1. Et les autres boutons de cette petite bête-là... on ne peut pas non plus les utiliser?? Ou un double clic??
              0
              1. 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
                
                0
                1. 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
                  
                  0
                2. 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
                  
                  0
                3. 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 !!!
                  0
                4. 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
                  0
              2. 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+
                0
                1. Et Sur MAC :-(((
                  0
                  1. Contributeur
                    Ca n'a rien à voir avec le PC c'est propre à Excel et celà devrait aussi fonctionner sur MAC.
                    0
                  2. C'est une macro?

                    Si j'ai bien lu, les Macros ne fonctionnent pas sur MAC... I
                    0
                  3. 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+
                    0
                  4. Contributeur
                    Salut le forum

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

                    Mytå
                    0
                  5. 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+
                    0