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

Membres actuellement en ligne

Statistiques des forums

Discussions
292 869
Messages
1 926 872
Membres
183 294
dernier inscrit
MINA82