double clic en A2 donne la date d'hier dessus [résolU]

[anthoYS]

bonjour,

c'est peut être basique mais .. j'ai tenté :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Cancel = True
If Target.Column = A2 Then
Cells(Target.Row, A2) = Date-1
End If
End Sub

ça ne marche pas. Pourquoi ?


Merci
à+

 

[pijaku]

Re : double clic en A2 donne la date d'hier dessus

Bonjour,

If Target.Column = A2 Then

Target.Column, si tu double clic en A2, est égale à 1
à remplacer par :

If Target.Address = "$A$2" Then

Ensuite, tu veux que la date aille dans la cellule du dessus, donc en A1...

Cells(Target.Row, A2) = Date-1

Target.Row, si tu clic en A2, est égale à 2...
Or là tu le veux en A1, ou juste au dessus (Offset(-1, 0))

Target.Offset(-1, 0) = Date - 1

 

[Pierrot93]

Re : double clic en A2 donne la date d'hier dessus

Bonjour,

peut être avec ceci :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$2" Then Target.Value = Date - 1: Cancel = True
End Sub

bon après midi
@+

 

[Dull]

Re : double clic en A2 donne la date d'hier dessus

Salut anthonYs, le Forum

Peut-être comme cela avec ce que j'ai compris

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Range("A2") Then Target.Offset(-1, 0) = Date - 1: Cancel = True
End Sub

EDITION: Salut pijaku🙂, Pierrot 🙂 Arf... C'est le dessus et non au dessus qui m'a induit en erreur

Bonne Journée

 

[anthoYS]

Re : double clic en A2 donne la date d'hier dessus

Bonjour,

If Target.Column = A2 Then

Target.Column, si tu double clic en A2, est égale à 1
à remplacer par :

If Target.Address = "$A$2" Then

Ensuite, tu veux que la date aille dans la cellule du dessus, donc en A1...

Cells(Target.Row, A2) = Date-1

Target.Row, si tu clic en A2, est égale à 2...
Or là tu le veux en A1, ou juste au dessus (Offset(-1, 0))

Target.Offset(-1, 0) = Date - 1

Re,

merci à vous.
Pierrot93 ta Sub fonctionne.

Par contre pijaku

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Address = "$A$2" Then
Cells(Target.Row, A2) = Date - 1
End If
End Sub

ne marche pas. J'ai du me tromper dans le début de la Sub.


Merci
à+

 

[pijaku]

Re : double clic en A2 donne la date d'hier dessus [résolU, mais en attente pijaku..]

C'est le "dessus" qui m'a troublé.....
Par dessus, j'ai compris en A1.
Ben oui, le code de Pierrot est tout bon....