Nom propre en VBA

Bonjour et bonne année à tous

J'ai un code pour qui fonctionne très bien pour mettre deux prénoms dans une cellule séparer de "&"
ex: pierre & paul le "&" entre les deux prénoms.
J'aimerai que les prénoms sont en nom propre
ex: Pierre & Paul.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Range, t As String Set r = Intersect(Target, [A:A], Me.UsedRange) If r Is Nothing Then Exit Sub Application.EnableEvents = False For Each r In r 'en cas d'entrées multiples t = Application.Trim(Replace(r.Text, "&", "")) 'SUPPRESPACE r = Replace(t, " ", " & ") Next Application.EnableEvents = True End Sub

---

Je vous remercie d'avance de votre aide.

Cordialement

Max

Bonjour,
Avec la fonction Proper

Code:

---

MsgBox Application.WorksheetFunction.Proper("Pierre" & " " & "Paul")

---

Bonjour Philippe Tulliez,

Je que je cherche c'est de mettre dans le code la fonction Proper et je ne c'est pas ?

@+
Max

Bonjour,

Serait-il possible que tu exprimes correctement ce que tu souhaites avoir parce-que pour ma part, je ne comprends pas.
Voici un autre exemple

Code:

---

1 2 3 4 5 6 7

Sub ManipulationChaine() Dim Nom1 As String, Nom2 As String Dim T As String Nom1 = "pieRre": Nom2 = "pAuL" T = Application.WorksheetFunction.Proper(Nom1 & " & " & Nom2) MsgBox T End Sub

---