Majuscules

bonjour GILLES25

tu mets tout simplement

Application.Proper(ucase(Me!nom))

EUUUUUUH oui mais où ???????????????
Expliquer moi simplement SVP
Merci, Gilles

Désolé cher BERTRAND mais ça ne marche pas !!!!
j'ai juste remplacer en copier coller et ben c'est kifkif crotte alors.
voici la procédure du bouton valider :
Private Sub b_validation_Click()
If Me.nom = '' Then
MsgBox 'Saisir un nom!'
Me.nom.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('A11') Then
Range('A11').Select
ActiveCell.Value = 1
Else
Range('a10').End(xlDown).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
'--- Transfert
ActiveCell.Offset(0, 1).Value = b_code_oper
ActiveCell.Offset(0, 2).Value = Date
ActiveCell.Offset(0, 3).Value = Application.Proper(UCase(Me!nom))
ActiveCell.Offset(0, 4).Value = Me.B_option
'--
nettoie
Me.nom.SetFocus
End Sub

Désolé cher BERTRAND mais ça ne marche pas !!!!
j'ai juste remplacer en copier coller et ben c'est kifkif crotte alors.
voici la procédure du bouton valider :
Private Sub b_validation_Click()
If Me.nom = '' Then
MsgBox 'Saisir un nom!'
Me.nom.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
If IsEmpty('A11') Then
Range('A11').Select
ActiveCell.Value = 1
Else
Range('a10').End(xlDown).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
'--- Transfert
ActiveCell.Offset(0, 1).Value = b_code_oper
ActiveCell.Offset(0, 2).Value = Date
ActiveCell.Offset(0, 3).Value = Application.Proper(UCase(Me!nom))
ActiveCell.Offset(0, 4).Value = Me.B_option
'--
nettoie
Me.nom.SetFocus
End Sub