=SUPPRESPACE(GAUCHE(" "&A1;TROUVE("(";A1)-1)&STXT(A1;TROUVE(")";A1)+1;99))
=SI(ESTNUM(CHERCHE("(";D36));SUPPRESPACE(GAUCHE(D36;CHERCHE("(";"x"&D36)-2)&STXT(D36;CHERCHE(")";D36)+1;255));D36)
Function SansParenthèse(ByVal x) As String
Dim nouvr&, nferm&, n&, i&, c$
nouvr = InStr(x, "("): nferm = InStr(x, ")")
If nouvr + nferm = 0 Then
SansParenthèse = x
Exit Function
End If
n = 1
For i = nouvr + 1 To Len(x)
c = Mid(x, i, 1)
Select Case c
Case "("
n = n + 1
Case ")"
n = n - 1
If n = 0 Then
Mid(x, nouvr, i - nouvr + 1) = String(i - nouvr + 1, Chr(0))
SansParenthèse = SansParenthèse(Replace(x, Chr(0), ""))
Exit Function
End If
Case Else
End Select
Next i
If n <> 0 Then SansParenthèse = CVErr(xlErrValue)
End Function
Function Suppr$(t$)
Dim i%, flag As Boolean
For i = 1 To Len(t)
If Mid(t, i, 1) = "(" Then flag = True
If Mid(t, i, 1) = ")" Then flag = False: i = i + 1
If Not flag Then Suppr = Suppr$ & Mid(t, i, 1)
Next
Suppr = Application.Trim(Suppr) 'SUPPRESPACE
End Function
Bonjour le fil, mapomme,
Surtout ne pas se compliquer la vie inutilement
A+Code:Function Suppr$(t$) Dim i%, flag As Boolean For i = 1 To Len(t) If Mid(t, i, 1) = "(" Then flag = True If Mid(t, i, 1) = ")" Then flag = False: i = i + 1 If Not flag Then Suppr = Suppr$ & Mid(t, i, 1) Next Suppr = Application.Trim(Suppr) 'SUPPRESPACE End Function
Bonjour le fil, mapomme,
Surtout ne pas se compliquer la vie inutilement
A+Code:Function Suppr$(t$) Dim i%, flag As Boolean For i = 1 To Len(t) If Mid(t, i, 1) = "(" Then flag = True If Mid(t, i, 1) = ")" Then flag = False: i = i + 1 If Not flag Then Suppr = Suppr$ & Mid(t, i, 1) Next Suppr = Application.Trim(Suppr) 'SUPPRESPACE End Function
Bonjour le fil, mapomme,
Surtout ne pas se compliquer la vie inutilement
A+Code:Function Suppr$(t$) Dim i%, flag As Boolean For i = 1 To Len(t) If Mid(t, i, 1) = "(" Then flag = True If Mid(t, i, 1) = ")" Then flag = False: i = i + 1 If Not flag Then Suppr = Suppr$ & Mid(t, i, 1) Next Suppr = Application.Trim(Suppr) 'SUPPRESPACE End Function
Le code VBA est vraiment très simple, il doit fonctionner sur MAC.Mais lorsque je créer la macro dans mon fichier xl impossible de la faire fonctionner !
Je suis sur Mac OS X 10.10.5 avec Excel 2011