Figer la date d'aujourd'hui après double clic

[anthoYS]

Bonsoir,

Voici le soucis :

Dans une cellule, si je fait un double clic, en cellule voisine la date d'aujourd'hui, mais il faut que le lendemain, cette date sois celle d'hier et non plus la nouvelle d'aujourd'hui (J+1).

Voir le fichier joint pour l'exemple.

 

[Catrice]

Re : Figer la date d'aujourd'hui après double clic

Bonjour,

Avec cette macro dans Feuil1:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$T$16" Then Target.Value = Date
End Sub

 

[46MNO83]

Re : Figer la date d'aujourd'hui après double clic

Salut à tous

au lieu d'un double clic qui oblige une macro
Ctrl et ; te donne la date du jour et reste fixe à ce jour

 

[anthoYS]

Re : Figer la date d'aujourd'hui après double clic

Bonjour à vous.

Je ne parviens pas à comprendre ce qui a été proposé. Ou alors cela ne correspond pas à mes attentes formulé au départ (hier).

Alors, pour ce qui est de la macro. Je souhaite que par double clic sur une cellule, celle voisine affiche la date du jour. Et que le lendemain, il s'agira de la date d'hier, comment faire. Pour que ceci soit vrai pour chaque ligne.

Merci par avance.
A+,

Edit : voir le fichier initial pour ceux qui prendrait le fil en cours.

 

[jeanpierre]

Re : Figer la date d'aujourd'hui après double clic

Bonjour anthoYS, Catrice et tous les autres,

Catrice t'a donné une solution, comme tu n'es pas nouveau (on peut supposer que tu lis les fils et n'est ps au seul titre de consommateur), à toi de l'adapter, tant sur la plage du doucle clic que sur la cellule de reception.

Pas bien diffcile à condition de s'y coller.

Au besoin, il y a la Recherche pour trouver des infos.complémentaires, mais ça, on ne peut le faire à ta place...

Bonne soirée bientôt.

Jean-Pierre

 

[JCGL]

Re : Figer la date d'aujourd'hui après double clic

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then Cells(Target.Row, 20) = Date
End Sub

A+ à tous

 

[anthoYS]

Re : Figer la date d'aujourd'hui après double clic

Merci JCGL, j'attendrais demain pour vérifier.
Mais bon, si je ne réécris pas, c'est que c'est bon.

A+ alors, sur un autre fil je pense et espère.