Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que
je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE
les fois que quelqu'un clique dans la cellule E7 que la date et heure soit
inscrite
mettont
16 mai 2008 16.04
16 mai 208 16.08
et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
[E8] = Date
[E8].Select
End Sub
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
Jacky
Re... Je propose par double clique ou clique droit '------------ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, [e7]) Is Nothing Then [e7] = Format(Now, "dd mmmm yyyy hh:mm") End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [e7]) Is Nothing Then Cancel = True [e7] = Format(Now, "dd mmmm yyyy hh:mm") End If End Sub '----------------- Voir ici http://cjoint.com/?frbTQbB8as -- Salutations JJ
"Nito" a écrit dans le message de news: %
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et heure soit inscrite mettont 16 mai 2008 16.04 16 mai 208 16.08 et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter [E8] = Date [E8].Select End Sub
Merci encore de l'aide vous etes super Nito
Re...
Je propose par double clique ou clique droit
'------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, [e7]) Is Nothing Then [e7] = Format(Now, "dd mmmm
yyyy hh:mm")
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, [e7]) Is Nothing Then
Cancel = True
[e7] = Format(Now, "dd mmmm yyyy hh:mm")
End If
End Sub
'-----------------
Voir ici
http://cjoint.com/?frbTQbB8as
--
Salutations
JJ
"Nito" <Nitotr@hotmail.com> a écrit dans le message de news:
%234uORo6tIHA.3804@TK2MSFTNGP02.phx.gbl...
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule
que je trouve fort interessante masi je me demande si c,est possible qu'a
TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et
heure soit inscrite
mettont
16 mai 2008 16.04
16 mai 208 16.08
et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
[E8] = Date
[E8].Select
End Sub
Re... Je propose par double clique ou clique droit '------------ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, [e7]) Is Nothing Then [e7] = Format(Now, "dd mmmm yyyy hh:mm") End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [e7]) Is Nothing Then Cancel = True [e7] = Format(Now, "dd mmmm yyyy hh:mm") End If End Sub '----------------- Voir ici http://cjoint.com/?frbTQbB8as -- Salutations JJ
"Nito" a écrit dans le message de news: %
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et heure soit inscrite mettont 16 mai 2008 16.04 16 mai 208 16.08 et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter [E8] = Date [E8].Select End Sub
Merci encore de l'aide vous etes super Nito
Philippe.R
Bonjour, Ceci devrait convenir, en supposant que la colonne E ne reçoit que les dates en automatique :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) z= range("e6543").end(xlup).row+1 If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter cells(z,5) = now End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Nito" a écrit dans le message de news:%
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et heure soit inscrite mettont 16 mai 2008 16.04 16 mai 208 16.08 et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter [E8] = Date [E8].Select End Sub
Merci encore de l'aide vous etes super Nito
Bonjour,
Ceci devrait convenir, en supposant que la colonne E ne reçoit que les dates
en automatique :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
z= range("e6543").end(xlup).row+1
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
cells(z,5) = now
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Nito" <Nitotr@hotmail.com> a écrit dans le message de
news:%234uORo6tIHA.3804@TK2MSFTNGP02.phx.gbl...
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule
que je trouve fort interessante masi je me demande si c,est possible qu'a
TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et
heure soit inscrite
mettont
16 mai 2008 16.04
16 mai 208 16.08
et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
[E8] = Date
[E8].Select
End Sub
Bonjour, Ceci devrait convenir, en supposant que la colonne E ne reçoit que les dates en automatique :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) z= range("e6543").end(xlup).row+1 If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter cells(z,5) = now End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Nito" a écrit dans le message de news:%
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et heure soit inscrite mettont 16 mai 2008 16.04 16 mai 208 16.08 et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter [E8] = Date [E8].Select End Sub
Merci encore de l'aide vous etes super Nito
Nito
merci je regarde cela et j'en donne des nouvelels Mais je crois que ca va etre super Merci Nito "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote in message news:
Bonjour, Ceci devrait convenir, en supposant que la colonne E ne reçoit que les dates en automatique :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) z= range("e6543").end(xlup).row+1 If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter cells(z,5) = now End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Nito" a écrit dans le message de news:%
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et heure soit inscrite mettont 16 mai 2008 16.04 16 mai 208 16.08 et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter [E8] = Date [E8].Select End Sub
Merci encore de l'aide vous etes super Nito
merci je regarde cela et j'en donne des nouvelels
Mais je crois que ca va etre super
Merci
Nito
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote in message
news:OGGQF49tIHA.1768@TK2MSFTNGP03.phx.gbl...
Bonjour,
Ceci devrait convenir, en supposant que la colonne E ne reçoit que les
dates en automatique :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
z= range("e6543").end(xlup).row+1
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
cells(z,5) = now
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Nito" <Nitotr@hotmail.com> a écrit dans le message de
news:%234uORo6tIHA.3804@TK2MSFTNGP02.phx.gbl...
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule
que je trouve fort interessante masi je me demande si c,est possible qu'a
TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et
heure soit inscrite
mettont
16 mai 2008 16.04
16 mai 208 16.08
et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
[E8] = Date
[E8].Select
End Sub
merci je regarde cela et j'en donne des nouvelels Mais je crois que ca va etre super Merci Nito "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote in message news:
Bonjour, Ceci devrait convenir, en supposant que la colonne E ne reçoit que les dates en automatique :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) z= range("e6543").end(xlup).row+1 If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter cells(z,5) = now End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Nito" a écrit dans le message de news:%
Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE les fois que quelqu'un clique dans la cellule E7 que la date et heure soit inscrite mettont 16 mai 2008 16.04 16 mai 208 16.08 et ainsi de suite que ca soit conserver
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$E$7" Then Exit Sub Target.Value = "X" Target.HorizontalAlignment = xlCenter [E8] = Date [E8].Select End Sub