Figer une date rentrer automatiquement [Résolu]

Signaler
Messages postés
84
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
17 septembre 2020
-
Messages postés
84
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
17 septembre 2020
-
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

Messages postés
12638
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
702
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?
Messages postés
84
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
17 septembre 2020

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 :)
Bonjour
Il y a une réponse avec un collage dans cette discussion à voir. Je connais pas exel en vérité.

https://forums.commentcamarche.net/forum/affich-2397640-excel-date-automatique-sans-mise-a-jour#answers
Messages postés
12638
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
702
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?
Messages postés
12638
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020
702 >
Messages postés
12638
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020

ah 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
Messages postés
84
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
17 septembre 2020
>
Messages postés
12638
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020

Je test et je confirme quand je peux
En tous les cas MERCIIIII BCP :)
Messages postés
84
Date d'inscription
mercredi 23 septembre 2009
Statut
Membre
Dernière intervention
17 septembre 2020
>
Messages postés
12638
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 octobre 2020

Bon ba ca fonctionne bien Merci beaucoup.
Messages postés
14
Date d'inscription
jeudi 14 mai 2020
Statut
Membre
Dernière intervention
16 mai 2020

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