Formule excel

Résolu
ptitof95 -  
Bonjour,

je souhaiterais faire une main courante via excel

exemple :

Si en cellule B1 il ya du texte mettre l'heure et la date du moment en A1

est ce possible ?

cordialement
christophe

5 réponses

  2. ptitof95 Auteur
    c'est exactement ce que j'ai fait
    j'ai copier coller la formule en changeant B1 en B2 puis en B3 etc.
    ccela met bien l'heure de saisie en A1 lorsque j'ecris en B1
    mais lorsque j'ecris en B2, en A2 l'heure de saisie saffiche mais change l'heure A1 en heure de saisie B2.

    je sais pas si je suis tres clair dans mes explication....

    christophe
    1
    1. eriiic Contributeur
      Bonjour,

      ca ne peut être fait que par macro.
      A mettre dans le module de la feuille : 
      Private Sub Worksheet_Change(ByVal Target As Range)
     Dim c As Range
     Static noEvents As Boolean
     If noEvents Then Exit Sub
     noEvents = True
     For Each c In Intersect(Target, Columns(2))
        If c <> "" And c.Offset(, -1) = "" Then c.Offset(, -1) = Now()
     Next c
     noEvents = False
End Sub

      Date et heure ne sont mises que si A est vide. Si tu veux écraser l'ancienne heure sur une modif enlever le test And c.Offset(, -1) = ""
      https://www.cjoint.com/?DIptxx0kOIs

      eric
      0
    2. ptitof95 Auteur
      bonjour,

      quesque le module de la feuille ?
      puis je vous envoyer mon fichier afin que vous me mettiez la macros ?

      cordialement
      christophe
      0
    3. eriiic Contributeur
      Bonjour,

      Tes remerciements me touchent...
      Fait clic-droit sur le nom d'onglet de ta feuille et 'visualiser le code'.
      Tu colles le code dans la fenêtre de droite.
      Sinon déposer le fichier sur cjoint.com et coller ici le lien fourni.

      eric
      0
    4. ptitof95 Auteur
      nous sommes dans un dialogue je te remercierai pour ton aide bien entendu à la fin du dialogue....

      voici le lien ci joint

      http://cjoint.com/data3/3IqkagLO446.htm

      En vous remerciant toi et sinane123

      christophe
      0
    5. eriiic Contributeur
      http://cjoint.com/14sp/DIqkw3mHtkR_classeur2.xls
      0
  3. sinane123
    chager b1 par b2
    ou recopier la formule :
    sélectionner la cellule a1
    cliquer sur le carré noir au bas droit de la cellule a1
    glisser la souris vers le bas puis relâcher
    -2
    1. ptitof95 Auteur
      merci, cela fonctionne le seul problème c'est que lorsque je fais la meme sur B2 l'heure change sur également sur A1
      0
      2. sinane123
        bonjour
        =SI(B1<>"";MAINTENANT();"")
        personnaliser la forme de la cellule A1
        dans le menu contextuel--> sélectionner le commande " Format de cellule"
        Dans la boite de dialogue (l'onglet "Nombre") sélectionner la catégorie "Date"
        puis personnaliser dans le type "14/3/01 13:30"
        valider par ok
        puis recopier la formule pour les autres cellules de la colonne A
        -2