Saisie transformée en nom propre

[aubelix]

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

 

[Cousinhub]

Re : Saisie transformée en nom propre

Bonjour,
la fonction pour le nom propre est Application.Proper

Target.Value = Application.Proper(Target.Value)

Edit : salut dudu, Dull

 

[dudu29]

Re : Saisie transformée en nom propre

Salut,

j'ai essaye l'instruction propercase et sur excel 97 ca ne fonctionne pas.
alors je ne sais pas sur quelle version tu travailles mais c'est peut etre la cause.
Voila un equivalent plus long forcemment..

ucase(left(selection,1)) & mid(selection,2,len(selection)-1)

Voila @+
Dudu

 

[Dull]

Re : Saisie transformée en nom propre

salut Aubélix, le Forum

A la place de

If Not Intersect(Target, Range("B2:B800")) Is Nothing Then Target.Value = [B]ProperCase[/B](Target.Value)

essaye

If Not Intersect(Target, Range("B2:B800")) Is Nothing Then Target.Value = [B]Application.Proper[/B](Target.Value)

Bonne journée

EDITION: Salut bhbh, dudu, Désolépourlacollision

 

[dudu29]

Re : Saisie transformée en nom propre

Re,
nos messages se sont croisés,bhbh...ta solution est plus simple.

 

[aubelix]

Re : Saisie transformée en nom propre (résolu)

Merci à tous pour vos réponses.

Le problème est résolu avec "Application.Proper"

Bon week-end à tous.
Cordialement