Microsoft 365 Enlever du texte entre parenthèse

JulesetVince31 · 14 Septembre 2023

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 · 14 Septembre 2023

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 :

VB:

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

Eric KERGRESSE · 14 Septembre 2023

Bonjour,

Sinon avec une fonction :

VB:

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 · 14 Septembre 2023

sylvanu à dit:
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 :

VB:

=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 · 14 Septembre 2023

Re, bonsoir Eric,
Un essai en PJ avec :

VB:

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 · 14 Septembre 2023

sylvanu à dit:

Re, bonsoir Eric,
Un essai en PJ avec :

VB:

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 · 14 Septembre 2023

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

Eric KERGRESSE · 14 Septembre 2023

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 · 14 Septembre 2023

Bonjour Sylvanu,

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

JulesetVince31 · 14 Septembre 2023

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 · 14 Septembre 2023

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 · 14 Septembre 2023

Re, bonsoir Staple,

Loïc Graule à dit:
Pour la macro, je vais faire ce que vous m'indiquez.

Vous devriez obtenir ceci :

JulesetVince31 · 14 Septembre 2023

sylvanu à dit:
Re, bonsoir Staple,

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

JulesetVince31 · 14 Septembre 2023

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 · 14 Septembre 2023

Loïc Graule à dit:
si je veux garder le n° derrière la parenthèse, là où il y a des n°?

Vous ajoutez/modifiez :

VB:

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

Microsoft 365 Enlever du texte entre parenthèse

JulesetVince31

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Eric KERGRESSE

XLDnaute Occasionnel

Pièces jointes

JulesetVince31

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

JulesetVince31

XLDnaute Nouveau

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

sylvanu

XLDnaute Barbatruc

Eric KERGRESSE

XLDnaute Occasionnel

Eric KERGRESSE

XLDnaute Occasionnel

JulesetVince31

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

JulesetVince31

XLDnaute Nouveau

JulesetVince31

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Microsoft 365 Enlever du texte entre parenthèse

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

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

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency

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