Microsoft 365 Enlever du texte entre parenthèse

[JulesetVince31]

Bjr à toutes et tous,

Suis nouveau...

Je souhaiterai enlever une partie du texte entre les parenthèses.
Exemple.
Automatisation des plan de tri TG

ENROUX (CHEMIN D ENROUX)

ENROUX (IMPASSE D ENROUX)

Ici, je souhaite enlever d enroux, et garder chemin et impasse entre parenthèses ainsi que Enroux dans la cellule.

Merci pour vos retours.
Cdlt

 

[sylvanu]

Bonjour Loïc, et bienvenu sur XLD,
Avec un petit fichier test et quelques autres exemples, cela aurait été plus simple.
Si en A1 il y a ENROUX (CHEMIN D ENROUX) , alors ENROUX (CHEMIN) peut être obtenu avec :

=STXT(A1;1;CHERCHE(" ";STXT(A1;CHERCHE("(";A1);100))+CHERCHE("(";A1)-2)&")"

 

[Eric KERGRESSE]

Bonjour,

Sinon avec une fonction :

Function FormatageCellule(ByVal Chaine As String) As String

Dim LaChaine As String

    FormatageCellule = ""
    If InStr(1, Chaine, "(", vbTextCompare) = 0 Then Exit Function
    LaChaine = Split(Chaine, "(")(1)
    FormatageCellule = Split(Chaine, "(")(0) & " (" & Split(LaChaine, " ")(0) & ")"

End Function

 

[JulesetVince31]

Bonjour Loïc, et bienvenu sur XLD,
Avec un petit fichier test et quelques autres exemples, cela aurait été plus simple.
Si en A1 il y a ENROUX (CHEMIN D ENROUX) , alors ENROUX (CHEMIN) peut être obtenu avec :

=STXT(A1;1;CHERCHE(" ";STXT(A1;CHERCHE("(";A1);100))+CHERCHE("(";A1)-2)&")"

Bjr,
je joins le fichier. Merci pour l'aide.
En fait, c'est pour arrêter les redondances et juste garder les termes indicateurs des voies.
Merci pour l'aide.

 

[sylvanu]

Re, bonsoir Eric,
Un essai en PJ avec :

Sub Nettoie()
    Dim DL%, DC%, i%, j%, T, T1, T2
    Application.ScreenUpdating = False
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    DC = Cells(1, Columns.Count).End(xlToLeft).Column
    T = Range(Cells(1, 1), Cells(DL, DC))
    For i = 1 To UBound(T)
        For j = 1 To UBound(T, 2)
            If T(i, j) Like "*(*" Then
                T1 = Split(T(i, j), "(")
                T2 = Split(T1(1), " ")
                T(i, j) = T1(0) & "(" & T2(0) & ")"
            End If
        Next j
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

Sur la feuille, faire ALT+F8 et lancer "Nettoie"

 

[JulesetVince31]

Re, bonsoir Eric,
Un essai en PJ avec :

Sub Nettoie()
    Dim DL%, DC%, i%, j%, T, T1, T2
    Application.ScreenUpdating = False
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    DC = Cells(1, Columns.Count).End(xlToLeft).Column
    T = Range(Cells(1, 1), Cells(DL, DC))
    For i = 1 To UBound(T)
        For j = 1 To UBound(T, 2)
            If T(i, j) Like "*(*" Then
                T1 = Split(T(i, j), "(")
                T2 = Split(T1(1), " ")
                T(i, j) = T1(0) & "(" & T2(0) & ")"
            End If
        Next j
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

Sur la feuille, faire ALT+F8 et lancer "Nettoie"

Je ne peux pas utiliser car Windows "Une macro potentiellement dangereuse a été bloquée"... zut​

 

[sylvanu]

Re,
Il vous faut autoriser les macros. En images :

 

[Eric KERGRESSE]

Votre système de protection m'a l'air bien géré, c'est rassurant pour votre entreprise... Il faut voir avec votre administrateur informatique.
Sinon, il faut vous rabattre sur la formule de Sylvanu.

 

[Eric KERGRESSE]

Bonjour Sylvanu,

Si le système est bien géré, il ne devrait pas avoir les droits administrateur, mais sait-on jamais...

 

[JulesetVince31]

Re,
Sylvanu et la communauté,
ça fonctionne avec le premier tuto, celui où il n'y avait que 2 noms de rues!
Pour la macro, je vais faire ce que vous m'indiquez.
Là, je viens de gagner du temps ++++
Merci

 

[Staple1600]

Bonjour le fil

@Loïc Graule
Puisque que tu disposes d'Office 365
alors cette formule te sera utile
=SIERREUR(TEXTE.AVANT(D1;"(");"")

NB: Pour traiter ton fichier, je mettrai tes données sur une seule colonne sur une feuille temporaire

 

[sylvanu]

Re, bonsoir Staple,

Pour la macro, je vais faire ce que vous m'indiquez.

Vous devriez obtenir ceci :

 

[JulesetVince31]

Re, bonsoir Staple,

Vous devriez obtenir ceci :
Regarde la pièce jointe 1178733

 

[JulesetVince31]

Re,
une demande supplémentaire, et si je veux garder le n° derrière la parenthèse, là où il y a des n°?
Je lui mets quoi dans la macro?

Merci

 

[sylvanu]

si je veux garder le n° derrière la parenthèse, là où il y a des n°?

Vous ajoutez/modifiez :

T3 = Split(T1(1), ")")
T(i, j) = T1(0) & "(" & T2(0) & ")" & T3(1)