Noté les heures : minutes de chaque automatiquement

Bonjour
Simple et rapide, dans la cellule correspondante de la colonne A
maintenez la touche CRTL enfoncée et appuyez sur la touche : (2points)
Cdlt

Bonsoir,

Clic en même temps sur Ctrl et sur point virgule (Ctrl;) espace et Ctrl et double point (Ctrl:) ce qui te donnera 20/01/2016 16:55
ou il faut écrire une macro si tu connais

Merci a tous pour ces réponse en tout cas ;)

Re,

je suis obligé de sortir, dans la soirée je t'écris un code pour l'automatiser si personne n'est passé par là

Re,

si je comprends bien tes tableaux, c'est colonne A des onglets Lundi, Mardi etc ... que tu veux la date et l'heure si les données colonne B changent, c'est bien cela !

Re,

a défaut de réponse, récupère ton fichier voir, un fichier contenant des macros doit être enregistré en XLSM ou ancienne extension XLS
https://www.cjoint.com/c/FADtlKg0Hfj

Re,

plusieurs possibilités, soit tu colles ce code dans les propriétés de chaque feuille concernée (clic droit sur l'onglet de ta feuille/Visualiser le code) et coller ce code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, 1) = Now()
    Application.EnableEvents = True
End Sub

soit tu colles ce code une seule fois dans la Thisworkbook
(clic droit sur l'onglet d'une feuille/Visualiser le code/clic droit sur Thisworkbook que tu trouveras sur la gauche Projet-VBA project) et Code

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If ActiveSheet.Name = "graphique" Or ActiveSheet.Name = "MEILEUR JOUR" Then Exit Sub
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, 1) = Now()
    Application.EnableEvents = True
End Sub

explication de ce dernier code

If ActiveSheet.Name = "graphique" Or ActiveSheet.Name = "MEILEUR JOUR" Then Exit Sub

si tu travailles sur la feuille "graphique" ou sur la feuille "MEILEUR JOUR" on sort de la procédure

If Target.Column <> 2 Then Exit Sub

si tu travailles sur une colonne différente de la colonne 2 on sort également de la procédure

Cells(Target.Row, 1) = Now()

si les conditions sont réunies on reste sur la même ligne colonne 1 ou A et on colle NOW() en clair maintenant () soit la date et l'heure

dans tes plages colonne A des feuilles concernées tu peux saisir ce format personnalisé pour afficher la date, l'heure avec les secondes

jj/mm/aaaa hh:mm:ss

il est également possible de limiter l'action à une plage restrinte colonne B exemple si tu as sur la première ligne une entête de colonne, dans ce cas fait signe
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.