Re: Suppression Parentheses et leur contenus |
Titre du sujet : Re: Suppression Parentheses et leur contenus par myDearFriend! le 05/02/2022 16:42:01 Re,
Finalement, à bien y réfléchir Eric, voici une autre solution possible :
Private Function supprPth(T As String) As String
Dim vTab As Variant
Dim N As Byte
vTab = Split(T, "(")
T = vTab(0)
For N = 1 To UBound(vTab)
T = T & Split(vTab(N), ")")(1)
Next N
T = Replace(T, " ", " ") 'Eviter les éventuels double-espaces dans l'expression !
supprPth = Trim(T)
End Function
Je crois que je préfère cette solution là, qui me semble plus simple.
En tout cas, merci de ton passage Eric c (je suis toujours ravi de retrouver de vieux amis croisés sur d'autres forums, et en d'autres temps... De bons souvenirs !).
Bien cordialement,
|
Forums