XL 2016 Supprime caractères

[maval]

Bonjour

J'ai dans un classeur une centaine de feuilles avec nom de ville. sur trois colonnes comme ceci:

Colonne "E" Belley (011)
Colonne "F" Ambérieu-en-Bugey (0101)
Colonne "G" L’Abergement-Clémenciat (01001)

J'aimerai à l'aide d'un code VBA supprimer les caractères en rouge (01001) en sachant qu'il y a environ 300 noms dans des colonnes

Mon fichier exemple

Je vous remercie

Max

 

[Lolote83]

Salut Maval,
Avec ce petit code a adapter pour les colonnes F et G si j'ai bien compris la consigne.

Sub SupprimeCP()
    Application.ScreenUpdating = False
    For Each xCell In Range("E7:E10")       'Ici plage de la colonne E
        xDecoupe = Split(xCell, "(")
        xCell.Value = RTrim(xDecoupe(0))
    Next xCell
    Application.ScreenUpdating = True
End Sub

@+ Lolote83

 

[maval]

Bonjour Lolote83

J'ai un message d'erreur L'indice n'appartient pas à la sélection
Mais pourquoi
("E7:E10") au lieu
("E7:G150")

Merci

 

[Lolote83]

Re bonjour,
Je n'ai effectivement fait le test que sur la colonne E et n'est pas testé si une cellule était vide d'où l'erreur que tu as.
Remplace alors le code par celui-ci

Sub SupprimeCP()
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each xCell In Range("E7:G399")       'Ici plage de la colonne E
        xDecoupe = Split(xCell, "(")
        xCell.Value = RTrim(xDecoupe(0))
    Next xCell
    Application.ScreenUpdating = True
End Sub

Qu'en je pense que j'ai fait mon armée à Montluel (camp de la Valbonne) il y a maintenant 30 ans, ces villes me rappellent quelques choses
@+ Lolote83

 

[maval]

Re,

Excellent je te remercie

Bonne après midi

Max