VBA: Date format spécial

[MJ13]

Bonjour à tous

J'ai des dates au format spécial mais toujours formaté JJ-MMM. Mais avec Cdate, il ne me reconnaît pas toujours le mois 😕.

Ex:

Date
13-Déc
29-Nov
28-Oct
30-Sep
30-Aoû
31-Jul
02-Jul
28-Jun


Je voudrais passer par un tableau pour définir en dur dans le code le mois à trouver (ex: 08 pour Aoû).

Merci d'avance 🙂.

 

[Dranreb]

Re : VBA: Date format spécial

Bonjour MJ13
Cette fonction s'en sort :

Function DateSpéciale(ByVal Z As String) As Date
DateSpéciale = CDate(Replace(Replace(Replace(Z, "Jun", "Juin"), "Jul", "Juil"), "Aoû", "Août"))
End Function

=DateSpéciale($A2)

 

[Modeste geedee]

Re : VBA: Date format spécial

Bonsour®
sans macro !

sélectionner la colonne (une seule colonne !) contenant les dates à évaluer
menu données > convertir
à l'étape 3
choisir date : JMA
OK

 

[MJ13]

Re : VBA: Date format spécial

Bonjour Bernard, Modeste

Merci beaucoup pour ces solutions qui fonctionnent 🙂.