Discussion :

[malabarbe]

Bonjour,

Si j'ai cette chaine : Mardi 29 juin 2008
je la transforme en : 29/06/2008 avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
date_cour = CDate(Mid(Strg, InStr(1, Strg, " ", 1) + 1))

Par contre, si j'ai cette chaine : Mardi 1er juillet 2008,
j'ai une erreur (a cause du 1er)

Peut-on adapter ce code pour qu'il tourne
pour les deux types de chaines ?

Merci à vous

[ilcocodrillo]

Mardi 1er juillet 2008 n'est pas un format de date valide... donc à part bidouiller le texte pour supprimer les charactères indésirables et ainsi obtenir un format convertible en date, j'vois pas... bon courage.

[malabarbe]

Oui, j'avais compris cela
et c'était ma question
comment bidouiller cette chaine pour la rendre compatible ?

[Godzestla]

A essayer (pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Strg_clean = ""
Cur_pos = InStr(1, Strg, " ", 1) + 1
Byte_ = Mid(Strg, Cur_pos, 1)
While Byte_ <> " "
    If Byte_ >= "0" And Byte_ <= "9" Then
     Strg_clean = Strg_clean & Byte_
    End If
    Cur_pos = Cur_pos + 1
    Byte_ = Mid(Strg, Cur_pos, 1)
Wend
Strg_clean = Strg_clean & Mid(Strg, Cur_pos)
date_cour = CDate(Strg_clean)

[ilcocodrillo]

c'est du brutal mais ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Cells.Replace What:="1er", Replacement:="01"
    Cells.Replace What:="lundi ", Replacement:=""
    Cells.Replace What:="mardi ", Replacement:=""
    Cells.Replace What:="mercredi ", Replacement:=""
    Cells.Replace What:="jeudi ", Replacement:=""
    Cells.Replace What:="vendredi ", Replacement:=""
    Cells.Replace What:="samedi ", Replacement:=""
    Cells.Replace What:="dimanche ", Replacement:=""
    ActiveCell = CDate(ActiveCell)

tu me mets tous ça dans une jolie bouclette et le tour est joué

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
 toto = "Mardi 1er juillet 2008"
 titi = Split(toto, " ")
 toto = CDate(Val(titi(1)) & " " & titi(2) & " " & titi(3))
 MsgBox toto 
End Sub

[ilcocodrillo]

respect... Même avec l'aide j'ai du mal à comprendre ce que fait le code...

[ucfoutu]

Bonjour Elcocodrilo,

Ce n'est pas grand chose :

Val("223blablabla") = 223
Le val extrrait ce qu'il y a de numérique devant ===>> donc val("1er") = 1

[malabarbe]

Bonsoir,

je me suis inspiré de vos codes
et je suis arrivé a cela qui tourne parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
date_cour = CDate(Mid(Replace(Strg, "1er", "1"), InStr(1, Replace(Strg, "1er", "1"), " ", 1) + 1))

Merci à tous