maval
XLDnaute Barbatruc
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:
Et j’aimerai leurs supprimer les tirets - entre les mots
Je vous remercie beaucoup.
Max
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