ls8ls8
Messages postés6Date d'inscriptionlundi 17 mars 2008StatutMembreDernière intervention11 avril 2010
-
1 mars 2009 à 16:32
ls8ls8
Messages postés6Date d'inscriptionlundi 17 mars 2008StatutMembreDernière intervention11 avril 2010
-
1 mars 2009 à 23:32
Bonjour,
Dans excel,
je lis une serie de cellules qui contiennent chacune une date au format "JJ/MM/AAAA" ou une heure au format "hh:mm:ss"
à l'intérieur d'une chaine de caracteres, avec une position pas toujours identique dans la chaine. Exemple
StartDate: 10/08/2006
StartDate:11/08/2006
Qui aurait un bout de code (VBA) qui me permettrait de résoudre ma question ?
Mon idée première : une combinaison de .find, instr, like [??/??/????] ou [hh:mm:ss]
Je tourne en rond
Cordialement
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 20138 1 mars 2009 à 20:23
Bonjour,
Lorsque c'est ainsi, on fait comme moi (on réfléchit et on essaye) ...
Ce que j'ai donc fait ... et ...===>>
Private Sub Command1_Click()
MsgBox on_essaye(" peu importe blablabla 10:08:06 blibli blabla ")
MsgBox on_essaye(" peu importe blablabla 22/01/2001 blibli blabla ")
MsgBox on_essaye(" peu importe blablabla 22/01/2001 23:02 blibli blabla ")
End Sub
Private Function on_essaye(la_chaine As String) As String
on_essaye = la_chaine
Do While Not on_essaye Like "##?##*"
on_essaye = Mid(on_essaye, 2)
Loop
Do While Not IsDate(on_essaye)
on_essaye = Left(on_essaye, Len(on_essaye) - 1)
Loop
End Function