Discussion :

[naoufal.elbekri]

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

[eric4459]

Bonjour Nouafal
Essayes ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dateJob =CDate( Feuil1.Cells(i, 2))

Sinon Rdurupt ne devrait pas tarder à se manifester
Eric

[pgz]

Bonjour.

Tu devrais garder le type Date. Une variable Date est initialisée à 0. La fonction renvoie alors 0 si aucune date n'est trouvée, c'est facile à tester.
Sinon, tu peux utiliser aussi le type variant qui te permet de trafiquer la date nulle.

Cordialement,

pgz

[naoufal.elbekri]

Merci pour vos réponse.
1- J'ai déjà essayé la fonction Cdate, mais celà ne marche pas car ma fonction renvoie un string et c'est la seul manière que j'ai trouvé pour forcer l'utilisation de vbNullString.
2- En utilisant une variable Date, ma fonction ne me renvoie pas 0 mais plutot une date avec 1900 comme année, et même si cette fonction me renvoyait 0, celà ne m'arrange pas car ca va remplir la case quand même.
Je vais tester avec un type variant pour voir ce que ca donne, à priori je pense que ca va marcher. Je vous tiens au courant du résultats

Merci pour votre aide.

[pgz]

Bonjour

2- En utilisant une variable Date, ma fonction ne me renvoie pas 0 mais plutot une date avec 1900 comme année

Juste pour ton info, je te propose une petite manip :

• Dans une cellule tu écris la valeur 0
• Puis, pour cette cellule, tu choisis un format de date
• tu regardes alors ce qu'il y a dans la cellule, et ce qu'il y a en haut dans la zone des formules.

Cordialement,

pgz

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function dateJob(job As String)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dateJob =format( Feuil1.Cells(i, 2),"yyyy-mm-dd hh:mm:ss")

[naoufal.elbekri]

finalement j'ai utilisé un type Variant, je sais que ce n'est pas idéal pour la rapidité de ma fonction, mais l'utilité vient avant l'érgonomie dans mon cas.
J'ai aussi utilisé la fonction Format(maCellule, "dd/mm/yyyy") car je veux me débarasser des heures, minutes et secondes pour les traitements suivants.

Merci pour votre aide

[Invité]

Bonjour,
Utilises le format internationale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dateJob =format( Feuil1.Cells(i, 2),"yyyy-mm-dd")