Sujet Précédent Sujet Suivant

Excel: D'un clic, introduction de la date

Fermé
thunderesse - 7 août 2010 à 02:03
Thunderesse Messages postés 10 Date d'inscription samedi 7 août 2010 Statut Membre Dernière intervention 7 août 2010 - 7 août 2010 à 22:46
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

Réponse 1 / 10
Raymond PENTIER Messages postés 58705 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 octobre 2024 17 218
7 août 2010 à 02:25
Non : Excel ne fonctionne pas ainsi !
0
Réponse 2 / 10
thunderesse
7 août 2010 à 02:33
Dommage cela m'aurait fait gagné beaucoup de temps pour ma facturation. :-(( Je continuerai donc à taper la date du jour...
0
Réponse 3 / 10
Raymond PENTIER Messages postés 58705 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 octobre 2024 17 218
7 août 2010 à 02:44
. . . . . . . . . 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
Réponse 4 / 10
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
Modifié par Mytå le 7/08/2010 à 02:48
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 58705 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 octobre 2024 17 218
7 août 2010 à 02:53
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
Réponse 5 / 10
Thunderesse Messages postés 10 Date d'inscription samedi 7 août 2010 Statut Membre Dernière intervention 7 août 2010
7 août 2010 à 16:07
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
Réponse 6 / 10
m@rina Messages postés 21073 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 17 octobre 2024 11 342
7 août 2010 à 16:44
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
Réponse 7 / 10
Thunderesse Messages postés 10 Date d'inscription samedi 7 août 2010 Statut Membre Dernière intervention 7 août 2010
7 août 2010 à 16:50
Et les autres boutons de cette petite bête-là... on ne peut pas non plus les utiliser?? Ou un double clic??
0
Réponse 8 / 10
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
7 août 2010 à 16:58
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
7 août 2010 à 17:34
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
7 août 2010 à 17:57
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 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 août 2010 à 18:00
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 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 août 2010 à 18:03
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
Réponse 9 / 10
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 août 2010 à 17:21
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
Réponse 10 / 10
Thunderesse Messages postés 10 Date d'inscription samedi 7 août 2010 Statut Membre Dernière intervention 7 août 2010
7 août 2010 à 17:24
Et Sur MAC :-(((
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 août 2010 à 17:28
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 Date d'inscription samedi 7 août 2010 Statut Membre Dernière intervention 7 août 2010
7 août 2010 à 17:46
C'est une macro?

Si j'ai bien lu, les Macros ne fonctionnent pas sur MAC... I
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 août 2010 à 17:56
???
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 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
7 août 2010 à 20:54
Salut le forum

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

Mytå
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
7 août 2010 à 21:29
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