libellule85
XLDnaute Accro
Bonsoir tout le monde,
Ma question va peut-être vous paraitre facile mais j'ai beau chercher je n'arrive pas à trouver le code pour mettre la date en chiffre dans le code ci-dessous :
Merci d'avance pour vos réponses
Ma question va peut-être vous paraitre facile mais j'ai beau chercher je n'arrive pas à trouver le code pour mettre la date en chiffre dans le code ci-dessous :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:B417")) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 13).Value = Format(Date, "d mmm yy")
Cells(Target.Row, 14).Value = Format(Time, "hh:mm:ss")
Call tri
Application.EnableEvents = True
End If
End Sub
Merci d'avance pour vos réponses