Affichage format date + heure "m/d/yyyy h:mm"

Bonjour,

J'ai écrit une macro test() qui crée un nouvel onglet et qui récupère la date et heure de chaque nettoyage. J'aimerais que l'affichage soit sous forme de date et heure et je parviens à n'afficher que le format date. Je vous joins un fichier exemple.

Je vous remercie de votre aide,

Léa

Bonjour, à tous

Sans la fonction personnalisée HeuresExtraction :

Sub test()
    Application.ScreenUpdating = False
    Sheets.Add(After:=Worksheets("Données nettoyage")).Name = "Table Nett-Remp"
    Sheets("Table Nett-Remp").Range("A1") = "NETTOYAGE"
    Dim Plage1 As Variant
    Plage1 = Sheets("Données nettoyage").Range("A2").CurrentRegion
    For i = 2 To UBound(Plage1)
        Worksheets("Table Nett-Remp").Range("A" & i) = CDate(Left(Worksheets("Données nettoyage").Range("B" & i), 10)) + CDate(Left(Worksheets("Données nettoyage").Range("A" & i), 5))
    Next i
    Application.ScreenUpdating = True
End Sub

Cdlt,

Bonjour, je vous remercie ! Savez-vous pourquoi cela ne fonctionnait pas avec la fonction VBA créée ?

Bonjour,

La fonction ExtractionHeure ne renvoie qu'une chaîne de caractère (String), or on ne peut pas sommer une date qui est une valeur numérique à une valeur textuelle, même si on change son format en 0:00 cela ne change pas son type de textuel vers numérique dans le code que je vous ai fourni, modélisé par CDate qui converti une chaîne de texte en chaîne de date, donc numérique.

Cdlt,