Date et heure automatique

Résolu
JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -  
JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je souhaite mettre en place un tableau de suivi des appel recu qui reprenne :
Colone A : la date et l'heure de l'appel
Colone B : l'objet de l'appel
ect..

Est il possible que la colone A s'incremente automatiquement à la validation de la colone B autrement dit : A1 se rempli losrque je valide l'objet de l'appel dans B1

Merci

3 réponses

  1. jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   1 443
     
    Bonjour
    Tu colles ce code dans ta feuille

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
    Target.Offset(0, -1) = Format(Now, "dd/mm/yyyy hh:mm:ss")
    End If
    End Sub

    Cordialement
    2
    1. dna.factory Messages postés 19921 Date d'inscription   Statut Modérateur Dernière intervention   1 621
       
      dans excel 2013, il faut activer aller dans fichier option pour activer le rubant développeur
      et dans le ruban développeur, cliquer sur vba et coller le code.
      Sauver tout ça en xlms et c'est bon.

      quand on modifie une autre cellule, ça ne change pas la date.
      Par contre, quand on remodifie la même cellule, ça rechange la date.
      Cela peut être voulu, mais personnellement, je rajouterais un autre condition pour que la date ne s'inscrive que si la cellule de destination est vide.
      0
    2. JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   1
       
      Ok c'est bon ca marche pour moi meme si j'ai rien compris ;)
      Faudrais que je travail un peut les macros..
      Merci a tous
      0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour

    dans A2

    si(B2<>"";maintenant();"")
    à tirer vers le bas

    mette la colonne A au format-nombre-date voulu ou personnalisé
    0
    1. JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   1
       
      Super solution merci :)
      0
    2. dna.factory Messages postés 19921 Date d'inscription   Statut Modérateur Dernière intervention   1 621
       
      Attention, maintenant() et aujourd'hui() sont des pièges.
      ils se mettent à jour à chaque calcul dans la page.
      (c'est d'ailleurs ce qui se passe dans le message du dessous).
      Et comme la formule ne teste pas l'action de remplir, mais le fait que ça soit remplis, ça ne peut pas marcher ici.
      0
    3. JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   1
       
      une autre solution alors ?
      0
    4. dna.factory Messages postés 19921 Date d'inscription   Statut Modérateur Dernière intervention   1 621
       
      la formule de jc80 fonctionne :
      https://forums.commentcamarche.net/forum/affich-32915660-date-et-heure-automatique#1
      dans excel 2013, il faut activer aller dans fichier option pour activer le rubant développeur
      et dans le ruban développeur, cliquer sur vba et coller le code.
      Sauver tout ça en xlms et c'est bon.
      0
  3. JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   1
     
    Une aide seplémentaire :
    Quand valide une ligne dans la colone Objet, il me change toutes les dates et heures dans la colones Date:

    colone : B/C

    Date / Objet appel

    28/12/15 9:05 / PB alumage
    28/12/15 9:05 / E05
    28/12/15 9:05 / B23P

    =SI(C159<>"";MAINTENANT();"")
    =SI(C160<>"";MAINTENANT();"")
    =SI(C161<>"";MAINTENANT();"")

    Si je valide C161 excel met à jour les deux autres dates dans B159 et B160

    help pls
    0
    1. jc80 Messages postés 5063 Date d'inscription   Statut Membre Dernière intervention   1 443
       
      Bonjour
      si tu as la date en B et tes données en C colle ce code dans ta feuille ainsi tes dates ne bougeront plus

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 3 Then
      Target.Offset(0, -1) = Format(Now, "dd/mm/yyyy hh:mm:ss")
      End If
      End Sub

      Cordialement
      0
    2. JLZ68 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   1
       
      n'importe ou dans la feuille ? ou en macro ? (je sais pas comment ca marche (les macros))
      0