Supprimer caractères

[maval]

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:

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]

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]

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]

Salut Lone-wolf

Tu as raison se sont les tirets entre les mots

Merci

 

[jeffe]

hello, en C5, par formule

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

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

 

[ChTi160]

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

  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]

Bonjour jean marie