1ère lettre en majuscule dans plusieurs txtbox

Bonjour

voila le minimum pour ta routine

et merci a dhany

Private Sub f_ent1_Change()
    Test 1
End Sub

Private Sub f_ent2_Change()
    Test 2
End Sub

Private Sub Test(T1)
  Dim T$
  T = Controls("f_ent" & T1)
  If Left$(T, 1) = " " Then T = Mid$(T, 2)
  Controls("f_ent" & T1) = UCase$(Left$(T, 1)) & Mid$(T, 2)
End Sub

A+

Maurice

Merci bien archer

Je vais tester.