Bonjour Pat1545, Jumps et le forum
Un grand merci pour vos conseils, ma proc semble tourner correctement.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Cells(1), Range('A1:T5000')) Is Nothing Then
Dim Macell
On Error Resume Next
If Target.Value = '' Then
Exit Sub
End If
Macell = Target.Column
Select Case Macell
Case 3
'Première lettre en majuscule
Target = UCase(Trim(Left((Target.Value), 1))) & LCase(Mid(Target.Value, 2))
Case 1, 2, 4, 10, 11, 18 To 20
Target = WorksheetFunction.Proper(Trim(Target.Value))
End Select
'Suppression des espaces en trop
Do Until InStr(1, Target, ' ') = 0
Target = WorksheetFunction.Substitute(Target.Value, ' ', ' ')
Loop
End If
End Sub
Le case 3 met tout en minuscule sauf la première lettre de la phrase.
L' autre passe en Nompropre une Maj sur Chaque mot
Qu'elle est la différence d'utilisation entre Target.Value et Traget.Texte ?
Bon WkEnd