Bonjour,
J'ouvre ce nouveau sujet concernant un problème du format de la date lors d'un copier/coller.
J'ai une fonction qui a une condition, et si la condition est respectée, la fonction renvoie une date, sauf qu'a l'origine la date est du format "jj/mm/aaaa hh:mm:ss" et lors du copier/coller elle prend un nouveau format "mm/dd/yyyy"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Function dateJob(job As String) As String '''''''''''''''''' Fonction pour récuperer la date si le status est COMPL ou ABORT '''''''''''''''''' dateJob = vbNullString Dim endFile As Integer Dim i As Integer endFile = Feuil1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To endFile If (Feuil1.Cells(i, 4).Value = job) Then '''''''''''''''' test si le status est COMPL ou ABORT '''''''''''''''''''''''' If (Feuil1.Cells(i, 19).Value = "COMPL" Or Feuil1.Cells(i, 19) = "ABORT") Then dateJob = Feuil1.Cells(i, 2) End If Exit For End If Next i End Function
à la base ma fonction doit renvoyer une date, mais n'ayant pas trouver un équivalent de vbNullString pour un type date, je l'utilise comme String.
Je pense que c'est ca l'origine de mon erreur.
Donc quand j'utilise cette fonction dans une autre sub, la date se transforme en format américain.
Pourriez-vous m'aider pour apporter une solution à mon problème
Partager