Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche Date dans un String

  • Initiateur de la discussion Initiateur de la discussion deniooo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

deniooo

XLDnaute Occasionnel
Bonjour !

J'ai besoin de dégager la premiére date que je trouve dans une chaine de caractére du type :
Le*04/02/2008 de*15H37 au*14/02/08 à*12H10

Aprés traitement il me faudrait trouver 04/02/2008 dans une variable.

J'ai bien une idée mais elle est TRES compliquée.

Pourriez-vous m'indiquer une méthode ?

Merci.
 
Re : Recherche Date dans un String

Bonjour,

Le problème peut être également résolu par formules.

Mais les différentes chaînes sont-elles toujours structurées de la même façon ?

Si oui, ça peut donner ceci :

Code:
=STXT(A1;4;10)*1

à mettre au format date

Sinon, donne nous plusieurs exemples de chaîne pour qu'on puisse se faire une idée plus précise

@+
 
Re : Recherche Date dans un String

Bonjour Deniooo, Tibo le Forum

Pour voir

Sub TrouveDate()

Dim Longueur As Byte 'Limite à 255 caractère la longueur du nom de fichier & chemin inclu
Chaine = ActiveCell.Value
Longueur = Len(Chaine)
Position = InStr(Chaine, "/")
ladate = Mid(Chaine, Position - 2, 10)
MsgBox ladate
End Sub

@+
 
Re : Recherche Date dans un String

Denioo

Oublies le commentaire : ' ... la longueur du nom de fichier & chemin inclu

Mais si Dim Longueur as byte, il ne faut pas que la longueur de la chaine soit supérieure à 255 caractères.
 
Re : Recherche Date dans un String

J'ai trouvé ce code qui fonctionne parfaitement :
Code:
Dim strTexte As String
Dim i As Integer
Dim varDate As String
 
strTexte = "Le*04/02/2008 de*15H37 au*14/02/08 à*12H10"
 
For i = 1 To Len(strTexte)
    If Mid(strTexte, i, 10) Like "##/##/####" Then
        varDate = Mid(strTexte, i, 10)
        Exit For
  End If
Next
  
If Not varDate = "" Then MsgBox CDate(varDate)

ce code me permet de traiter ma phrase quelque soit la phrase justement 🙂

Résolu !

(je remercie developpez.net 😉)
 
Re : Recherche Date dans un String

Bonjour à toi au Grand Maitre : Tibo

Je sais, celle là était vraiment trop facile, mais bon je n'ai pas pu m'empècher .... 😀

A+
 
Re : Recherche Date dans un String

hello 🙂

😀 😀 😀

avec un éclat de rire, comme base pour renforcer vos dires

🙂o pas pu m'empêcher non plus mais après j'arrête..)

@ +

m
 
Re : Recherche Date dans un String

Salut Mireille,

oh oh oh

Excellent également.

Ce "sport" est généralement réservé à la gente masculine dit-on, mais ça fait plaisir de voir une dame s'intéresser au sujet 😀

Bon, on s'éloigne un peu trop du sujet de deniooo 😱


@+
 
Re : Recherche Date dans un String

Salut à tous les hommes de bonnes volontés, bises à Mireille....

Un sujet qui d'écarte, somme toute, de l'ordinaire..

C'est vendredi, non ?

Bon début de WE ce soir.

Jean-Pierre
 
Re : Recherche Date dans un String

Salut deniooo(etexcusel'intrusionquinapporterienàladiscusion) 😱, Tibo 🙂, Risleure, Bruno 😀, Bises Mireille 🙂, JeanPierre 🙂, le Forum

@Deniooo
Malheureusement les strings ne sont pas fixes.. Il faut donc un truc adaptable.
je ne le te fait pas dire 😛

juste pour dire à Bruno

Ne me (nous) refait plus un coup pareil

J'en ai perdu mes lunettes!!! 😀

Bonne Journée à tous
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…