Discussion :

[pubbins]

Bonjour a tous,

J'ai un probleme qui m'énerve et qui a mon avis n'est pas très compliqué. Voici le probleme :

Dans une cellule est écrit MAR 06, 2011

Mais excel ne reconnait pas que c'est une date (dans la version francaise). J'ai à convertir ce string en une date dans une de mes macros.

Voici le code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
    mo = Left(DT.Range("A" & i + 1).Value, 3)
    da = Mid(DT.Range("A" & i + 1).Value, 5, 2)
    ye = Right(DT.Range("A" & i + 1).Value, 4)
 
    datejour=cdate(Format(da & "-" & mo & "-" & ye, "dd-mmm-yyyy"))

Il me donne une incompatibilité de type sur la dernière ligne. Comment dois-je faire ?

Merci d'avance,

Pubbins

[MarcelG]

Bonsoir à toi, Bonsoir au Forum,

Une solution à adapter

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub essai()
Dim c As Range
Set c = Range("A1")
mois = Left(c, 3)
jour = Mid(c, 5, 2)
an = Right(c, 4)
c.Value = Format(CDate(Format(jour & " " & mois & " " & an)), "dd mmmm yyyy")
Set c = Nothing
End Sub

[pubbins]

Merci Marcel mais ta solution ne marche qu'en partie. En fait, elle ne fonctionne que pour les mois dont les 3 premieres lettres sont les memes en francais et en anglais !

Par ex : JAN, MAR, SEP, OCT...

Par contre, des que je tombe sur APR, FEB... Cela ne marche plus. Comment je peux lui faire comprendre que APR, c'est AVR...

Je précise que dans la version anglaise, il n'y a aucun soucis parce qu'il reconnait le format de date. Du coup ce que j'aimerais, c'est que quelque soit la version, excel reconnaisse la date.

Merci d'avance

[MarcelG]

Bonjour à toi, Bonjour au Forum,

Tu peux lever cette difficulté en établissant une correspondance entre 2 varaibles tableau.

Afin de considérer le rang 1 d'un tableau comme premier rang
En entête de module

Code :

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

Option Base 1

(sinon le tableau commence à 0)

D'où, en bouclant sur les variables de langue anglaise
(Ici 4 mois, je te laisse compléter)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub essai()
Dim c As Range
Set c = Range("A1")
mois = Left(c, 3)
jour = Mid(c, 5, 2)
an = Right(c, 4)
liste_mois_eng = Array("JAN", "FEB", "MAR", "APR")
liste_mois_fra = Array("01", "02", "03", "04")
n = 0
For Each m In liste_mois_eng
        n = n + 1
        If m = mois Then Exit For
Next m
mois = liste_mois_fra(n)
Debug.Print mois
c.Value = Format(CDate(Format(jour & "-" & mois & "-" & an)), "dd mmmm yyyy")
Set c = Nothing
End Sub

[mercatog]

Bonjour
Une autre proposition avec switch

Code :

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

1
2
3
4
5
6
7
Function ConvertDate(ByVal Str As String) As Date
Dim Stm As String
 
Stm = UCase(Left(Str, 3))
Str = Switch(Stm = "JAN", "janv", Stm = "FEB", "févr", Stm = "MAR", "mars", Stm = "APR", "avr", Stm = "MAI", "mai", Stm = "JUN", "juin") & Replace(Mid(Str, 4), ",", "") '..etc
ConvertDate = DateValue(Str)
End Function