noté les heures : minutes de chaque automatiquement

Question

Bonjour, 

J'ai une petite question sur Excel vous vous en doutez. :) 
j'ai créée un rapport d'appel 
lorsque je rentre le numéros de client dans la colonne B je voudrais qu'automatiquement dans la Colonne A il y soit inscris l'heure a la quelle je l'ai appelé 
 est-ce possible ? 


Merci a tous et bonne Journée 

Configuration: Mac OS X (10.11.3) / Chrome 47.0.2526.111

Frenchie83 · Answer

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

Mike-31 · Answer

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

Utilisateur anonyme · Answer

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

Mike-31 · Answer

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à

Mike-31 · Answer

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 !

Mike-31 · Answer

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

Mike-31 · Answer

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.

Noté les heures : minutes de chaque automatiquement

7 réponses

Votre réponse

Discussions similaires