Recherche Date dans un String

[deniooo]

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.

 

[Tibo]

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 :

=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

@+

 

[deniooo]

Re : Recherche Date dans un String

Malheureusement les strings ne sont pas fixes.. Il faut donc un truc adaptable.

 

[Tibo]

Re : Recherche Date dans un String

re,

Une autre piste : qui consiste à rechercher l'emplacement du 1er /

=STXT(A1;TROUVE("/";A1)-2;10)*1

@+

 

[Risleure]

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

@+

 

[Risleure]

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.

 

[deniooo]

Re : Recherche Date dans un String

J'ai trouvé ce code qui fonctionne parfaitement :

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 )

 

[Compte Supprimé 979]

Re : Recherche Date dans un String

Bonjour à tous,

Tu sais Deniooo, dans un String on peut avoir le choix dans la date

Comprendra qui veut

 

[Tibo]

Re : Recherche Date dans un String

Salut Bruno,

Facile, mais excellent...

@+

 

[Compte Supprimé 979]

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+

 

[mth]

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

 

[Tibo]

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


@+

 

[Risleure]

Re : Recherche Date dans un String

salut le Forum,

Je ne peux m'empêcher d'ajouter que :

La contrepeterie est l'art de décaler les sons

@+

 

[jeanpierre]

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

 

[Dull]

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