Figer une date rentrer automatiquement

Résolu
nathan027 -  
Bonjour

J'aimerai que lorsque je rentre une date automatiquement celle ci ne se mette pas à jour a chaque ouverte/enregistrement du fichier.
Je vous joint mon fichier (la mise automatique de la date est a partir du AX6)

https://mon-partage.fr/f/pyBGMEIY/

Merci

3 réponses

  1.  yg_be Contributeur Ambassadeur
    bonjour,
    tu ne précise pas dans quel onglet, et je ne vois rien en AX6.
    comment la date est-elle rentrée automatiquement?
    pourquoi se met-elle à jour?
    0
    1. nathan027 Auteur
      Bonjour, déjà merci pour la réponse :)

      Alors il n'y a rien dans AX6 pour le moment.
      Quand je vais entrer une valeur dans AX6 (supérieur à 0), la cellule AX3 va se remplir automatiquement avec la date du jour de la saisie et je voudrai que cette date ne bouge jamais. Car dans la situation actuelle, dès que je vais de nouveau ouvrir le classeur la date va changer et se mettre à jour, ce que bien sur je veux éviter.
      (c'est la meme situation jusqu'à la fin du classeur en fait pas uniquement sur AX3)

      Suis je plus clair ?

      Encore merci :)
      0
      2. yg_be Contributeur Ambassadeur
        comment la date est-elle rentrée automatiquement? que mets-tu exactement en AX6?
        "la date va changer et se mettre à jour": en AX6 ou uniquement en AX3?
        0
      3. yg_be Contributeur Ambassadeur
        @yg_beah oui, je vois, finalement: il aurait suffit de nous montrer ta formule en AX3.
        pour réaliser ce que tu veux, il suffit de mettre une fonction dans la feuille: 
        Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Row = 6 And Target.Column >= 50 And (Target.Column - 50) Mod 3 = 0 Then
        If IsNumeric(Target.Value) And Target > 0 Then
            Target.Offset(-3, 0) = Date
        End If
    End If
End If
End Sub
        0
      4. nathan027 Auteur
        @yg_beJe test et je confirme quand je peux
        En tous les cas MERCIIIII BCP :)
        0
      5. nathan027 Auteur
        @yg_beBon ba ca fonctionne bien Merci beaucoup.
        0
    2. BrainyCucumber
      Bonjour,

      ce que je peux vous suggérer serait de créer un bouton excel qui vous permets d'insérer automatiquement la date. Ceci pourrait prendre cette forme pour votre code :

      Sub AjouterDate()

      For i = 1 to 52
      LettreColonne = Split(Cells(1, i*3+5).Address, "$")(1)
      If Sheets("2020").range(LettreColonne & "6") > 0 Then
      If Sheets("2020").Range(LettreColonne & "3") = "" Then
      Sheets("2020").Range(LettreColonne & "3") = Date
      End if
      End if
      Next i

      Vous pouvez essayer ca.

      Merci
      -1

      Discussions similaires

      Problème publipostage date de naissance
      garbiche22

      3 réponses
      Problème Whatsapp - "La date est incorrecte"
      thvzzz

      5 réponses