Affichage de l'heure sur touche "Entrée"

Excel-lent

XLDnaute Barbatruc

• 19 Octobre 2009

• #2

Re : Affichage de l'heure sur touche "Entrée"

Bonjour et bienvenue sur le forum Serge36

Voici ci-dessous un code qui fonctionne :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Saisie de l'heure actuelle dans la cellule contigue
'dans la plage B6:B155

If Target.Column = 2 And Target.Row >= 6 And Target.Row <= 155 Then
  Cells(Target.Row, Target.Column + 1) = Time()
End If

End Sub

PS. : la prochaine fois, évite d'oublier de dire "bonjour" 😉
Sinon tu risque de ne pas obtenir de réponse! Ben oui! Ici, on aime bien la politesse!
Lien supprimé

Bonne fin de soirée

A+

 

Dernière édition: 19 Octobre 2009

Vote positif 0 Vote négatif

H

hamcec

Guest

• 19 Octobre 2009

• #3

Re : Affichage de l'heure sur touche "Entrée"

Bonjour le forum,

je me permet de compléter la dernière réponse apportée.
Si on veut que la solution fonctionne lorsqu'on tape sur la touche entrée, il faut :

Ajouter la procédure suivante dans un module :
Public Sub P_Traitement()
If ActiveCell.Column = 2 And ActiveCell.Row >= 6 And ActiveCell.Row <= 155 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1) = Time()
End If
End Sub

et ajouter dans le module ThisWorkbook du classeur les deux procédures suivantes :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "~", ""
End Sub

Private Sub Workbook_Open()
Application.OnKey "~", "P_Traitement"
End Sub

A+
Hamcec.

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 19 Octobre 2009

• #4

Re : Affichage de l'heure sur touche "Entrée"

Bonsoir Excel-Lent,Serge36 et Le Forum

*Heureux de te croiser
Je te soutiens ,concernant les formules de politesse qui somme toute est
la moindre des choses
Peut de nouveau venu lise la chartre,apparament

Si tu permet Excel-Lent,je rajouterais le format de cellule sur cette ligne

Cells(Target.Row, Target.Column + 1) = Format(Time, "hh:mm:ss")

Cliquez pour agrandir...

Bonne soirée

 

Dernière édition: 19 Octobre 2009

Vote positif 0 Vote négatif

S

serge36

Guest

• 19 Octobre 2009

• #5

Re : Affichage de l'heure sur touche "Entrée"

Merci pour cette réponse mais il me semble que le problème reste le même, je suis obligé de saisir une donnée dans la colonne B pour voir apparaitre l'heure dans la colonne C (même ligne)

Je travaille avec Excel 2000 et je cherche à avoir l'heure courante dans la colonne C sans avoir à rentrer une valeur dans la colonne B (juste une validation par la touche "Return")

Merci pour vos conseils

 

Vote positif 0 Vote négatif

H

hamcec

Guest

• 19 Octobre 2009

• #6

Re : Affichage de l'heure sur touche "Entrée"

serge36,

si tu appliques le contenu de mon dernier post, il n'est pas utile de saisir quoique ce soit dans la colonne B, le simple fait de taper sur la touche Entrée suffit pour obtenir ce que tu demandes !

A+
Hamcec.

 

Vote positif 0 Vote négatif

S

serge36

Guest

• 19 Octobre 2009

• #7

Re : Affichage de l'heure sur touche "Entrée"

Méaculpa pour mon impolitesse.
Merci pour cette solution, est-il possible de l'améliorer pour que après validation, la cellule active soit la cellule d'en dessous soit par exemple :
Validation B6
l'heure se met en C6
La cellule active devient B7
je valide B7
l'heure se met en C7
La cellule active devient B8
etc...
Merci

 

Vote positif 0 Vote négatif

H

hamcec

Guest

• 19 Octobre 2009

• #8

Re : Affichage de l'heure sur touche "Entrée"

Il suffit d'ajouter une ligne à la procédure principale P_Traitement qui devient :

Public Sub P_Traitement()
If ActiveCell.Column = 2 And ActiveCell.Row >= 6 And ActiveCell.Row <= 155 Then
Cells(ActiveCell.Row, ActiveCell.Column + 1) = Time()
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End If
End Sub

A+
Hamcec.

 

Vote positif 0 Vote négatif

S

serge36

Guest

• 19 Octobre 2009

• #9

Re : Affichage de l'heure sur touche "Entrée"

Merci bien pour cette solution rapide

 

Vote positif 0 Vote négatif