Re: Suppression Parentheses et leur contenus |
Titre du sujet : Re: Suppression Parentheses et leur contenus par myDearFriend! le 04/02/2022 18:02:11 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, |
Forums