Figer une date rentrer automatiquement

Résolu
nathan027 Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   -  
nathan027 Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   -
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:

3 réponses

Réponse 1 / 3
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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
Réponse 2 / 3
nathan027 Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   1
 
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
i
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
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
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
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
0
nathan027 Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   1 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Je test et je confirme quand je peux
En tous les cas MERCIIIII BCP :)
0
nathan027 Messages postés 101 Date d'inscription   Statut Membre Dernière intervention   1 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bon ba ca fonctionne bien Merci beaucoup.
0
Réponse 3 / 3
BrainyCucumber Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
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