Discussion :

[maxval18]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
Avec la fonction Proper

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[maxval18]

Bonjour Philippe Tulliez,

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

@+
Max

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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