XL 2019 insertion automatique d'une date qui reste fixe

[laurent70]

Bonjour à tous totalement débutant avec excel je cherche une solution pour qu'une cellule se remplisse automatiquement avec la date du jour de la saisie. Je vous explique j 'ai créer un classeur pour y noter des observations diverses pour ce faire j'ai créer une macro qui insere une ligne avec une colonne date, une intitulé de l'observation une colonne pour l'observation en question et une dernière pour la signature de l'observateur. j'aimerais que la date s'iscrive automatiquement apres l'appui sur le bouton ajouter une observation avec une formule comme le (Ctrl+. Je vous joint une capture de mon tableau pour etre un peu plus explicite.

 

[Phil69970]

Bonjour @laurent70 et bienvenu sur XLD

Avec un fichier c'est beaucoup mieux qu'une image !!

@Phil69970

 

[laurent70]

désolé oui c'est vrai que ce serait plus parlant

 

[laurent70]

Voila qui est fait j'espère que quelqu un pourra m 'aider.

 

[Phil69970]

Re

Je te propose ce fichier si j'ai bien compris

Merci de ton retour

@Phil69970

 

[laurent70]

Ben en fait ca ne marche pas si je créer des obs avec differentes dates et ta formules quand je fais une nouvelle obs toutes les dates changent et s'actualisent. moi je veux que les précédentes restent a la date ou elles ont été notées.

 

[Phil69970]

Re

@laurent70

quand je fais une nouvelle obs toutes les dates changent et s'actualisent.

Comment tu fais car chez moi les dates ne bougent pas !!!

Dans les exemples ci dessus j'ai modifié la date système pour simuler un autre jour Et j'ai cliqué sur le bouton rouge.

Et les autres dates ne changent pas

En clair la date qui s'affiche correspond à la date du jour lorsque que tu cliques sur le bouton rouge.
Demain si tu cliques sur le bouton rouge tu ne modifieras pas les dates déjà écrites .

Et le fichier qui montre ce que je viens d'expliquer

@Phil69970

 

[Hasco]

Bonjour,

Légère modification de votre code pour entrer la date du jour dans la cellule :

Sub rajouterObs()
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Range("A2") = Date
    Range("B2").Select
End Sub

Cordialement

 

[patricktoulon]

Bonjour
si tu travaille avec un tableau structuré les choses vont devenir tout un coup plus simple

Option Explicit
Sub AddNewDate()
'ajoute une ligne au dessus (en premier et met la date du jour
    With Range("Tableau1").ListObject.ListRows.Add(1).Range
        .Cells(1) = Date
        .Cells(2).Select
    End With
End Sub

 

[laurent70]

Bonjour
si tu travaille avec un tableau structuré les choses vont devenir tout un coup plus simple

Option Explicit
Sub AddNewDate()
'ajoute une ligne au dessus (en premier et met la date du jour
    With Range("Tableau1").ListObject.ListRows.Add(1).Range
        .Cells(1) = Date
        .Cells(2).Select
    End With
End Sub[Genial 
[/QUOTE]


[QUOTE="patricktoulon, post: 20585503, member: 167882"]
merci beaucoup c'est exactement ce qu'il me fallait. bonne journée.
[/QUOTE]

 

[laurent70]

Merci a tout le monde pour votre aide cela m'a fait gagner un temps précieux bonne journée à tous.