Comment mettre format date en chiffre dans code vba

[libellule85]

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 :

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

 

[Gael]

Re : Comment mettre format date en chiffre dans code vba

Rebonsoir,

Tu enlèves la commande format: Cells(Target.Row, 13).Value = Date et idem pour Time.

Gael

 

[libellule85]

Re : Comment mettre format date en chiffre dans code vba

Re-bonsoir Gael,
Merci pour ta réponse
Bonne soirée

 

[libellule85]

Re : Comment mettre format date en chiffre dans code vba

Bonjour Gael,
J'ai fais ce que tu m'as dit mais celà ne fonctionne pas....

 

[Gael]

Re : Comment mettre format date en chiffre dans code vba

Bonjour Libellule, bonjour à tous,

Je n'ai peut-être pas bien compris ce que tu veux exactement. Si tu mets Cells...value=Date, le résultat dans la cellule sera numérique avec une présentation selon le format date de la cellule.

Une fois que tu as exécuté la procédure modifiée, tu dois pouvoir changer le format de la date avec la commande format.

Sinon, dis-moi ce que tu obtiens et précise bien ce qui ne marche pas.

@+

Gael

 

[libellule85]

Re : Comment mettre format date en chiffre dans code vba

Bonjour Gael,
Je viens d'effectuer la modification et celà marche impeccablement, c'est exactement ce que je voulais.
Merci beaucoup pour ton aide
@+
Libellule85