Figer une date rentrer automatiquement

Résolu/Fermé

nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 - Modifié le 15 mai 2020 à 09:09
nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 - 20 mai 2020 à 11:38

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

A voir également:

Figer une date dans excel
Liste déroulante excel - Guide
Figer colonne excel - Guide
Déplacer une colonne excel - Guide
Aller à la ligne dans une cellule excel - Guide
Calculer une moyenne sur excel - Guide

3 réponses

Réponse 1 / 3

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 Ambassadeur 1 551
15 mai 2020 à 10:10

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?

Réponse 2 / 3

nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 1
16 mai 2020 à 12:33

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 :)

i
16 mai 2020 à 12:45

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

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 1 551
16 mai 2020 à 13:15

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?

yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024 1 551 > yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024
16 mai 2020 à 13:32

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

nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 1 > yg_be Messages postés 23327 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 novembre 2024
18 mai 2020 à 10:32

Je test et je confirme quand je peux
En tous les cas MERCIIIII BCP :)

Bon ba ca fonctionne bien Merci beaucoup.

Réponse 3 / 3

BrainyCucumber Messages postés 14 Date d'inscription jeudi 14 mai 2020 Statut Membre Dernière intervention 16 mai 2020
16 mai 2020 à 13:11

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

Discussions similaires

je cherche la date et le lieu de naissance d une personne

Prélèvement JM Jacquie et Michel date.

Si une date est supérieure à une autre