Fonction extraction donnée dans une cellule

Bonjour à tous,

pouvez m'aider en me donnant une formule excel me permettant d'extraire uniquement les dates en rouge de la cellule A vers la cellule B.

ci joint le fichier.

merci d'avance pour votre retour.

cordialement,

Slimcedro

Salut,

Voilà, j'ai réalisé cette petite macro. Mais il y a un problème de format (surligné en jaune) que je n'arrive pas à résoudre.

Cdlt,

Sub extract()
Dim i As Integer
i = 2
Dim extract As String
Dim ref As Integer

While Range("A" & i).Value <> ""
i = i + 1

ref = InStr(Range("A" & i).Value, "/")

If ref <> 0 Then
ref2 = InStr(ref + 1, Range("A" & i).Value, "/")
If ref2 <> 0 Then

extract = Mid(Range("A" & i).Value, ref - 2, 10)

extract = Format(extract, "dd/mm/yyyy")

Range("B" & i).NumberFormat = "m/d/yyyy"

Range("B" & i) = extract

End If
End If

Wend

End Sub

Petite correction, sur une seule ligne vers la fin :

Range("B" & i) = CDate(extract)

melch a écrit :

Petite correction, sur une seule ligne vers la fin :

Range("B" & i) = CDate(extract)

Bonjour

Une variante avec fonction personnalisée.

Bye !

Bonsoir à tous,

je vous remercie infiniment pour votre aide. cela m'a permis d'avancer sur cette tâche.

Cordialement,

Slimcedro