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:

Vba majuscule première lettre
É majuscule - Guide
Mettre un texte en majuscule - Guide
Adobe premiere pro - Télécharger - Montage & Édition
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

4 réponses

Réponse 1 / 4

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
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

Touches majuscule et minuscule inversées sur mon clavier

[Excel] Majuscule sur la première lettre

Formule Excel pour afficher les mois (chiffres) en lettre

Masque diapositives : superposition image et forme

Discussions similaires

Newsletters