Date et heure fixe

Résolu
EKP -  
 EKP -
Bonjour. J'ai une cellule A1 et B1 d'une feuille. J'aimerais inséré une formule dans la cellule A1 pour qu'il m'affiche une date et heure fixe quand j'insère une valeur dans B1. Merci

2 réponses

  1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour

    je ne crois que vous puissiez faire ça par formule
    voyez cette option, si vous acceptez les macros (fichier xlsm):

    clic droit sur le nom d'onglet
    dans le menu: "visualiser le code"
    et coller ça

    Private Sub Worksheet_change(ByVal Target As Range)

    Dim Rw As Long
    Rw = Target.Row
    If Target.Column = 2 Then
    Range("A" & Rw).Select
    ActiveCell.Value = Now
    End If
    End Sub


    crdlmnt

    0
    1. EKP
       
      Bonsoir. J'arrive à le faire mais quand je veux fermé la feuille il me dit que je peux pas enregistré celui sans macro. Comment faire?
      0
      1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453 > EKP
         
        Re
        enregistrer sous
        dans la fenêtre affichée carde du bas "type", sélectionnez
        classeur Excel (prenant en charge les macros)(*xlsm)
        crdlmnt
        0
      2. EKP > Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Bonjour. Est il possible d'avoir la même fonction dans la colonne F?
        0
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      vi
      si c'est pour placer la date en E (ou ailleurs) copier coller ci dessous. (vous verrez alors dans le collage des lignes explicatives non fonctionnelles en vert)

      Private Sub Worksheet_change(ByVal Target As Range)
      'identifier la ligne sélectionnée
      Dim Rw As Long
      Rw = Target.Row
      'préciser la colonne Active (N° colonne dans la feuille)
      If Target.Column = 2 Then
      'déterminer la colonne recevant la date
      Range("A" & Rw).Select
      ActiveCell.Value = Now
      End If
      'idem avec action en F pour date en E
      If Target.Column = 6 Then
      Range("E" & Rw).Select
      ActiveCell.Value = Now
      End If
      'etc...si besoin
      End Sub


      crdlmnt
      0
    3. EKP
       
      Super. Grand merci à vous
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,
    Comme le dit l'ami Vaucluse que je salue, par formule il n'est pas possible de fixer la date et l'heure ou il faut passer par VBA si tu as quelques notions,
    mais si tu n'as que A1 à renseigner pourquoi écrire un code, tu peux faire simplement en cliquant en même temps sur deux touches
    Ctrl et point virgule, espace et Ctrl et double point
    Ctrl avec ; espace et Ctrl avec :
    A+
    Mike-31

    Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
    0
    1. EKP
       
      Bonsoir. J'ai autres colonnes à ajouté après. J'y arrive pas par ctrl+l car rien n'apparaît quand je fais la combinaison.
      0