Afficher Date / heure sur double click dans une cellule

Pierrot93

XLDnaute Barbatruc

• 30 Janvier 2008

• #2

Re : Afficher Date / heure sur double click dans une cellule

Bonjour Matjul

ci dessous, macro événementielle à placer dans le module de la feuille concerné :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Target.Value = Now: Cancel = True
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

M

Matjul

XLDnaute Occasionnel

• 30 Janvier 2008

• #3

Re : Afficher Date / heure sur double click dans une cellule

Merci pierrot, c'est exactement ce que je souhaite.
Petit info pour ma culture, que devient ce code si je souhaite sélectionner une cellule particulière, C5 par exemple?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #4

Re : Afficher Date / heure sur double click dans une cellule

Bonjour Matjul, Pierrot93


1 pour colonne 1

donc pour C --> colonne 3

donc remplacer 1 par 3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Target.Value = Now: Cancel = True
End Sub

 

Vote positif 0 Vote négatif

M

Matjul

XLDnaute Occasionnel

• 30 Janvier 2008

• #5

Re : Afficher Date / heure sur double click dans une cellule

Effectivement c'est pas beaucoup plus compliqué...
Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Janvier 2008

• #6

Re : Afficher Date / heure sur double click dans une cellule

Re, bonjour Staple

pour une cellule, C5 dans ton exemple :

Code:

If Target.Address(0, 0) = "C5" Then Target.Value = Now: Cancel = True

bon après midi
@+

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 30 Janvier 2008

• #7

Re : Afficher Date / heure sur double click dans une cellule

Bonjour,

J'aimerais bien comprendre l'utilité de

Code:

 :Cancel = True

car je l'ai enlevé et cela marche.
Aussi les deux points :

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #8

Re : Afficher Date / heure sur double click dans une cellule

Re

Cancel=True
Si tu double-clicques une deuxième fois cela efface la date
Un nouveau double-clic et la date se réaffiche

Les :
sépare deux instructions

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 30 Janvier 2008

• #9

Re : Afficher Date / heure sur double click dans une cellule

Merci infiniment

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Janvier 2008

• #10

Re : Afficher Date / heure sur double click dans une cellule

Re

aarf Staple, il me semble bien que le "cancel = true", annule l'effet du double click, c'est à dire que tu ne rentres pas dans la cellule et n'affiche pas le menu contextuel....

@+

Edition : pas de menu contextuel sur un double click, mais sur click droit bien sur...

 

Dernière édition: 30 Janvier 2008

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Janvier 2008

• #11

Re : Afficher Date / heure sur double click dans une cellule

Salut Matjul, Adilprodigy, Staple , Pierrot , le Forum

et n'affiche pas le menu contextuel....

Cliquez pour agrandir...

Arf... Pierrot le menu contextuel ça ne serait pas sur le

Code:

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

Mais effectivement, et Pierrot a tout à fait raison le Cancel = True pour le BeforeDoubleClick et BeforeRightClick ne sert que pour la macro... Ici (mettre la date dans la cellule et ne fait que cela) cela annule l'effet premier de l'action soit (mettre le curseur dans la dite Cellule) ou pour le BeforeRightClick (Afficher le menu Contextuel)

Bonne Journée les amis

EDITION: Et en plus il a rectifié avant mon Post ... Mdr Pierrot

 

Dernière édition: 30 Janvier 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Janvier 2008

• #12

Re : Afficher Date / heure sur double click dans une cellule

Re

juste pour saluer l'ami Dull... une bonne journée également à toi.

 

Vote positif 0 Vote négatif

A

Abw

XLDnaute Nouveau

• 26 Janvier 2024

• #13

Bonjour,

J'ai me permets de lancer un bouteille à la mer étant également novice avec VBA.
Je veux que la date actuelle s'affiche automatiquement par un double click dans excel .
J'ai trouvé une formule qui fonctionne pour le faire valoir à savoir :
Private Sub Worksheet_BeforeDoubleClick(ByVAl Target As range, Cancel As Bolean)
If Not Intersect(Target, Range ("A1:A5000")) IS Nothing Then
Cancel = True
Target.Formula = Date
End If
End Sub

Je souhaiterai que ce code soit valable pour ma colonne "A" qui correspond à ma date d'info (donc déjà ok) mais également à ma colonne "F" qui représente la date de mise a jour.

Comment faire ?

Merci d'avance pour votre aide

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 26 Janvier 2024

• #14

Bonjour le forum, bonjour le fil
Bonjour Abw

Pour la prise en compte des colonnes "A" & "F" :

VB:

If Not Application.Intersect(Target, Range("A:A,F:F")) Is Nothing Then

@+ Eric c

 

Vote positif 0 Vote négatif

A

Abw

XLDnaute Nouveau

• 26 Janvier 2024

• #15

Eric C à dit:

Bonjour le forum, bonjour le fil
Bonjour Abw

Pour la prise en compte des colonnes "A" & "F" :

VB:

If Not Application.Intersect(Target, Range("A:A,F:F")) Is Nothing Then

@+ Eric c

Cliquez pour agrandir...

C'est exactement ce dont j'avais besoin, Ça va grandement m'aider ! Milles merci Eric

 

Vote positif 0 Vote négatif