Afficher date et heure si données

Résolu

nemi -
nemi - 21 juil. 2014 à 16:53

Bonjour,

J'ai une feuille excel dans laquelle je voudrais que lorsque l'on inscrit des données dans la colonne A, l'heure et la date d'entrée s'affiche automatiquement dans la colonne B sur la même ligne. Par exemple si on entre "portable" en A1 la date et l'heure à laquelle la personne a tapé cette donnée s'affiche dans la cellule B1.
J'ai essayé de trouver un truc avec SI et Maintenant mais sans grand succès ....

Merci d'avance !!

Afficher la suite

2 réponses

Réponse 1 / 2
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention 55

C'est uniquement possible avec des macros.

Si vous voulez je vous dis comment faire.
0
Réponse 2 / 2
jc80 Messages postés 5063 Date d'inscription Statut Membre Dernière intervention 1 443

Bonjour
Essaie avec cette formule

=SI(A1="";"";MAINTENANT())
Cordialement
0
1. skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention 55
  
  Si tu fais ça, cela va te donné la date et l'heure actuel. Comme une horloge
  
  Je pense que ce que nemi veux c'est que la cellule garde l'heure du moment de la modification.
  
  0
2. nemi
  
  Merci déjà pour votre reponse !
  
  Oui j'aurais besoin que la cellule garde l'heure du moment de la modification !
  
  0
3. via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759
  
  Bonjour
  
  Dans ce cas il faut passer par une macro
  
  Alt F11 pour ouvrir l'éditeur
  Selectionner dans l'arborescence la feuille concernée
  Copier et coller la macro suivante :
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  ActiveSheet.Cells(Target.Row, 2) = Now
  End Sub
  
  Cdlmnt
  
  0
4. skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention 55
  
  @via55 Il veut que ça soit lors de la modification de la colonne A :) faut le intersect
  
  Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then ActiveSheet.Cells(Target.Row, 2) = Now End If End Sub
  
  @ Nemi
  Est-ce que ça ne serai pas plus intéressant que la date de dernière modification apparaisse comme un commentaire de la cellule en question ?
  
  0
5. via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention 2 759
  
  @skk201 Tu as parfaitement raison, j'avais zappé l'histoire de la colonne A
  
  0

Afficher date et heure si données

2 réponses

Discussions similaires

Newsletters