Bonjour
Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la
souris pour que la cellule affiche l'heure instantan=E9e. Sauf erreur de
ma part il faut pour afficher l heure faire la combinaison CTRL avec
la touche ":" (deux points)
Merci pour votre aide
PS Sur office 2007
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
Philippe.R
Bonjour, A coller dans le module de la feuille :
Private Sub Worksheet_BeforeRightClick _ (ByVal Target As Range, Cancel As Boolean) Target.Value = Format(Now - Int(Now), _ "hh:mm:ss") Cancel = True 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 a écrit dans le message de news: Bonjour Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la souris pour que la cellule affiche l'heure instantanée. Sauf erreur de ma part il faut pour afficher l heure faire la combinaison CTRL avec la touche ":" (deux points) Merci pour votre aide PS Sur office 2007
Bonjour,
A coller dans le module de la feuille :
Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Range, Cancel As Boolean)
Target.Value = Format(Now - Int(Now), _
"hh:mm:ss")
Cancel = True
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
<phidelfio06@gmail.com> a écrit dans le message de
news:b5730120-29ea-499c-bba5-97fc74ed4cca@a39g2000prl.googlegroups.com...
Bonjour
Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la
souris pour que la cellule affiche l'heure instantanée. Sauf erreur de
ma part il faut pour afficher l heure faire la combinaison CTRL avec
la touche ":" (deux points)
Merci pour votre aide
PS Sur office 2007
Private Sub Worksheet_BeforeRightClick _ (ByVal Target As Range, Cancel As Boolean) Target.Value = Format(Now - Int(Now), _ "hh:mm:ss") Cancel = True 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 a écrit dans le message de news: Bonjour Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la souris pour que la cellule affiche l'heure instantanée. Sauf erreur de ma part il faut pour afficher l heure faire la combinaison CTRL avec la touche ":" (deux points) Merci pour votre aide PS Sur office 2007
garnote
Bonjour,
Une suggestion :
Si tu veux que l'heure s'affiche quand tu fais un clic droit sur une cellule quelconque de ton classeur actif,
1) Tape Alt+F11, 2) Dans la fenêtre qui apparaît, double-clique sur le ThisWorkbook de ton classeur (arborescence à gauche) et colle cette macro :
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 Then Target = Format(Now, "hh.mm:ss") End Sub
Serge
a écrit dans le message de news: Bonjour Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la souris pour que la cellule affiche l'heure instantanée. Sauf erreur de ma part il faut pour afficher l heure faire la combinaison CTRL avec la touche ":" (deux points) Merci pour votre aide PS Sur office 2007
Bonjour,
Une suggestion :
Si tu veux que l'heure s'affiche quand tu fais un clic droit
sur une cellule quelconque de ton classeur actif,
1) Tape Alt+F11,
2) Dans la fenêtre qui apparaît, double-clique sur le ThisWorkbook
de ton classeur (arborescence à gauche) et colle cette macro :
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then Target = Format(Now, "hh.mm:ss")
End Sub
Serge
<phidelfio06@gmail.com> a écrit dans le message de news: b5730120-29ea-499c-bba5-97fc74ed4cca@a39g2000prl.googlegroups.com...
Bonjour
Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la
souris pour que la cellule affiche l'heure instantanée. Sauf erreur de
ma part il faut pour afficher l heure faire la combinaison CTRL avec
la touche ":" (deux points)
Merci pour votre aide
PS Sur office 2007
Si tu veux que l'heure s'affiche quand tu fais un clic droit sur une cellule quelconque de ton classeur actif,
1) Tape Alt+F11, 2) Dans la fenêtre qui apparaît, double-clique sur le ThisWorkbook de ton classeur (arborescence à gauche) et colle cette macro :
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 Then Target = Format(Now, "hh.mm:ss") End Sub
Serge
a écrit dans le message de news: Bonjour Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la souris pour que la cellule affiche l'heure instantanée. Sauf erreur de ma part il faut pour afficher l heure faire la combinaison CTRL avec la touche ":" (deux points) Merci pour votre aide PS Sur office 2007
garnote
Après hh, je voulais écrire : Format(Now, "hh:mm:ss") Dans ce cas, la cellule prend un format d'heure personnalisé
Par contre si tu écris Format(Now, "hh.mm:ss"), tu obtiens quand même l'heure mais ta cellule demeure en format standard.
Serge
"garnote" a écrit dans le message de news:
Bonjour,
Une suggestion :
Si tu veux que l'heure s'affiche quand tu fais un clic droit sur une cellule quelconque de ton classeur actif,
1) Tape Alt+F11, 2) Dans la fenêtre qui apparaît, double-clique sur le ThisWorkbook de ton classeur (arborescence à gauche) et colle cette macro :
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 Then Target = Format(Now, "hh.mm:ss") End Sub
Serge
a écrit dans le message de news:
Bonjour Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la souris pour que la cellule affiche l'heure instantanée. Sauf erreur de ma part il faut pour afficher l heure faire la combinaison CTRL avec la touche ":" (deux points) Merci pour votre aide PS Sur office 2007
Après hh, je voulais écrire :
Format(Now, "hh:mm:ss")
Dans ce cas, la cellule prend un format
d'heure personnalisé
Par contre si tu écris Format(Now, "hh.mm:ss"),
tu obtiens quand même l'heure mais ta cellule
demeure en format standard.
Serge
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news: OhpBJTkeJHA.816@TK2MSFTNGP04.phx.gbl...
Bonjour,
Une suggestion :
Si tu veux que l'heure s'affiche quand tu fais un clic droit
sur une cellule quelconque de ton classeur actif,
1) Tape Alt+F11,
2) Dans la fenêtre qui apparaît, double-clique sur le ThisWorkbook
de ton classeur (arborescence à gauche) et colle cette macro :
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then Target = Format(Now, "hh.mm:ss")
End Sub
Serge
<phidelfio06@gmail.com> a écrit dans le message de news:
b5730120-29ea-499c-bba5-97fc74ed4cca@a39g2000prl.googlegroups.com...
Bonjour
Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la
souris pour que la cellule affiche l'heure instantanée. Sauf erreur de
ma part il faut pour afficher l heure faire la combinaison CTRL avec
la touche ":" (deux points)
Merci pour votre aide
PS Sur office 2007
Après hh, je voulais écrire : Format(Now, "hh:mm:ss") Dans ce cas, la cellule prend un format d'heure personnalisé
Par contre si tu écris Format(Now, "hh.mm:ss"), tu obtiens quand même l'heure mais ta cellule demeure en format standard.
Serge
"garnote" a écrit dans le message de news:
Bonjour,
Une suggestion :
Si tu veux que l'heure s'affiche quand tu fais un clic droit sur une cellule quelconque de ton classeur actif,
1) Tape Alt+F11, 2) Dans la fenêtre qui apparaît, double-clique sur le ThisWorkbook de ton classeur (arborescence à gauche) et colle cette macro :
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 Then Target = Format(Now, "hh.mm:ss") End Sub
Serge
a écrit dans le message de news:
Bonjour Pouvez vous pas a pas m'expliquer comment affecter le clic droit de la souris pour que la cellule affiche l'heure instantanée. Sauf erreur de ma part il faut pour afficher l heure faire la combinaison CTRL avec la touche ":" (deux points) Merci pour votre aide PS Sur office 2007