Supprimer une partie de texte

Le 11/01/2019 à 19:39

Bonjour

Dans ma feuille j'ai une liste de nom en "F" composé comme ceci

<path id="_x37_1002_L'ABERGEMENT-SAINTE-COLOMBE" " D="M390.7,432.1 351.5,409.9 341.......

J'aimerai supprimer à chaque ligne cette partie _x37_1002_ sa commence toujours par _x37_ 1....

Je vous remercie

Max

Le 11/01/2019 à 20:02

bonsoir valmax,

voici pour ce que tu as demandé.

Sub aargh()
    t = "<path id=""_x37_1002_L'ABERGEMENT-SAINTE-COLOMBE"" "" D=""M390.7,432.1 351.5,409.9 341......."
    s = InStr(t, "_x37_1")
    s1 = InStr(s + 6, t, "_")
    t = Left(t, s - 1) & Mid(t, s1 + 1)
    MsgBox t
End Sub

une remarque, tu en fais ce que tu veux :

Sache que quand tu écris "sa fonctionnne" le "sa" est le diminutif de "cela" et s'écrit "ça" , de même "j'aimerai" est un conditionnel et s'écrit "j'aimerais".

Le 11/01/2019 à 20:34

Bonjour toutes et tous,

Je n'ai pas bien compris le début : <path..

coucou H2s04

@Valmax : Avec une formule à placer dans une autre colonne ?( à améliorer)

=DROITE(F1;NBCAR(F1)-TROUVE("_x37_100";F1)-9)

crdlt,

André

Le 11/01/2019 à 20:45

Bonjour André, h2so4, Max,

tu a écrit :

Je n'ai pas bien compris le début : <path..

il ne faut pas lire « inférieur à » ; Max utilise les chevrons « < » et « > » comme balises :

ça a donc le même rôle que les balises crochets des posts.

dhany

Le 11/01/2019 à 20:58

Merci <Dhany pour cette information>

Le 11/01/2019 à 21:13

Re h2so4

Alors déjà merci pour l’orthographe à l'avenir je ferais attention.

Peut-on mettre le code que tu ma fait ce matin avec le code présent puisque sa marche en semble

Merci

max

Le 12/01/2019 à 00:10
valmax a écrit :

Re h2so4

Alors déjà merci pour l’orthographe à l'avenir je ferai attention.

Peut-on mettre le code que tu m'as fait ce matin avec le code présent pour que ça marche ensemble ?

Merci

max

bonsoir,

voici

