Forcer la casse en VBA

Bonjour le forum,

Ce code met le nom en majuscules et le prénom en minuscule dans les 2 cellules de saisie.

Pourriez vous le modifier pour avoir la première lettre du prénom seulement en Majuscule et le reste en minuscules.

Merci d'avance

PS je ne souhaite pas utiliser la fonction NOMPROPRE qui fait ça très bien mais je veux que ce soit dans la cellule de saisie que se fait le changement et pas dans une autre cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim PlageNoms As Range

Dim PlagePrenoms As Range

Dim cell As Range

Set PlageNoms = Range("lstNoms")

Set PlagePrenoms = Range("lstPrenoms")

For Each cell In PlageNoms

cell = UCase(cell)

Next

For Each cell In PlagePrenoms

cell = LCase(cell)

Next

End Sub

Bonsoir,

Une proposition à tester, pour le prénom :

cell = UCase(Left(cell, 1)) & LCase(Right(cell, Len(cell) - 1))

Bien sûr, ça ne marchera pas pour Jean-paul.

Bonne soirée

Bouben

Bonjour,

une manière (vite fait)

Sub propre()

Dim Lon, L1, Prop

For Each c In Range("H1:H22")

Lon = Len(c)

L1 = UCase(Left(c, 1))

Prop = L1 & LCase(Mid(c, 2, Lon - 1))

c.Value = Prop

Next

End Sub

P.

Merci

Ca fonctionne mais je dois passer outre un message d erreur d'execution "5" Argument ou appel de procédure incorrect ??!!

En effet ca ne marche pas pour un prénom double du genre jean paul ou jean marie.

Mon fichier est formaté sous forme de tableau pour info au cas ou ca aurait une incidence.

Avez vous une idée?

Bonjour

Une autre façon de faire

A tester avec des prénoms composés

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim PlageNoms As Range
Dim PlagePrenoms As Range
Dim cell As Range

  Set PlageNoms = Range("lstNoms")
  Set PlagePrenoms = Range("lstPrenoms")

  For Each cell In PlageNoms
    cell = UCase(cell)
  Next

  For Each cell In PlagePrenoms
    'cell = LCase(cell)
    cell = Application.Proper(cell)
  Next

End Sub

du grand art !!!!!

MERCI tout fonctionne parfaitement avec en plus le prénom double Jean Paul (2 majuscules).