Bonjour à la communaute,

Dans un premier temps ,je cherche à supprimer les parentheses et leurs contenus

Arrow Blue ( USA ) ( E1 )et que le nom soit sans espace ni au debut , ni à la fin

Ce qui donne : Arrow Blue

Desfois ily'a ( IRE ) ou ( GB ) etc....

Les parentheses se trouvent dans la colonne B et la colonne J

En vous remerciant par avance

Tres Cordialement

MRX78

Bonjour MRX78, bienvenue sur XLPages 

Tu ne précises pas vraiment.... par formule Excel ou par VBA ? 

Une proposition par formule Excel :

Par exemple, soit le texte "Paul Soto ( IRE )" en cellule B4.

La formule suivante devrait répondre à ta demande :

=SUPPRESPACE(SI(ESTERR(CHERCHE("(";B4));B4;GAUCHE(B4;CHERCHE("(";B4)-1)))

Une proposition par VBA :

​Lancer la procédure "EpurerColBJ()" supprimera d'un coup, tous les contenus entre parenthèses en colonnes B et J de la feuille "Feuil1".

DANS UN MODULE DE CODE STANDARD (ex : Module1)

Option Explicit
'myDearFriend! www.mdf-xlpages.com

Sub EpurerColBJ()
Dim LMax As Long, L As Long
    With Sheets("Feuil1")
        LMax = .Cells(.Rows.Count, 1).End(xlUp).Row
        'Pour chaque ligne du tableau
        For L = 2 To LMax
            With .Cells(L, 2)       '2 = colonne B
                .Value = supprPth(.Value)
            End With
            With .Cells(L, 10)      '10 = colonne J
                .Value = supprPth(.Value)
            End With
        Next L
    End With
End Sub

Private Function supprPth(T As String) As String
Dim N As Byte
    N = InStr(T, "(")
    If N > 0 Then
        T = Left(T, N - 1)
    End If
    supprPth = Trim(T)
End Function

En espérant avoir répondu à ton besoin.

Bien cordialement,

Bonjour My Dear Friend , 

Je te remercie d'avoir repondu

C'est plus tot du VBA genre macro , est ce que le code que tu as ecrit supprime les espaces

au debut et à la fin des noms?Qui se trouvent dans les colonnes suivantes.

Cela concerne la colonne B ( Nom du Cheval )

Cela concerne la colonne G ( Jockey )

Cela concerne la colonne I (Proprietaire )

Cela concerne la colonne J ( Entraineur )

Je te souhaite une bonne fin de journée , je vais tester le code pour les parentheses

Je te tiens au courant

Tres Cordialement

JeanMaurice

Rebonjour ,

J'ai testé c'est Super Nickel!!Un Grand Merci à toi

Apparement ça fait les espaces????

Bonne fin de journée

Encore un Grand Merci

Tres Cordialement 

Jean-Maurice alias MRX78 lol

Bonjour Jean-Maurice, le Forum,

Citation :

Oui, pour les colonnes B et J puisque c'était l'objet de ta demande initiale, mais non pour les colonnes G et I puisque tu n'en parlais pas... 

Pour les colonnes B et J, c'est la fonction Trim() que j'ai utilisée. Elle supprime les espaces inutiles en début et fin d'expression texte, c'est son rôle, elle est faite pour ça!

Pour info, c'est un peu l'équivalent VBA de la fonction Excel de feuille de calcul "SUPPRESPACE()".

Pour ajouter ce même traitement (suppression des espaces inutiles seulement) aux colonnes G et I, tu pourrais modifier simplement la procédure VBA EpurerColBJ(), comme suit :

Sub EpurerColBJ()
Dim LMax As Long, L As Long
    With Sheets("Feuil1")
        LMax = .Cells(.Rows.Count, 1).End(xlUp).Row
        'Pour chaque ligne du tableau
        For L = 2 To LMax
            With .Cells(L, 2)       '2 = colonne B
                .Value = supprPth(.Value)
            End With
            With .Cells(L, 7)       '7 = colonne G
                .Value = Trim(.Value)
            End With
            With .Cells(L, 9)       '9 = colonne I
                .Value = Trim(.Value)
            End With
            With .Cells(L, 10)      '10 = colonne J
                .Value = supprPth(.Value)
            End With
        Next L
    End With
End Sub

Il te faut ajouter ce qui est indiqué en Jaune ci-dessus. Ne rien toucher au reste du code...

Si ça répond bien à ta demande, merci de mettre ce fil en "[Résolu]" (cf. ma signature ci-dessous).

Bien cordialement,

Bonjour le forum,

Bonjour MRX78, MyDearFriend

    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 ? 

Merci et bon ouikand à toutes & à tous

@+ Ericcool

Bonjour Eric ,

Citation :

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... 

Bien cordialement,

Bonjour le forum

Re RMX78

   Merci Didier pour cette intervention. Comme cela, je suis sûr que cette fonction servira un jour ou l'autre à un membre ou une personne à la recherche de cette solution. Pour ma part, je mets de côté.

@RMX78 : n'oublie pas de mettre le sujet comme "Résolu" si tu juges que la solution t'a été apportée ==> Préfixe du sujet : AUCUN ou [Résolu].  

Bon ouikand 

@+ Eric 

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,

Re le fil

  Merci Didier pour ce code plus condensé.

Oui, à moi aussi ça fait plaisir de croiser les anciens et de discuter un peu, cela prend peu de temps et c'est très agréable. Sur l'ex site, je croise encore quelque anciens et j'ai eu l'agréable surprise de voir notre ami @+Thierry apparaître lors du premier confinement.   

Bonne continuation à toi & aux tiens.

@micalement Eric