Sub aargh()
    col = "I"
    Columns(col).Replace "<polygon id=", "<path id=", xlPart
    Columns(col).Replace "points=""", "D=""M", xlPart
    For i = 1 To Cells(Rows.Count, col).End(xlUp).Row
        t = Cells(i, col)
        texte = t
        If texte <> "" Then
            texte = Split(texte, """")(1)
            texte = Split(texte, "_")
            texte = texte(UBound(texte))
            If EstMajuscule(texte) Then Cells(i, 1) = texte
        End If
        texte = t
        If texte <> "" Then
            s = InStr(texte, "_x37_1")
            If s > 0 Then
                s1 = InStr(s + 6, texte, "_")
                texte = Left(t, s - 1) & Mid(texte, s1 + 1)
                Cells(i, col) = texte
            End If
        End If
    Next i
End Sub

Function EstMajuscule(tx)
    t = tx
    For i = 1 To Len(t)
        ch = Mid(t, i, 1)
        If (ch < "A" Or ch > "Z") And ch <> "-" And ch <> "'" Then EstMajuscule = False: Exit Function
    Next i
    EstMajuscule = True
End Function
Le 12/01/2019 à 01:06

Salut Valmax,

H2SO4, l'équipe,

autre version du calcul même si c'est hasardeux sans avoir plus de valeurs-exemples de cette colonne [F]...

If InStr(texte, "_x37_1") > 0 Then Cells(i, col) = Left(texte, InStr(texte, "_") - 1) & Right(texte, Len(texte) - InStrRev(texte, "_"))

A+

Le 12/01/2019 à 07:29

Bonjour h2so4

Tout d'abord un grand merci, le code est Nickel.

Après, j'ai fait une énorme boulette.

Ce n'est pas

<path id="L'ABERGEMENT-SAINTE-COLOMBE" " d="M390.7,432.1 351.5,409.........

Mais

<path id="01" title= "L'ABERGEMENT-SAINTE-COLOMBE" d="M390.7,432.1 351.5,409............

En faisant référence à la colonne "C" pour le "01"qui à une formule =SI(ESTVIDE(F5);"";1)

Je met un fichier joint comme exemple

Excuse moi et merci encore

Max

6transpose-2.xlsm (11.68 Ko)
Le 12/01/2019 à 12:04

bonjour,

je vois que tu as changé la colonne dans laquelle se trouve le texte.

Sub aargh()
    col = "F"
    Columns(col).Replace "<polygon id=", "<path id=", xlPart
    Columns(col).Replace "points=""", "D=""M", xlPart
    For i = 1 To Cells(Rows.Count, col).End(xlUp).Row
        t = Cells(i, col)
        texte = t
        If texte <> "" Then
            texte = Split(texte, """")(1)
            texte = Split(texte, "_")
            texte = texte(UBound(texte))
            If EstMajuscule(texte) Then Cells(i, 1) = texte
        End If
        texte = t
        If texte <> "" Then
            s = InStr(texte, "_x37_1")
            If s > 0 Then
                s1 = InStr(s + 6, texte, "_")
                texte = Left(t, s - 1) & Mid(texte, s1 + 1)
                Cells(i, col) = texte
            End If
        End If
        Cells(i, col).Replace "<path id=", "<path id=""" & Format(Cells(i, "C"), "#00") & """ title="
    Next i
End Sub

Function EstMajuscule(tx)
    t = tx
    For i = 1 To Len(t)
        ch = Mid(t, i, 1)
        If (ch < "A" Or ch > "Z") And ch <> "-" And ch <> "'" Then EstMajuscule = False: Exit Function
    Next i
    EstMajuscule = True
End Function
Le 12/01/2019 à 12:20

Bonjour h2so4

Génial juste une petite chose et je t'embête plus

Peut tu mettre le nom de la commune en nom propre:

L'ABERGEMENT-SAINTE-COLOMBE

L'Abergement-Sainte-Colombe

Merci beaucoup

Max

Le 12/01/2019 à 12:50

re-bonjour,

voici

Sub aargh()
    col = "F"
    Columns(col).Replace "<polygon id=", "<path id=", xlPart
    Columns(col).Replace "points=""", "D=""M", xlPart
    For i = 1 To Cells(Rows.Count, col).End(xlUp).Row
        t = Cells(i, col)
        texte = t
        If texte <> "" Then
            texte = Split(texte, """")(1)
            texte = Split(texte, "_")
            texte = texte(UBound(texte))
            If EstMajuscule(texte) Then Cells(i, 1) = Application.Proper(texte)
        End If
        texte = t
        If texte <> "" Then
            s = InStr(texte, "_x37_1")
            If s > 0 Then
                s1 = InStr(s + 6, texte, "_")
                texte = Left(t, s - 1) & Mid(texte, s1 + 1)
                Cells(i, col) = texte
            End If
        End If
        Cells(i, col).Replace "<path id=", "<path id=""" & Format(Cells(i, "C"), "#00") & """ title="
    Next i
End Sub

Function EstMajuscule(tx)
    t = tx
    For i = 1 To Len(t)
        ch = Mid(t, i, 1)
        If (ch < "A" Or ch > "Z") And ch <> "-" And ch <> "'" Then EstMajuscule = False: Exit Function
    Next i
    EstMajuscule = True
End Function
Le 12/01/2019 à 13:36

Re,

Oui pour la colonne "A" mais pour le finalisé la partie

<path id="01" title="L'ABERGEMENT-SAINTE-COLOMBE" " le nom en nom propre serais génial et je n'arrive pas à supprimer la deuxième apostrophe après

L'ABERGEMENT-SAINTE-COLOMBE" "

Sinon super, un gain de temps formidable.

Merci beaucoup

Max

Le 12/01/2019 à 14:11

Bonjour,

dernière contribution.

4transpose-2.xlsm (19.35 Ko)
Le 12/01/2019 à 14:23

Re,

Je te remercie beaucoup GENIAL

Bon WE

Max

Rechercher des sujets similaires à "supprimer partie texte"