Bonjour,
J'ai eu une aide précieuse dernièrement pour faire le code suivant mais j'aurais besoin, dans la colonne "L" de mettre sur le tout début de phrase une majuscule mais après que je puisse écrire en majuscules les mots que je souhaiterais :
par exemple : "Je m'appelle DURAND". Or tout est forcé en minuscules.
Merci d'avance :-)))))
Bonne soirée
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Cel As Range, Tablo
Application.ScreenUpdating = False
Set Plage = Range("A3:L143")
If Not Intersect(Plage, Target) Is Nothing Then 'rien modifier dans "plage" = quitter
Application.EnableEvents = False
For Each Cel In Plage
If Cel.Column = 1 Or Cel.Column = 5 Then 'colonne A ou E
Cel.Value = UCase(Cel.Value) 'tout en majuscules
Else
If Cel.Value <> "" Then
Tablo = Split(Cel.Value, " ")
Cel.Value = WorksheetFunction.Proper(Tablo(0)) & LCase(Mid(Cel.Value, Len(Tablo(0)) + 1))
End If
End If
Next
Application.EnableEvents = True
End If
End Sub