XL 2016 Garder uniquement le contenu situé entre les parenthèses

[FAFA01]

Bonjour,
je cherche un moyen de ne conserver que les chiffres situé à l'intérieur d'une cellule (quelque soit l'endroit)
ou
comment ne conserver que les caractères qui se trouvent à l'intérieur des parenthèses

ex : MONT-BLANC/LEMAN F+18 à X (20232420010159RST) ou R C LAPALISSOIS (5826H)
dans ces deux exemples je souhaiterai qu'il ne conserve que 20232420010159 et 5826

merci pour votre retour

cordialement
alain

 

[patricktoulon]

re
Bonjour Bonjour
@mapomme

tant qu'a faire limite les galopages

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Split(Split(x, "(")(UBound(Split(x, "("))), ")")(0)
   If x = "" Then Exit Function
   For i = 1 To Len(x): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

ou comme ça

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Split(x, "(")(UBound(Split(x, "(")))
   If x = "" Then Exit Function
   For i = 1 To InStr(1, x, ")"): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

ou bien encore comme ça

Function ChiffresEntrePar(ByVal x As String) As String
Dim i&, c, r
   If Not x Like "*(*)*" Then Exit Function
   x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
   If x = "" Then Exit Function
   For i = 1 To len(x): c = Mid(x, i, 1): r = r & IIf(c Like "#", c, ""): Next
   ChiffresEntrePar = r
End Function

ou bien on rend encore la chose plus rigolotte en recursif

Function ChiffresEntrePar(ByVal x As String, Optional I As Long = 0) As String
 Static chain As String
   If Not x Like "*(*)*" Then Exit Function
   If I = 0 Then chain = "": x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
    I = I + 1: If Mid(x, I, 1) Like "#" Then chain = chain & Mid(x, I, 1)
    If I < Len(x) Then ChiffresEntrePar x, I
     ChiffresEntrePar = chain
End Function

 

[patricktoulon]

re
et une autre mais la variable "chain" n'est plus staitic mais volante

Function ChiffresEntrePar(ByVal x As String, Optional I As Long = 0, Optional chain As String) As String
   If Not x Like "*(*)*" Then Exit Function
   If I = 0 Then chain = "": x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
    I = I + 1: If Mid(x, I, 1) Like "#" Then chain = chain & Mid(x, I, 1)
    If I < Len(x) Then ChiffresEntrePar x, I, chain
     ChiffresEntrePar = chain
End Function

et aussi la présser comme un citron

Function ChiffresEntrePar(ByVal x As String, Optional I As Long = 0, Optional chain As String) As String
    If Not x Like "*(*)*" Then Exit Function
   If I = 0 Then chain = "": x = Mid(x, InStrRev(x, "("), InStrRev(x, ")"))
   If I < Len(x) Then: chain = chain & IIf(Mid(x, I + 1, 1) Like "#", Mid(x, I + 1, 1), ""): ChiffresEntrePar x, I + 1, chain
     ChiffresEntrePar = chain
End Function

 

[mapomme]

Bonjour @patricktoulon ,

Monsieur fait feu de tout bois. Monsieur est en forme ce matin !

 

[patricktoulon]

non ca va là je suis pas au taquet
ce qui est dommage
c'est que toutes ces astuces que l'on a quand on a pas le cerveau en marmelade se perdent dans les fils