Re : Afficher date dans case sélectionnée avec souris
Bonjour,
Merci pour vos contributions, j'ai finalement opté pour la solution suivante, avec la colonne 6 pour début et la 7 pour fin:
Private Sub Worksheet_selectionchange(ByVal Target As Excel.Range)
If Target.Column = 6 And IsEmpty(ActiveCell) = True And IsEmpty(ActiveCell.Offset(-1, 0)) = False And IsEmpty(ActiveCell.Offset(-1, 1)) = False Then
ActiveCell.Value = Now
Call BladeNumberForm
Call Timer
End If
If Target.Column = 7 And IsEmpty(ActiveCell) = True And IsEmpty(ActiveCell.Offset(0, -1)) = False And IsEmpty(ActiveCell.Offset(-1, 0)) = False Then
ActiveCell.Value = Now
Call ChangeReasonForm
End If
End Sub
Cela marche assez bien.
J'avais bien aimé la version proposée avec le double click, mais si je veux modifier une cellule déjà remplie, le double click mets à l'heure "maintenant"...
Dans ma solution (issue de divers copier, coller) j'appelle une fonction timer qui me permet d'afficher les heures de fonctionnement qui s'égrènent, pour info:
Sub Timer()
If IsEmpty(B10000) = True Then
Application.OnTime Now + TimeValue("00:05:00"), _
"TimeUp"
End If
End Sub
puis,
Sub Timeup()
Workbooks("Alpha").Worksheets("duree").Range("J5").Value = Now
Call Timer
ou J5 correspond à la fonction "maintenant" (heure et date actuelle).
Lorsque je sélectionne une cellule, j'ai une fenêtre qui s'ouvre, et une liste de choix apparait, come dans l'exemple avec le fichier proposé Boutrol. Comment faire pour que par défaut il soit affiché dans la cellule cible du menu "-", si on ne selectionne pas A, B, ou C dans la liste proposée.
Normalement après cela, tous mes problèmes seront réglés... Merci d'avance.
B.