Convertisseur de date

Bonjour,

J'extrais à travers un CRM une base de données avec des dates de type : 21 déc. 2018 09:43

J'aimerai a travers une macro ou une fonction obtenir une date de type : 21/12/18

J'ai essayé d'extraire les caractère nécessaire avec un mix de fonctions comme "droite" et "gauche" mais le problème vient du fait que tous les mois n'ont pas le même nombre de caractère (ex : dec. & janv.) ce qui complexifie la chose.

Une idée de solution svp ?

Merci !

Salut,

Par formule avec étapes, par contre ça nécessite une petite table de conversion pour les mois de lettres en chiffres.

Il est possible de supprimer mes colonnes de calcul intermédiaire mais je les ai laissé pour que tu comprenne plus facilement le cheminement.

Girodo,

Top merci ! Je vais regarder ça de plus près pour bien comprendre

Bonjour GuillaumeLPH, le forum,

Salut girodo,

Une proposition par macro....

Sub test()
 Dim i As Integer, derlig As Integer

  Application.ScreenUpdating = False

  With Sheets("Sheet1")
   derlig = .Range("F" & Rows.Count).End(xlUp).Row
    For i = 4 To derlig
     If .Range("F" & i) <> "" Then
      .Range("I" & i) = CDate(Range("F" & i))
      .Range("I" & i).NumberFormat = "dd/mm/yyyy"
     End If
    Next i
  End With
End Sub

Cordialement,

Bonjour le forum

et par formule en une seule étape avec un petit tableau pour les mois

=CONCATENER(GAUCHE(F5;CHERCHE(" ";F5;1));"/";RECHERCHEV(DROITE(GAUCHE(F5;CHERCHE(".";F5;1)-1);NBCAR(GAUCHE(F5;CHERCHE(".";F5;1)-1))-CHERCHE(" ";F5;1));$A$1:$B$12;2;FAUX);"/";GAUCHE(DROITE(F5;10);4))

a plus sur le forum

Bonjour tout le monde,

Avec les exemples fournis, ceci semble fonctionner aussi:

=DATEVAL(SUBSTITUE(GAUCHE(F4;NBCAR(F4)-6);".";""))

[Edit:] voire même

=DATEVAL(SUBSTITUE(F4;".";""))