Extraire une date d'un String sans format spécifique

Version imprimable

25/01/2022, 17h07
Guigs_bu

Extraire une date d'un String sans format spécifique

Bonjour, je suis nouveau sur ce forum et ai des connaissance basique en VBA,

Je suis en train d'essayer de transférer les données d'un fichier Excel d'environ 1500 lignes, dans un nouveau fichier, car la secrétaire précédente utilisait Excel quasiment comme du traitement de texte et il nous est difficile/impossible de filtrer/trier les données. Je me suis donc attaqué à un programme VBA pour m'éviter le copiage à la main de ces 1500 lignes, rien de très compliqué. Mais actuellement je suis tombé sur un os. Une des colonnes contient une information du type :
- "Facture envoyé le 02.02.2021",
-"Demande d'acompte du 05.02.2021",
-"Offre estimative envoyée par mail le 04.02.21",
- "FA du 06/03/2021"
avec énormément de variation possibles , tant dans le texte que dans le format de la date.

Dans ma macro j'ai déjà réussi a avoir l'information de savoir si c'était un acompte une facture ou une offre estimative grâce à la fonction InStr, mais pour mettre la date contenu dans cette string dans la colonne adjacente je bloque complètement. L'efficacité de la solution m'est égal car il ne faudra utiliser cette macro qu'une seule fois.

Quelqu'un pourrait peut-être m'aider ?

Merci d'avance

Salut

Plusieurs solutions, en voila une

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
33
34
35
36
37
38
Sub TestSplit()
Dim strDemo As String
Dim Retour As Variant
 
    'Init test
    strDemo = "Demande d'acompte du 05.02.2021"
 
    'On regarde si une date valdide est présente
    Retour = ExtractDate(strDemo)
    If VarType(Retour) = vbDate Then
        '... Une date est présente dans Retour
        'On peut utiliser CDate(Retour) pour forcer le transtypage
    Else
        'Pas de date... ou pas reconnu
    End If
End Sub
 
Function ExtractDate(strDemo As String) As Variant
Dim Tab_Split As Variant
Dim PartDate As String
    'Init
    ExtractDate = False
    'On décompose le text selon " "
    Tab_Split = Split(strDemo, " ")
    'On vérifie qu'(il y est un contenu
    If UBound(Tab_Split) > -1 Then
        'On extrait la date supposée
        PartDate = Tab_Split(UBound(Tab_Split))
        'On corrige le séparateur
        PartDate = Replace(PartDate, ".", "/")
        PartDate = Replace(PartDate, ",", "/") 'autant de fois que de caractère utilisé
 
        'On teste si le dernier élément est une date valide
        If IsDate(PartDate) Then
            ExtractDate = CDate(PartDate)
        End If
    End If
End Function

[Edit]
Tu as ça sinon dans la FAQ
https://excel.developpez.com/faq/?pa...DateDansChaine
[/Edit]
++
Qwaz

27/01/2022, 15h34
Guigs_bu

Cela fonctionne parfaitement merci beaucoup :D