Discussion :

[Rémy.A]

Bonjour à Tous,

Je viens vers vous je voudrais mettre des dates au même format dans différents array pour effectuer une rechercheV dans mes array. Sauf que je ne sais pas comment faire.

voici des exemples


Dans ma fonction de recherche, les valeurs à rechercher doivent être identiques => donc le format date doit l'être. Il peux y avoir différents format date que ceux montrés en exemple, puisque que mes array sont remplis par des fichiers csv qui provienne de différentes sources.

Si quelqu'un pourrai m'aider ce serait cool

En vous remerciant d'avance.

[Jean-Philippe André]

Salut,

tu peux passer toutes tes valeurs dans une fonction de cast comme CDate() pour forcer l'obtention d'un type Date, puis si tu ne veux garder que la partie Date et t'affranchir de l'horaire en utilisant par exemple FormatDateTime avec la constante
vbShortDate

Code :

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

1
2
3
4
?FormatDateTime(cdate("2023-05-20 07:07:12"),vbShortDate)
2023-05-20
?FormatDateTime(cdate("01/05/2023"),vbShortDate)
2023-01-05

Une fois tes dates toutes au même format, ca devrait faciliter ta recherche.

Mais attention ici, ton format 01/05/2023 n'est pas discrimant, est-ce le 1er mai (écriture francaise) ou le 5 janvier (écriture québécoise) ?

[Rémy.A]

Bonjour,

A force d'investigation je suis arriver à faire se bout de code qui fonctionne.

Voici le code pour ceux à qui ça intéresse

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
29
30
31
32
 
Sub TestFormatDATE()
    Dim tab1(0 To 4, 0) As String
    Dim i As Integer
 
    ' Remplir les tableaux avec des valeurs de test
    tab1(0, 0) = "12/31/2023 00:00:00"
    tab1(1, 0) = "01-12-2023 07:12:54"
    tab1(2, 0) = "01.12.2023"
    tab1(3, 0) = "05/03/2023"
    tab1(4, 0) = "2023-10-05 07:12:54"
 
    ' Boucle pour parcourir les lignes du tableau
    For i = 0 To UBound(tab1, 1)
 
        Select Case True
            ' Vérifier si la valeur contient le caractère "."
            Case InStr(tab1(i, 0), ".") > 0
 
                tab1(i, 0) = Format(DateSerial(Split(tab1(i, 0), ".")(2), Split(tab1(i, 0), ".")(1), Split(tab1(i, 0), ".")(0)), "dd/mm/yyyy")
 
            ' Vérifier si la valeur contient le caractère "-"
            Case InStr(tab1(i, 0), "-") > 0
                tab1(i, 0) = Format(DateValue(tab1(i, 0)), "dd/mm/yyyy")
 
            ' Vérifier si la valeur contient le caractère "/"
            Case InStr(tab1(i, 0), "/") > 0
                tab1(i, 0) = Format(DateValue(tab1(i, 0)), "dd/mm/yyyy")
        End Select
    Next i
 
End Sub

Je vais variabiliser le numéro de colonne si l'emplacement change d'un tableau à un autre. et la transformer en fonction.

[Rémy.A]

Bonjour Jean-Philippe,

Le temps de rédigé ma trouvaille et voila une réponses^^

Merci

Avec la fonction

Code :

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

FormatDateTime(CDate("23/10/1958 11:00:30"),vbShortDate)

j'ai eu des erreur sur le format date contenant "."
jai utilisé celle-ci:

Code :

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

1
2
 
Format(DateValue ("01.01.2023), "dd/mm/yyyy")