Bonjour à tout le forum.
Ci-dessous code qui fonctionne pour les noms propres et les minuscules.
Pour les noms propres, j'ai un message d'erreur. Avez-vous la solution ?
Par avance merci de votre aide.
Bon week-end à tous.
Cordialement.
Private Sub Worksheet_Change(ByVal Target As Range)
Static X As Boolean
If Target.Count > 1 Then Exit Sub
If X = False Then
X = True
'majuscule
If Not Intersect(Target, Range("A2:A800,E2:E800,H2:H800,K2:K800,N2:N800,Q2:Q800,T2:T800,U2:U800")) Is Nothing Then Target.Value = UCase(Target.Value)
'minuscule
If Not Intersect(Target, Range("C2:C800,J2:J800,M2:M800,P2
800,S2:S800,V2:V800")) Is Nothing Then Target.Value = LCase(Target.Value)
'Nom propre
If Not Intersect(Target, Range("B2:B800")) Is Nothing Then Target.Value = ProperCase(Target.Value)
X = False
End If
End Sub