transformation d'un format de date

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.

Bonjour,

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

Code:

---

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,

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:

---

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

---

Salut Trystan,

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

Code:

---

IsDate([A1])

---

retourne

Code:

---

Faux

---

Citation:

---

Envoyé par MarcelG

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).