VBA Format date dans array pour recherche

Version imprimable

27/05/2023, 01h03
Rémy.A

2 pièce(s) jointe(s)

VBA Format date dans array pour recherche

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
Pièce jointe 639288 Pièce jointe 639289

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 8-):ccool:

En vous remerciant d'avance.
28/05/2023, 17h31
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:

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) ?

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:

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.

28/05/2023, 17h38
Rémy.A
Bonjour Jean-Philippe,

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

Merci :)

Avec la fonction

Code:

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

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

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