XL 2019 insertion automatique d'une date qui reste fixe

Phil69970

XLDnaute Barbatruc

• 22 Mai 2023

• #2

Bonjour @laurent70 et bienvenu sur XLD

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

@Phil69970

 

Vote positif 0 Vote négatif

L

laurent70

XLDnaute Nouveau

• 22 Mai 2023

• #3

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

 

Vote positif 0 Vote négatif

L

laurent70

XLDnaute Nouveau

• 22 Mai 2023

• #4

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

 

Pièces jointes

• Transmissions résidents.xlsm

  96 KB · Affichages: 8

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Mai 2023

• #5

Re

Je te propose ce fichier si j'ai bien compris

Merci de ton retour

@Phil69970

 

Pièces jointes

• Transmissions résidents V1.xlsm

  92.2 KB · Affichages: 5

Vote positif 0 Vote négatif

L

laurent70

XLDnaute Nouveau

• 22 Mai 2023

• #6

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.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Mai 2023

• #7

Re

@laurent70

laurent70 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Transmissions résidents V1.xlsm

  92.3 KB · Affichages: 9

Dernière édition: 22 Mai 2023

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 22 Mai 2023

• #8

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Mai 2023

• #9

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

Vote positif 0 Vote négatif

Solution

L

laurent70

XLDnaute Nouveau

• 24 Mai 2023

• #10

patricktoulon à dit:

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]

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

laurent70

XLDnaute Nouveau

• 24 Mai 2023

• #11

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

 

Vote positif 0 Vote négatif