Macro Majuscule

[manuBX]

Bjr à tous
J ai copié cette petite macro qui met automatiquement une majuscule à la premiere lettre d un mot pour une cellule précise A1
Comment la modifier pour que cette fonction soit possible sur plusieurs cellule A1 et B4 et F9
J ai essayé [a1,b4,f9] il fait du copier/coller de cellule A1

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[a1] = WorksheetFunction.Proper([a1]) 'Ucase pour les majuscules,WorksheetFunction.Proper pour les noms propres ,lcase minuscule)
End Sub
MERCI D AVANCE😱

 

[kjin]

Re : Macro Majuscule

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,B4,F9")) Is Nothing Then Target = Application.Proper(Target)

End Sub

A+
kjin

 

[manuBX]

Re : Macro Majuscule

MERCI
J ai trouvé mon bonheur
A+