Première lettre en majuscule sur plusieurs txtbox

Fermé

Utilisateur anonyme - 1 déc. 2018 à 14:23
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

A voir également:

Excel majuscule première lettre
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Si et excel - Guide
É majuscule - Guide
Aller à la ligne excel - Guide

4 réponses

Réponse 1 / 4

JCB40 Messages postés 2961 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 17 décembre 2024 464
1 déc. 2018 à 14:32

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
1 déc. 2018 à 14:54

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 2961 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 17 décembre 2024 464
1 déc. 2018 à 15:27

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

Utilisateur anonyme
1 déc. 2018 à 15:52

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 2961 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 17 décembre 2024 464
1 déc. 2018 à 16:03

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
1 déc. 2018 à 18:52

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 2961 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 17 décembre 2024 464
1 déc. 2018 à 19:01

Essaie cela à mettre dans un module

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

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

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

Masque diapositives : superposition image et forme