[VBA] extraire une date

Résolu/Fermé

nightcyborg - 20 janv. 2009 à 15:54
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 24 juin 2011 à 15:01

Bonjour,

je travail actuellement sur une macro Excel et j'aurais besoin d'extraire 2 dates dans une chaine de caractères comme celle là :

"pour la période du 01/11/2008 au 30/11/2008"

j'ai bien pensé à utiliser des regex comme en PHP, mais je sais pas comment faire en fait ^^

merci de votre aide

A voir également:

[VBA] extraire une date
Extraire une video youtube - Guide
Extraire son d'une video - Guide
Extraire image pdf - Guide
Extraire une photo d'une vidéo iphone - Guide
Extraire fichier rar - Guide

4 réponses

Réponse 1 / 4

xav3601 Messages postés 3288 Date d'inscription lundi 10 novembre 2008 Statut Membre Dernière intervention 2 mars 2016 311
20 janv. 2009 à 16:23

bonjour

et bien si tu sais a quelle endroit ce situe la date, c'est a dire si ta phrase a toujours la meme sythaxe tu peux utiliser la fonction Mid.
Utilisation de la fonction Mid:

date1 = Mid("pour la période du 01/11/2008 au 30/11/2008" ,20,10)

date2 = Mid("pour la période du 01/11/2008 au 30/11/2008" ,34,10)

le premier chiffre correspond au premier caractere et le deuxieme a longueur de la chaine extraire, ils sont donc a adapter si ca joue pas :-)
j'espere que ca t'aidera!

ps: si jamais la phrase change tu peux peut etre utiliser les fonction strev et instrev.

Réponse 2 / 4

nightcyborg
20 janv. 2009 à 16:33

ben merci, ça fonctionne impec. je pense que ça devrai le faire.

Réponse 3 / 4

xav3601 Messages postés 3288 Date d'inscription lundi 10 novembre 2008 Statut Membre Dernière intervention 2 mars 2016 311
20 janv. 2009 à 16:35

De rien :-)

pense a mettre le post en resolue et a valider la reponse ;-)

Réponse 4 / 4

nightcyborg
20 janv. 2009 à 16:59

euh ben j'aurais une autre question en fait.

j'ai des colonnes de chiffres qui contiennent de temps en temps des mots (du genre "oofert" ou "suite") et je des les remplacer par le chiffre 0.

comment faire ? je ne troouve pas la solution.

nightcyborg
20 janv. 2009 à 17:35

bon ben j'ai rien dis, c'est bon merci j'ai trouvé.

Dacid
27 mai 2011 à 11:51

Je viens de faire cette fonction qui... Fonctionne très bien:

Function extraireDateDeChaine(str As String) As String
Dim posi, i As Integer
Dim ret, cChar, charOk As String

ret = ""
charOk = "0123456789/"
posi = InStr(str, "/")
If (posi > 0) Then
    For i = posi - 1 To 0 Step -1 ' Récupérer le début de la date
        If (posi < 2) Then ' On traite ici les / en début de chaine pour qu'il passe dans la récursivité
            Exit For
        End If
        If (Not IsNumeric(Mid(str, i, 1))) Then
            posi = i + 1
            Exit For
        End If
    Next
    For i = posi To Len(str)
        cChar = Mid(str, i, 1)
        If (InStr(charOk, cChar)) Then
          ret = ret & cChar
        Else
            Exit For
        End If
    Next
    'ret = Right(s, Len(s) - InStr(1, s, "/") + 4)
    'ret = Left(ret, 11)
End If
If ((ret <> "") And (Len(ret) < 6)) Then ' C'était un slash en dehors du contexte d'une date, l'oter et relancer la recherche
    ret = extraireDateDeChaine(Left(str, posi - 1) & Right(str, Len(str) - posi))
End If
extraireDateDeChaine = ret
End Function

mimb
24 juin 2011 à 14:07

salut à tous
cette function marche nikel mais j'aurais besoin que le résultat soit un double et non un string pour le comparer à une autre date;
est ce que quelqu'un sait comment faire
tks!!!

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 750
24 juin 2011 à 15:01

Salut mimb,
En résultat un double? Pourquoi pas une date, si c'est pour comparer à une autre date...
Suffit de toutes façons de changer, dans la function, les lignes indiquées en gras :

Function extraireDateDeChaine(str As String) As Date
Dim posi, i As Integer
Dim ret, cChar, charOk As String

ret = ""
charOk = "0123456789/"
posi = InStr(str, "/")
If (posi > 0) Then
    For i = posi - 1 To 0 Step -1 ' Récupérer le début de la date
        If (posi < 2) Then ' On traite ici les / en début de chaine pour qu'il passe dans la récursivité
            Exit For
        End If
        If (Not IsNumeric(Mid(str, i, 1))) Then
            posi = i + 1
            Exit For
        End If
    Next
    For i = posi To Len(str)
        cChar = Mid(str, i, 1)
        If (InStr(charOk, cChar)) Then
          ret = ret & cChar
        Else
            Exit For
        End If
    Next
    'ret = Right(s, Len(s) - InStr(1, s, "/") + 4)
    'ret = Left(ret, 11)
End If
If ((ret <> "") And (Len(ret) < 6)) Then ' C'était un slash en dehors du contexte d'une date, l'oter et relancer la recherche
    ret = extraireDateDeChaine(Left(str, posi - 1) & Right(str, Len(str) - posi))
End If
extraireDateDeChaine = CDate(ret)
End Function

Discussions similaires

Prélèvement JM Jacquie et Michel date.

je cherche la date et le lieu de naissance d une personne

Problème Whatsapp - "La date est incorrecte"

Extraire le contenu de plusieurs fichiers

Discussions similaires

Newsletters