macro double clic soustraction d'heure

desexcel · 3 Avril 2016

Bonjour
je suis nouvellement inscrit sur ce super forum grâce auquel j'ai trouvé une macro pour mon projet.
Explication: en double clic sur une cellule on affiche l'heure actuelle, sur la cellule à côté même opération, sur la troisième cellule (et c'est la que je bute) un double clic pour afficher la différence d'heure entre les deux premières cellules.

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

Pourriez-vous m'aider pour la suite de la macro. MERCI

DoubleZero · 3 Avril 2016

Re : macro double clic soustraction d'heure

Bonjour à toutes et à tous.

Bienvenue sur XLD, desexcel.

Comme ceci (avec un format personnalisé en colonne c) ?

Code:

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

A bientôt

desexcel · 4 Avril 2016

Re : macro double clic soustraction d'heure

bonsoir
merci DoubleZero, tout à fait ce qu'il me faut.
à bientôt

macro double clic soustraction d'heure

desexcel

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

desexcel

XLDnaute Nouveau

Discussions similaires