Excel: D'un clic, introduction de la date

thunderesse -  
Thunderesse Messages postés 10 Statut Membre -
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.



A voir également:

10 réponses

Raymond PENTIER Messages postés 71831 Date d'inscription   Statut Contributeur Dernière intervention   17 379
 
Non : Excel ne fonctionne pas ainsi !
0
thunderesse
 
Dommage cela m'aurait fait gagné beaucoup de temps pour ma facturation. :-(( Je continuerai donc à taper la date du jour...
0
Raymond PENTIER Messages postés 71831 Date d'inscription   Statut Contributeur Dernière intervention   17 379
 
. . . . . . . . . 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
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
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
Raymond PENTIER Messages postés 71831 Date d'inscription   Statut Contributeur Dernière intervention   17 379
 
En effet, Mytå ; j'avais complètement oublié ce raccourci, que je n'utilise jamais.
C'est effectivement la meilleure solution pour thunderesse
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Thunderesse Messages postés 10 Statut Membre
 
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
m@rina Messages postés 26487 Date d'inscription   Statut Contributeur Dernière intervention   11 485
 
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
Thunderesse Messages postés 10 Statut Membre
 
Et les autres boutons de cette petite bête-là... on ne peut pas non plus les utiliser?? Ou un double clic??
0
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
Thunderesse Messages postés 10 Statut Membre
 
Et Sur MAC :-(((
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Ca n'a rien à voir avec le PC c'est propre à Excel et celà devrait aussi fonctionner sur MAC.
0
Thunderesse Messages postés 10 Statut Membre
 
C'est une macro?

Si j'ai bien lu, les Macros ne fonctionnent pas sur MAC... I
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
???
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
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Salut le forum

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

Mytå
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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