Discussion :

[astrid123]

Bonjour,

Je suis encore coincée avec un pb de date que je voudrais convertir en mm/yyyy. Le format actuel dans mon tableau : 01/Dec/2018:12:51:41 +0100. Je soupçonne qu'il est en format string. J'ai essayé d'utiliser plusieurs fonctions comme CDate, DATEVALUE mais rien ne marche !!! Une idée ?
Merci d'avance ,

H.

[Trystan441]

Bonjour,

C'est peut être du bricolage mais ça fonctionne chez moi,

Code :

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

1
2
3
4
5
6
7
Sub testdate()
 
Range("C5") = Month(Range("A1")) & "/" & Year(Range("A1"))
 
Range("C5").NumberFormat = "mmm-yyyy"
 
End Sub

Tu n'as plus qu'à changer les références aux cellules

Bonne journée à toi,

[MarcelG]

Bonjour,
La gêne réside ici en l'orthographe du mois.
Si celle-ci était Déc (avec accent) alors la conversion en date serait aisée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub transfo_date()
 
Dim larray As Variant, larray2 As Variant, stdate As String
Dim ladate As Date
 
larray = Split(Worksheets(1).[A1], ":")
stdate = larray(LBound(larray))
larray2 = Split(stdate, "/")
'Renvoie Vrai si orhographe "Déc" (avec accent)
Debug.Print IsDate(larray2(0) & " " & larray2(1) & " " & larray2(2))
 
End Sub

[MarcelG]

Salut Trystan,

Sur mon poste (Excel 2016), la cellule n'est pas reconnue en date

Code :

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

IsDate([A1])

retourne

Code :

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

Faux

[Menhir]

Sur mon poste (Excel 2016), la cellule n'est pas reconnue en date
IsDate([A1]) retourne Faux

On peut aussi plus simplement le tester avec la fonction ESTNUM directement dans Excel (sans VBA).
Si ça répond Vrai et que ça ressemble à 01/Dec/2018:12:51:41 +0100, c'est que c'est une date.

Mais le +0100 (pas impossible mais peu probable) laisse penser qu'il y a de grandes chances pour que la réponse soit négative.

Bref, il faudra sans doute disséquer ces chaines pour les recomposer avec un DateSerial() (en VBA) ou un DATE() (en Excel).
Et avec le mois littéral, ce sera un peu plus compliqué. Il faudra utiliser un Select Case (en VBA) ou un RECHERCHEV() (en Excel).