Première lettre en majuscule sur plusieurs txtbox

Utilisateur anonyme -
Utilisateur anonyme - 1 déc. 2018 à 19:26

Bonjour à tous

J'aimerai mettre la première lettre sur 5 textbox(s), en majuscule ces txtbox sont sur un UserForm
et ils sont nommés comme suit (f-ent1 - f_ent2 - ...)

Merci d'avance
Cordialement

Afficher la suite

A voir également:

Excel majuscule première lettre
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Clavier iphone chiffre et lettre - Guide
Word et excel gratuit - Guide
É majuscule - Guide

4 réponses

Réponse 1 / 4

JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention 463

Bonjour
Un exemple de code

Private Sub f-ent1_Change()
Dim st As String
st = f-ent1.Text
f-ent1.Text = UCase(Mid(st, 1, 1)) & Mid$(st, 2, Len(st))
f-ent1.SelStart = Len(st)
End Sub

Réponse 2 / 4

Utilisateur anonyme

merci bien pour ta reponse JCB40
est ce qu'on peut faire boucle pour ces 5 txtbox ?

Réponse 3 / 4

JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention 463

Toutes les explications ici
https://forum.formuleexcel.com/t/exercice-n-3-partie-1-creation-userfom/3344

Utilisateur anonyme

Merci bien
je cherche s'il y a une méthode pour forcer la première lettre en
majuscule pour plusieurs txtbox a la fois.

JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention 463

Le code à coller dans chaque Textbox en modifiant le nom des Textbox

Private Sub TextBox2_Change()
'Écriture première lettre en Majuscule
TextBox2.Value = Application.Proper(TextBox2.Value)
End Sub

Utilisateur anonyme

merci JCB
C'est pas ça que je veux, imagine l'application du code ci dessus sur 40 txtbox.
Je souhaite faire une boucle sur les 5 premier textbox (un seul module)
pour avoir la première lettre dans chacun de ces textbox en majuscule

Réponse 4 / 4

JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention 463

Essaie cela à mettre dans un module

Private Sub TextBoxes_Change()
TextBoxes = UCase(TextBoxes)
End Sub

Utilisateur anonyme

sur mon useform il ya 34 textbox(s) (numerique, caractères spéciaux et texte)
donc je crois que je ne peux pas appliquer cette macro

Discussions similaires

Formule Excel pour afficher les mois (chiffres) en lettre

Votre réponse

Discussions similaires