Bonjour à tous
j'utilise la macro ci dessous qui a été faite par Daniel et qui fonctionne
très bien, mais je n'arrive pas à rajouter une colonne.Je m'explique: en a12
lorque je clic j'ai bien la date et l'heure qui s'inscrivent (pour moi c'est
le jour et l'heure de sortie d'un matériel), j'aurai voulu ajouter une
colonne pour l'heure de retour de ce matériel par ex en J, je pensai m'en
sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
La première partie en A fonctionne
If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub
Target.Offset(0, 0) = Format(Now, "mm/dd/yy")
Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ?
If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub
Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure dans
la case où je clic)
End Sub
Une fois de plus je réclame votre aide
Merci d'avance
--
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
Daniel
Bonjour. Essaie :
If Intersect(Target, Range("A12:A65536")) Is Nothing And _ Intersect(Target, Range("J12:A65536")) Is Nothing _ Then Exit Sub If Target.Column = 1 Then Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm") Else Target.Offset(0, 0) = Format(Now, "hh:mm") End If
Daniel "fredbzr" a écrit dans le message de news: 438ee157$0$29194$
Bonjour à tous j'utilise la macro ci dessous qui a été faite par Daniel et qui fonctionne très bien, mais je n'arrive pas à rajouter une colonne.Je m'explique: en a12 lorque je clic j'ai bien la date et l'heure qui s'inscrivent (pour moi c'est le jour et l'heure de sortie d'un matériel), j'aurai voulu ajouter une colonne pour l'heure de retour de ce matériel par ex en J, je pensai m'en sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) La première partie en A fonctionne If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ? If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure dans la case où je clic)
End Sub
Une fois de plus je réclame votre aide Merci d'avance --
Katia , Fred & Valentin
Bonjour.
Essaie :
If Intersect(Target, Range("A12:A65536")) Is Nothing And _
Intersect(Target, Range("J12:A65536")) Is Nothing _
Then Exit Sub
If Target.Column = 1 Then
Target.Offset(0, 0) = Format(Now, "mm/dd/yy")
Target.Offset(0, 3) = Format(Now, "hh:mm")
Else
Target.Offset(0, 0) = Format(Now, "hh:mm")
End If
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
438ee157$0$29194$8fcfb975@news.wanadoo.fr...
Bonjour à tous
j'utilise la macro ci dessous qui a été faite par Daniel et qui fonctionne
très bien, mais je n'arrive pas à rajouter une colonne.Je m'explique: en
a12 lorque je clic j'ai bien la date et l'heure qui s'inscrivent (pour moi
c'est le jour et l'heure de sortie d'un matériel), j'aurai voulu ajouter
une colonne pour l'heure de retour de ce matériel par ex en J, je pensai
m'en sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
La première partie en A fonctionne
If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub
Target.Offset(0, 0) = Format(Now, "mm/dd/yy")
Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ?
If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub
Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure
dans la case où je clic)
End Sub
Une fois de plus je réclame votre aide
Merci d'avance
--
If Intersect(Target, Range("A12:A65536")) Is Nothing And _ Intersect(Target, Range("J12:A65536")) Is Nothing _ Then Exit Sub If Target.Column = 1 Then Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm") Else Target.Offset(0, 0) = Format(Now, "hh:mm") End If
Daniel "fredbzr" a écrit dans le message de news: 438ee157$0$29194$
Bonjour à tous j'utilise la macro ci dessous qui a été faite par Daniel et qui fonctionne très bien, mais je n'arrive pas à rajouter une colonne.Je m'explique: en a12 lorque je clic j'ai bien la date et l'heure qui s'inscrivent (pour moi c'est le jour et l'heure de sortie d'un matériel), j'aurai voulu ajouter une colonne pour l'heure de retour de ce matériel par ex en J, je pensai m'en sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) La première partie en A fonctionne If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ? If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure dans la case où je clic)
End Sub
Une fois de plus je réclame votre aide Merci d'avance --
Katia , Fred & Valentin
fredbzr
Bonjour Daniel, Je dois encore te remercier pour ton aide çà fonctionne impeccable peut-être à bientôt.......
"Daniel" a écrit dans le message de news:
Bonjour. Essaie :
If Intersect(Target, Range("A12:A65536")) Is Nothing And _ Intersect(Target, Range("J12:A65536")) Is Nothing _ Then Exit Sub If Target.Column = 1 Then Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm") Else Target.Offset(0, 0) = Format(Now, "hh:mm") End If
Daniel "fredbzr" a écrit dans le message de news: 438ee157$0$29194$
Bonjour à tous j'utilise la macro ci dessous qui a été faite par Daniel et qui fonctionne très bien, mais je n'arrive pas à rajouter une colonne.Je m'explique: en a12 lorque je clic j'ai bien la date et l'heure qui s'inscrivent (pour moi c'est le jour et l'heure de sortie d'un matériel), j'aurai voulu ajouter une colonne pour l'heure de retour de ce matériel par ex en J, je pensai m'en sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) La première partie en A fonctionne If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ? If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure dans la case où je clic)
End Sub
Une fois de plus je réclame votre aide Merci d'avance --
Katia , Fred & Valentin
Bonjour Daniel,
Je dois encore te remercier pour ton aide
çà fonctionne impeccable
peut-être à bientôt.......
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWeHT3m9FHA.3636@TK2MSFTNGP09.phx.gbl...
Bonjour.
Essaie :
If Intersect(Target, Range("A12:A65536")) Is Nothing And _
Intersect(Target, Range("J12:A65536")) Is Nothing _
Then Exit Sub
If Target.Column = 1 Then
Target.Offset(0, 0) = Format(Now, "mm/dd/yy")
Target.Offset(0, 3) = Format(Now, "hh:mm")
Else
Target.Offset(0, 0) = Format(Now, "hh:mm")
End If
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
438ee157$0$29194$8fcfb975@news.wanadoo.fr...
Bonjour à tous
j'utilise la macro ci dessous qui a été faite par Daniel et qui
fonctionne très bien, mais je n'arrive pas à rajouter une colonne.Je
m'explique: en a12 lorque je clic j'ai bien la date et l'heure qui
s'inscrivent (pour moi c'est le jour et l'heure de sortie d'un matériel),
j'aurai voulu ajouter une colonne pour l'heure de retour de ce matériel
par ex en J, je pensai m'en sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
La première partie en A fonctionne
If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub
Target.Offset(0, 0) = Format(Now, "mm/dd/yy")
Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ?
If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub
Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure
dans la case où je clic)
End Sub
Une fois de plus je réclame votre aide
Merci d'avance
--
Bonjour Daniel, Je dois encore te remercier pour ton aide çà fonctionne impeccable peut-être à bientôt.......
"Daniel" a écrit dans le message de news:
Bonjour. Essaie :
If Intersect(Target, Range("A12:A65536")) Is Nothing And _ Intersect(Target, Range("J12:A65536")) Is Nothing _ Then Exit Sub If Target.Column = 1 Then Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm") Else Target.Offset(0, 0) = Format(Now, "hh:mm") End If
Daniel "fredbzr" a écrit dans le message de news: 438ee157$0$29194$
Bonjour à tous j'utilise la macro ci dessous qui a été faite par Daniel et qui fonctionne très bien, mais je n'arrive pas à rajouter une colonne.Je m'explique: en a12 lorque je clic j'ai bien la date et l'heure qui s'inscrivent (pour moi c'est le jour et l'heure de sortie d'un matériel), j'aurai voulu ajouter une colonne pour l'heure de retour de ce matériel par ex en J, je pensai m'en sortir tout seul ........
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) La première partie en A fonctionne If Intersect(Target, Range("A12:A65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "mm/dd/yy") Target.Offset(0, 3) = Format(Now, "hh:mm")
mais la deuxième en J ne fonctionne pas : que manque t-il ? If Intersect(Target, Range("J12:J65536")) Is Nothing Then Exit Sub Target.Offset(0, 0) = Format(Now, "hh:mm") (je souhaite l'heure dans la case où je clic)
End Sub
Une fois de plus je réclame votre aide Merci d'avance --
