Bonjour, voici ma Question j'ai dans la collonne A3 à A56 et F3 à F52 Nom
famille et prénom toute en majuscule, j'aimerais avoir juste la première
lettre en majuscule et le reste en minuscule, je connais la formule
=nompropre(A.) mais je peut pas écrire la formule et le nom dans la même
cellule. Y a t'il une solution sans VBA pour corriger toute les noms.
Merci de votre aide.
Qque chose comme ça : =NOMPROPRE(GAUCHE(A1;TROUVE(" ";A1)))&STXT(MINUSCULE(A1);TROUVE(" ";A1)+1;9^9)
PS : Ce type d'extraction/modification ne peut recouvrir tous les cas des figures... AV
michdenis
Bonjour Aiwa,
Tu n'as qu'à modifier le nom de la feuille dans la procédure !
'----------------------------------- Sub NomPropre()
Dim rg As Range
With Worksheets("fEUIL1") Set rg = Union(.Range("A3:A56"), .Range("F3:F52")) End With If Not rg Is Nothing Then For Each C In rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1) <> "+" Then Application.EnableEvents = False 'Pour avoir lettre majuscule à chaque mot C.Value = Application.WorksheetFunction.Proper(C) 'pour avoir seulement premiere lettre en majuscule 'C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1)) End If Application.EnableEvents = True End If Next End If Set rg = Nothing End Sub '-----------------------------------
Salutations!
"Aiwa" a écrit dans le message de news:
Bonjour, voici ma Question j'ai dans la collonne A3 à A56 et F3 à F52 Nom famille et prénom toute en majuscule, j'aimerais avoir juste la première lettre en majuscule et le reste en minuscule, je connais la formule =nompropre(A.) mais je peut pas écrire la formule et le nom dans la même cellule. Y a t'il une solution sans VBA pour corriger toute les noms. Merci de votre aide.
Bonjour Aiwa,
Tu n'as qu'à modifier le nom de la feuille dans la procédure !
'-----------------------------------
Sub NomPropre()
Dim rg As Range
With Worksheets("fEUIL1")
Set rg = Union(.Range("A3:A56"), .Range("F3:F52"))
End With
If Not rg Is Nothing Then
For Each C In rg
If Not IsNumeric(C) Then
If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1) <> "+" Then
Application.EnableEvents = False
'Pour avoir lettre majuscule à chaque mot
C.Value = Application.WorksheetFunction.Proper(C)
'pour avoir seulement premiere lettre en majuscule
'C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1))
End If
Application.EnableEvents = True
End If
Next
End If
Set rg = Nothing
End Sub
'-----------------------------------
Salutations!
"Aiwa" <Aiwa@discussions.microsoft.com> a écrit dans le message de news:
94E91918-50D6-4A6F-8174-8D0B4591FEAE@microsoft.com...
Bonjour, voici ma Question j'ai dans la collonne A3 à A56 et F3 à F52 Nom
famille et prénom toute en majuscule, j'aimerais avoir juste la première
lettre en majuscule et le reste en minuscule, je connais la formule
=nompropre(A.) mais je peut pas écrire la formule et le nom dans la même
cellule. Y a t'il une solution sans VBA pour corriger toute les noms.
Merci de votre aide.
Tu n'as qu'à modifier le nom de la feuille dans la procédure !
'----------------------------------- Sub NomPropre()
Dim rg As Range
With Worksheets("fEUIL1") Set rg = Union(.Range("A3:A56"), .Range("F3:F52")) End With If Not rg Is Nothing Then For Each C In rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1) <> "+" Then Application.EnableEvents = False 'Pour avoir lettre majuscule à chaque mot C.Value = Application.WorksheetFunction.Proper(C) 'pour avoir seulement premiere lettre en majuscule 'C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1)) End If Application.EnableEvents = True End If Next End If Set rg = Nothing End Sub '-----------------------------------
Salutations!
"Aiwa" a écrit dans le message de news:
Bonjour, voici ma Question j'ai dans la collonne A3 à A56 et F3 à F52 Nom famille et prénom toute en majuscule, j'aimerais avoir juste la première lettre en majuscule et le reste en minuscule, je connais la formule =nompropre(A.) mais je peut pas écrire la formule et le nom dans la même cellule. Y a t'il une solution sans VBA pour corriger toute les noms. Merci de votre aide.
Aiwa
Bonjour AV, j'aimerais savoir ou je copie la formule, merci
Qque chose comme ça : =NOMPROPRE(GAUCHE(A1;TROUVE(" ";A1)))&STXT(MINUSCULE(A1);TROUVE(" ";A1)+1;9^9)
PS : Ce type d'extraction/modification ne peut recouvrir tous les cas des figures... AV
Bonjour AV, j'aimerais savoir ou je copie la formule, merci
Qque chose comme ça :
=NOMPROPRE(GAUCHE(A1;TROUVE(" ";A1)))&STXT(MINUSCULE(A1);TROUVE(" ";A1)+1;9^9)
PS : Ce type d'extraction/modification ne peut recouvrir tous les cas des
figures...
AV
