Comment mettre format date en chiffre dans code vba

libellule85 · 13 Mai 2011

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 :

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

Gael · 13 Mai 2011

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 · 13 Mai 2011

Re : Comment mettre format date en chiffre dans code vba

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

libellule85 · 14 Mai 2011

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 · 14 Mai 2011

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 · 14 Mai 2011

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

Comment mettre format date en chiffre dans code vba

libellule85

XLDnaute Accro

Gael

XLDnaute Barbatruc

libellule85

XLDnaute Accro

libellule85

XLDnaute Accro

Gael

XLDnaute Barbatruc

libellule85

XLDnaute Accro

Discussions similaires