Pour mettre des Majuscules à certaines positions ;-)))
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
- Messages
- 843
- Excel
- 2007 FR
- Inscrit
- 17/12/2018
- Emploi
- Technicien maintenance robot Retraité
Bonsoir,
Cel.Value = WorksheetFunction.Proper(Tablo(0)) &Mid(Cel.Value, Len(Tablo(0)) + 1)
Comme vous le disiez j'avais compris qu'il fallait tout forcer en minuscule, il suffit alors de supprimer le LCase...
@ bientôt
LouReeD
Bonjour,
C'est parfait, comme d'hab.
Merci beaucoup :-))))))))))))))))))
Bonne journée :-)))
Bonsoir,
merci pour votre retour et remerciement ! Comme d'hab !
@ bientôt
LouReeD