XL 2016 Supprime caractères

maval · 1 Juillet 2019

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 · 1 Juillet 2019

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

VB:

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 · 1 Juillet 2019

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 · 1 Juillet 2019

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

VB:

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 · 1 Juillet 2019

Re,

Excellent je te remercie

Bonne après midi

Max

XL 2016 Supprime caractères

maval

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires