vba double click

[MIKEFLY62]

re

Encore petite question

Comment faire pour inscrire l heure au moment du double click dans tel ou tel cellule d une feuille?

Meme chose pour la date. Si c est possible.

Merci encore

Mike

 

[Pierrot93]

Re : vba double click

Bonjour Mike

regarde le code ci-dessous, à placer dans le module de la feuille concernée :

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

bonne journée
@+

 

[Hulk]

Re : vba double click

Bonjour Forum, Mikefly, Pierrot 🙂

Aussi, comme ceci pour n'importe quelle cellule.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Application.Intersect(Target, ActiveCell) Is Nothing Then Target = Now

End Sub

Ou comme ça pour une plage de cellule voulue.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Application.Intersect(Target, [A1:A10]) Is Nothing Then Target = Now

End Sub

Bonne semaine, Hulk.

 

[Pierrot93]

Re : vba double click

Re

Hulk, dans le cas du double click, "target" et "ActiveCell" représentent la même cellule, non ???

If Not Application.Intersect(Target, ActiveCell)

@+

 

[Hulk]

Re : vba double click

Re,

Euh vi !?

Corrige-moi si je me trompe Pierrot, on peut (ou doit ?) donc faire comme ceci ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Application.Intersect(Target, ActiveCell) Then Target = Now

End Sub

Cdt, Hulk.

 

[Pierrot93]

Re : vba double click

Re

pour une application sur toutes les cellules, je le ferais ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.value = Now
Cancel = True
End Sub

A noter, que "now" renvoie date et heure, et notre ami voulait l'heure et la même chose pour la date.

 

[Hulk]

Re : vba double click

Re,

Ok merci Pierrot !

A+.

 

[MIKEFLY62]

Re : vba double click

la deniere version est OK 😉

Merci pour votre aide

Bonne journee