Bonjour consonnes, bonjour le forum,
Les deux pour le même prix !.. La macro agit sur la cellule A1, la fonction agit sur la cellule ciblée :
La macro :
Sub Macro1()
Dim D As String
D = Split(Range("A1").Value, " ")(1)
D = Replace(D, ".", "")
D = Replace(D, "-", "")
MsgBox D
End Sub
La fonction :
Public Function Extract(Cible As Range)
Dim D As String
D = Split(Cible.Value, " ")(1)
D = Replace(D, ".", "")
D = Replace(D, "-", "")
Extract = D
End Function