Rapport de message :*
 

Re: Suppression Parentheses et leur contenus

Titre du sujet : Re: Suppression Parentheses et leur contenus
par myDearFriend! le 05/02/2022 16:03:10

Bonjour Eric smiley,

 

Citation :

ericcool a écrit :

    Petite question : et si les valeurs entre parenthèses se situent au hasard de la cellule [ex : (C.f ) Not Now Dick ( Fr)] ou [Not Now (Ex) Dick ( Fr)] - Comment doit on procéder ? 

 

Arf, bonne question cher Eric !

 

Moi, je tenterais quelque chose comme ça :

Private Function supprPth(T As String) As String
Dim N As Byte, N2 As Byte
    N = InStr(T, "(")
    Do While N > 0
        N2 = InStr(N + 1, T, ")")
        If N2 > 0 Then
            T = Left(T, N - 1) & Mid(T, N2 + 1)
        End If
        N = InStr(T, "(")
    Loop
    T = Replace(T, "  ", " ")   'Eviter les éventuels double-espaces dans l'expression !
    supprPth = Trim(T)
End Function

 

Evidemment, je suppose que certains préfèreront faire appel aux expressions régulières ou autre du genre (et ils auront sûrement raison !), mais je continue de faire ça à l'ancienne pour ma part... wink

 

Bien cordialement,