Supprimer caractères

maval · 28 Mars 2018

Bonjour

J'ai sur feuille une liste de nom en colonne"A" du style
AUBIGNY-EN-PLAINE"
AUBIGNY-LA-RONCE"
AUVILLARS-SUR-SAONE"

J'ai un code pour les rendre en nom propre qui fonctionne très bien:

Code:

Sub MajMin()
Dim Lg%, I%
Lg = Range("A65536").End(xlUp).Row
If Mmi = False Then
    For I = 5 To Lg
        Cells(I, 1) = UCase(Cells(I, 1)) 'majuscule
    Next I
    Mmi = True
Else
    For I = 5 To Lg
        'Cells(i, 1) = LCase(Cells(i, 1)) 'minuscule
        Cells(I, 1) = Application.Proper(Cells(I, 1)) 'Nom propre
    Next I
    Mmi = False
End If
End Sub

Et j’aimerai leurs supprimer les tirets - entre les mots

Je vous remercie beaucoup.

Max

Chris24 · 28 Mars 2018

Bonjour

Ta question n'est pas la même dans ton message et ton fichier

Une solution pour supprimer le caractère underscore

Lone-wolf · 28 Mars 2018

Bonjour Max, le Forum

C'est les tirets bas(décrits sur la feuille) ou les tirets entre les mots??

Cells(I, 1) = Replace(Cells(I, 1), "-", " ") ou Cells(I, 1) = Replace(Cells(I, 1), "_", "")

EDIT: bonjour chris

maval · 28 Mars 2018

Salut Lone-wolf

Tu as raison se sont les tirets entre les mots

Merci

jeffe · 28 Mars 2018

hello, en C5, par formule

Code:

=SUBSTITUE(A5;"_";" ")

Ps entre les 2 derniers guillemets, mets un espace , dans ton exempleple, c'est des - du 6

ChTi160 · 28 Mars 2018

Bonjour Max
Bonjour le Fil ,le Forum
peut être une piste lol

VB:

  Cells(I, 1) = UCase(Replace(Cells(I, 1), "-", " "))

Edit : Oupss pas vu les réponses avec ce nouvel affichage!!!!!
bonne journée
Amicalement
jean marie

Lone-wolf · 28 Mars 2018

Bonjour jean marie

Supprimer caractères

maval

XLDnaute Barbatruc

Pièces jointes

Chris24

XLDnaute Impliqué

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

jeffe

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires