XL 2019 insertion automatique d'une date qui reste fixe

laurent70

XLDnaute Nouveau
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.
 

Pièces jointes

  • tableau obs.jpg
    tableau obs.jpg
    408.9 KB · Affichages: 11
Solution
Bonjour
si tu travaille avec un tableau structuré les choses vont devenir tout un coup plus simple
VB:
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 !!!

1684756413210.png

1684756462040.png


1684756519199.png


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.
1684756623479.png


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
 

Pièces jointes

  • Transmissions résidents V1.xlsm
    92.3 KB · Affichages: 9
Dernière édition:

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Légère modification de votre code pour entrer la date du jour dans la cellule :
VB:
Sub rajouterObs()
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Range("A2") = Date
    Range("B2").Select
End Sub

Cordialement
 

patricktoulon

XLDnaute Barbatruc
Bonjour
si tu travaille avec un tableau structuré les choses vont devenir tout un coup plus simple
VB:
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
 

Pièces jointes

  • Transmissions résidents V patricktoulon.xlsm
    88.6 KB · Affichages: 10

laurent70

XLDnaute Nouveau
Bonjour
si tu travaille avec un tableau structuré les choses vont devenir tout un coup plus simple
VB:
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]
 

Discussions similaires

Réponses
4
Affichages
741

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec