[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:

4 réponses

Réponse 1 / 4

xav3601 Messages postés 3289 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 3289 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 757
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

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

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

Problème publipostage date de naissance

Bonjour,

J'ai créé une base de données sur Excel avec différentes informations dont un champ "Date de naissance". Lorsque je suis sur mon fichier Word et que je créais un publipostage en fonction de cette base de données, la date est en format anglais c'est-à-dire que l'ordre des chiffres est inversé. Je suis allé sur des forums pour tenter de trouver une solution, celle que j'ai retrouvé le plus était la modification du champ en ajoutant " \@"dd/MM/yyyy" ". Le seul résultat que j'ai est que cela m'affiche la date du jour, certes en format français mais ce n'est pas ce que je recherche.

Quelqu'un aurait-il une solution ??

Merci d'avance !!

...

trouver une date de naissance

Bonjours pouvez vous m'aidez à trouvez une date de naissance ? Merci

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...