Premieère lettre de chaque mot en Majuscule !

P

Pascal76

Guest

• 19 Décembre 2003

• #2

Salut creepy

La fonction NOMPROPRE fait cela

Bon courage

Pascal

 

Vote positif 0 Vote négatif

C

Creepy

Guest

• 19 Décembre 2003

• #3

Merci Beaucoup !

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 19 Décembre 2003

• #4

Salut Creepy !

Macro trouvée je ne sais plus où !

Passer la première lettre en majuscule

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Target = UCase(Left$(Target, 1)) & Mid$(Target, 2)
Application.EnableEvents = True
End Sub



@ +

Moa

 

Vote positif 0 Vote négatif

S

serge

Guest

• 19 Décembre 2003

• #5

trouvé parmi les trésors du disciple...

Sub MajDebMot()
For Each cell In Selection

cell.Value = Application.WorksheetFunction.Proper(cell.Value)
Next cell
End Sub

bonne fin de journée à tous

 

Vote positif 0 Vote négatif