Hello,
pour Excel2007 une fonction personnalisée (nécessite d'avoir un classeur .xlsm ) et d'insérer ce code dans un module standard :
Function ExtraireBC(cell) As String
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
With regex
.Pattern = "BC\s*(N\s*)?[0-9]+(/[0-9]{4})?"
.Global = False
.IgnoreCase = True
End With
If regex.Test(cell) Then
ExtraireBC = regex.Execute(cell)(0).Value
Else
ExtraireBC = ""
End If
End Function
Ce code utilise les expressions régulières . Résultat :
Ami calmant, J.P