XL 2019 Date automatique figer

Bloody_Toad

XLDnaute Nouveau
Bonjour
Je fais encore appel à vos bonnes âmes...
Voilà je voudrais une date automatique qui ne change jamais même si je change de nom dans la colonne C.
J'ai trouvé deux macros qui pourraient faire, mais je n'arrive pas à les "compiler". J'ai compris que pour figer la date le "if Notintersect " a quelque chose à voir , mais après plusieurs essais un peu dans tous les sens je me suis résigné à refaire appel à la communauté.
Merci
Les macro que j'ai trouvées et le fichier ou j'en suis :-(
Merci

Date automatique sans changement du tout



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub

If Not Intersect(Target, Range("A1:H1")) Is Nothing And Target <> Empty Then

Cells(5, Target.Column) = Date

ElseIf Not Intersect(Target, Range("A8:H8")) Is Nothing And Target <> Empty Then

Cells(12, Target.Column) = Time

Cells(12, Target.Column).NumberFormat = "[$-F400]h:mm:ss AM/PM"

Else

End If





End Sub

Date automatique sans changement le lendemain mais change avec le nom

Private Sub Worksheet_Change(ByVal Target As Range)



Dim h, iSct As Range

Set iSct = Intersect(Target, Range("C:C"))

If iSct Is Nothing Then Exit Sub

Application.EnableEvents = False

For Each h In iSct.Cells

If IsEmpty(h) Then

h.Offset(0, 1) = ""

Else

h.Offset(0, 1) = Format(Now, "dd/mm/yy")

End If

Next

Application.EnableEvents = True



End Sub
 

Pièces jointes

  • Teste date auto non modifiable-01.xlsm
    56.9 KB · Affichages: 16

Discussions similaires

Réponses
4
Affichages
189

Statistiques des forums

Discussions
290 922
Messages
1 911 415
Membres
177 162
dernier inscrit
bast12
Haut Bas