Modifier code

Bonjour,

J'ai code pour le texte en nom propre qui fonctionne très bien, j'aimerai lui apporter une modification

mon code:

Sub Min()

Dim Lg%, i%

Lg = Range("J65536").End(xlUp).Row

If Mmis = False Then

For i = 1 To Lg

'Cells(i, 1) = LCase(Cells(i, 1)) 'minuscule

Cells(i, 10) = Application.Proper(Cells(i, 10)) 'Nom propre

Next i

Mmis = False

End If

End Sub

Je voudrais qui supprime "tirets et tiret-bas"

Je vous remercie d'avance

Max

Bonjour,

Merci de joindre un petit fichier pour illustrer tes propos.

Cdlt.

Bonjour,

Avec Replace() :

Cells(i, 10).Value = Application.Proper(Cells(i, 10)) 'Nom propre
Cells(i, 10).Value = Replace(Cells(i, 10).Value, "-", "")
Cells(i, 10).Value = Replace(Cells(i, 10).Value, "_", "")

Bonjour Max,

je te propose ce code VBA :

Option Explicit

Sub NomPropre()
  Dim chn$, Lg&, i&
  Lg = Cells(Rows.Count, 10).End(xlUp).Row
  For i = 1 To Lg
    chn = Replace$(Replace$(Cells(i, 10), "-", ""), "_", "")
    Cells(i, 10) = Application.Proper(chn) 'Nom propre
  Next i
End Sub

dhany

Est je n'ai plus de tiret bas sur la colonne "A"

ta demande est pourtant :

Je voudrais qui supprime "tirets et tiret-bas"

???

Re,

Oui je n'ai plus de tiret bas sur la colonne"b" mais avec mon code pour la colonne "a" fourni dans mon fichier joint il faut que les mot composé ont un tiret bas.

max