Figer une date rentrer automatiquement

Résolu
nathan027 Messages postés 108 Statut Membre -  
nathan027 Messages postés 108 Statut Membre -
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 24281 Statut Contributeur 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 108 Statut Membre 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 24281 Statut Contributeur 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 24281 Statut Contributeur 1 584 > yg_be Messages postés 24281 Statut Contributeur
 
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 108 Statut Membre 1 > yg_be Messages postés 24281 Statut Contributeur
 
Je test et je confirme quand je peux
En tous les cas MERCIIIII BCP :)
0
nathan027 Messages postés 108 Statut Membre 1 > yg_be Messages postés 24281 Statut Contributeur
 
Bon ba ca fonctionne bien Merci beaucoup.
0
Réponse 3 / 3
BrainyCucumber Messages postés 14 Statut Membre
 
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