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 majuscule
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Michel,
Tu peux utiliser ceci :
Cette fonction met en majuscule la première lettre de chaque mot
ActiveCell.Value = application.proper(Client.nom)
Salutations!
"michel" a écrit dans le message de news:40af97dd$0$9750$ 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 majuscule
merci
michel
Bonjour Michel,
Tu peux utiliser ceci :
Cette fonction met en majuscule la première lettre de chaque mot
ActiveCell.Value = application.proper(Client.nom)
Salutations!
"michel" <angopasca@synet.be> a écrit dans le message de news:40af97dd$0$9750$a0ced6e1@news.skynet.be...
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 majuscule
Cette fonction met en majuscule la première lettre de chaque mot
ActiveCell.Value = application.proper(Client.nom)
Salutations!
"michel" a écrit dans le message de news:40af97dd$0$9750$ 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 majuscule