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

[serge36]

Je cherche à afficher l'heure courante dans la cellule contigue lorsque l'on valide (Entrée) la cellule Bi

Sub Worksheet_Change(ByVal Target As Excel.Range)
'Saisie de l'heure actuelle dans la cellule contigue
'dans la plage B6:B155
For i = 6 To 155
If Target.Address = "$B$" & i Then
ActiveCell(0, 2) = Time()
End If
Next i
End Sub

cette fonction ne fonctionne que si je rentre une valeur dans la cellule de Bi, est-il possible d'obtenir la même chose en ayant juste à valider la touche "Return"

 

[Excel-lent]

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

Bonjour et bienvenue sur le forum Serge36

Voici ci-dessous un code qui fonctionne :

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+

 

[hamcec]

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.

 

[MuscatMimi]

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")

Bonne soirée

 

[serge36]

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

 

[hamcec]

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.

 

[serge36]

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

 

[hamcec]

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.

 

[serge36]

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

Merci bien pour cette solution rapide