OVH Cloud OVH Cloud

nom propre ou majuscule

1 réponse
Avatar
michel
bonjour a toute et tous
j'ai ce genre de code qui me permet d'encoder un nouv client
Private Sub CommandButton1_Click()
ActiveCell.Offset(1, 0).Range("a1").Select
ActiveCell.Value = Client.nom
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = Client.pren
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = Client.ad

etc etc est il possible que la cellule du nom et celle du prenom soit au
format nom propre ou au moins la premiere lettre en majuscu

merci

1 réponse

Avatar
isabelle
bonjour Michel,

essaie comme ça,

ActiveCell.Offset(1, 0) = Application.Proper(Client.nom)
ActiveCell.Offset(1, 1) = Application.Proper(Client.pren)
ActiveCell.Offset(1, 2) = Application.Proper(Client.ad)

isabelle


bonjour a toute et tous
j'ai ce genre de code qui me permet d'encoder un nouv client
Private Sub CommandButton1_Click()
ActiveCell.Offset(1, 0).Range("a1").Select
ActiveCell.Value = Client.nom
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = Client.pren
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = Client.ad

etc etc est il possible que la cellule du nom et celle du prenom soit au
format nom propre ou au moins la premiere lettre en majuscu

merci