[Résolu]cliquer puis inscrire l'heure

[Thibault98]

Bonjour,

Avec VBA serait-il possible de cliquer dans les colonnes de A jusqu'à D puis inscrire l'heure dans les lignes correspondantes dans les colonnes E jusqu'à H ?

merci d'avance.

Thibault. 😕

 

[Robert]

Re : cliquer puis inscrire l'heure

Bonjour Thibault, bonjour le forum,

Personnellement je n'ai rien compris à ta demande... Je pense qu'un fichier exemple, montrant ce que tu as avant et ce que tu voudrais après traitement de la macro, nous permettrait de mieux comprendre...

 

[Victor21]

Re : cliquer puis inscrire l'heure

Bonjour, Thibault98

Sans plus de précision, sans fichier à tester, essayez, dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D4")) Is Nothing Then Target.Offset(0, 4).Value = Time
End Sub

Edit : Bonjour, Robert 🙂

 

[DoubleZero]

Re : cliquer puis inscrire l'heure

Bonjour, Thibault98, Robert 🙂, le Forum,

Un essai, sans certitude d'avoir compris le réel besoin 😕 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:d")) Is Nothing Then
If Target.Value <> "" Then Target.Offset(, 4) = Format(Time, "hh:mm:ss")
End If
End Sub

A bientôt 🙂

P. S. : Bonjour, Victor21 🙂

 

[Thibault98]

Re : cliquer puis inscrire l'heure

Bonjour Thibault, bonjour le forum,

Personnellement je n'ai rien compris à ta demande... Je pense qu'un fichier exemple, montrant ce que tu as avant et ce que tu voudrais après traitement de la macro, nous permettrait de mieux comprendre...

Voici ce fichier
Merci

 

[phlaurent55]

Re : cliquer puis inscrire l'heure

Bonjour à tous,

avec ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:D18")) Is Nothing Then
Target.Offset(0, 4).Value = Format(Time, "hh:mm")
Target = "X"
End If
End Sub

à+
Philippe

 

[Thibault98]

Re : cliquer puis inscrire l'heure

On y est presque, j'ai modifié le code mais maintenant si un "X" est mis et que je clique dessus de nouveau il doit disparaitre ainsi que l'heure associée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:D")) Is Nothing Then Target.Offset(0, 4).Value = Format(Time, "hh:mm")
Target = "X"
End Sub

Merci
Thibault.

 

[phlaurent55]

Re : cliquer puis inscrire l'heure

Re,

avec ceci pour un double-clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:D")) Is Nothing Then
Target.Offset(0, 4).Value = Format(Time, "hh:mm")
Target = IIf(Target = "X", "", "X")
If Target = "" Then Target.Offset(0, 4) = ""
End If
End Sub

ou ceci pour une simple sélection

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:D")) Is Nothing And Target.Count = 1 Then
Target.Offset(0, 4).Value = Format(Time, "hh:mm")
Target = IIf(Target = "X", "", "X")
If Target = "" Then Target.Offset(0, 4) = ""
End If
End Sub

à+
Philippe

Edit:
Dans la seconde procédure, j'ai ajouté
And Target.Count = 1
pour éviter un plantage lors d'une sélection multiple

 

[Thibault98]

Re : cliquer puis inscrire l'heure

Merci à tous c'est parfait !

@ bientôt

Thibault.