Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro date

macro date

2 réponses
Avatar
fredbzr
Rebonsoir
j'utilise la macro ci dessous: lorque je double clique en a2, la date et
l'heure se mettent automatique ment en b2 et b3.
Comment peut-être modifié cette macro car en faite j'en aurai besoin de a2 à
a500 pour éviter d'écrire 500 fois la même chose.
merci à vous

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

If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1) =
Format(Now, "mm/dd/yy")
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 2) =
Format(Now, "hh:mm")

If Not Intersect(Target, Range("A3")) Is Nothing Then Target.Offset(0, 1) =
Format(Now, "mm/dd/yy")
If Not Intersect(Target, Range("A3")) Is Nothing Then Target.Offset(0, 2) =
Format(Now, "hh:mm")
'ect.....
End Sub


--


Katia , Fred & Valentin
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Essaie :

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

If Intersect(Target, Range("A2:A500")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "mm/dd/yy")
Target.Offset(0, 2) = Format(Now, "hh:mm")

End Sub

Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
438cb188$0$6676$
Rebonsoir
j'utilise la macro ci dessous: lorque je double clique en a2, la date et
l'heure se mettent automatique ment en b2 et b3.
Comment peut-être modifié cette macro car en faite j'en aurai besoin de a2
à a500 pour éviter d'écrire 500 fois la même chose.
merci à vous

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

If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1)
= Format(Now, "mm/dd/yy")
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 2)
= Format(Now, "hh:mm")

If Not Intersect(Target, Range("A3")) Is Nothing Then Target.Offset(0, 1)
= Format(Now, "mm/dd/yy")
If Not Intersect(Target, Range("A3")) Is Nothing Then Target.Offset(0, 2)
= Format(Now, "hh:mm")
'ect.....
End Sub


--


Katia , Fred & Valentin



Avatar
fredbzr
Bonsoir, Bonsoir Daniel
Super c'est ce que je voulais
Une nouvelle fois merci
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie :

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

If Intersect(Target, Range("A2:A500")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Now, "mm/dd/yy")
Target.Offset(0, 2) = Format(Now, "hh:mm")

End Sub

Cordialement.
Daniel
"fredbzr" a écrit dans le message de news:
438cb188$0$6676$
Rebonsoir
j'utilise la macro ci dessous: lorque je double clique en a2, la date et
l'heure se mettent automatique ment en b2 et b3.
Comment peut-être modifié cette macro car en faite j'en aurai besoin de
a2 à a500 pour éviter d'écrire 500 fois la même chose.
merci à vous

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

If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 1)
= Format(Now, "mm/dd/yy")
If Not Intersect(Target, Range("A2")) Is Nothing Then Target.Offset(0, 2)
= Format(Now, "hh:mm")

If Not Intersect(Target, Range("A3")) Is Nothing Then Target.Offset(0, 1)
= Format(Now, "mm/dd/yy")
If Not Intersect(Target, Range("A3")) Is Nothing Then Target.Offset(0, 2)
= Format(Now, "hh:mm")
'ect.....
End Sub


--


Katia , Fred & Valentin