Mettre en MAJ la 1ère lettre des mots de la cellule active

Bonjour Forum,

(à ma grande surprise, ce sujet ne semble pas avoir déjà été traité sur le Forum)

J’aimerais créer une macro qui mette une majuscule initiale à chaque mot d’une cellule.

Je sais le faire très facilement pour appliquer cette transformation dans une autre cellule, avec la fonction NOMPROPRE(), mais je ne sais pas comment faire pour obtenir le même effet dans la cellule active…

Quelqu'un saurait-il m'aider à faire ça, siouplé ?!

Merci.

Bonjour,

Après cela, tu vas certainement préciser ta demande.

Cdlt

With ActiveCell
    .Value = Application.Proper(ActiveCell.Value)
End With

Ça marche parfaitement → je ne vois rien à préciser dans ma demande !?

Merci beaucoup !!!

Pour les flemmards et les débutants en VBA, ça donne :

Sub Initiales_Majuscules()
With ActiveCell
    .Value = Application.Proper(ActiveCell.Value)
End With
End Sub

Version applicable à une plage de cellules :

Sub Initiales_Majuscules()

  For Each C In Selection
    If Not C.HasFormula Then
      C.Value = Application.Proper(C.Value)
    End If
  Next C
End Sub