Appliquer fonction nom propre en VBA

Bonjour

Je désirerais lorsque je saisi des noms propres qu'avec des minuscules ceux-ci s'affichent avec la 1ere lettre en majuscule, j'ai bien développé une fonction en vba mais celle-ci ne fonctionne pas (dans la feuille "BdD") alors qu'elle fonctionne dans la feuille "Recherche". Je me doute qu'il doit y avoir un souci au niveau de la boucle. Merci.

Salut PapouMac,

effectivement, plusieurs problèmes, même!

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim DernierLigne As Long
Dim nom As String
'
Application.EnableEvents = False
'
DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DerniereLigne
      nom = Range("B" & i).Value
      Range("B" & i).Value = Application.Proper(nom)
Next i
Range("B2").Select
'
Application.EnableEvents = True
'
End Sub

Je te laisse décortiquer?

A+

Je te remercie, c'est exactement ce que je recherchais, et effectivement il ne reste encore des progrès à faire. Encore merci pour ta promptitude et tes compétences.

Re PapouMac,

pas vraiment besoin d'une boucle, d'ailleurs.

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
iCol = Target.Column
iRow = Target.Row
'
If iCol = 2 Or iCol = 3 Then
    Cells(iRow, iCol) = Application.Proper(Cells(iRow, iCol))
End If
'
Application.EnableEvents = True
'
End Sub

Merci pour cette fonction que je ne connaissais pas! Très pratique!

A+

Excellent, c'est encore mieux comme ça, cela permet de mettre en "Nom Propre" aussi bien le nom que le prénom. Chapeau pour tes compétences. Merci.