Première lettre en majuscule sur plusieurs txtbox

Utilisateur anonyme -  
 Utilisateur anonyme -
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

4 réponses

  1.
    JCB40 Messages postés 3069 Date d'inscription   Statut Membre Dernière intervention   479
     
    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
    0
  2. Utilisateur anonyme
     
    merci bien pour ta reponse JCB40
    est ce qu'on peut faire boucle pour ces 5 txtbox ?
    0
  3. JCB40 Messages postés 3069 Date d'inscription   Statut Membre Dernière intervention   479
     
    Toutes les explications ici
    https://forum.formuleexcel.com/t/exercice-n-3-partie-1-creation-userfom/3344
    0
    1. 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.
      0
    2. JCB40 Messages postés 3069 Date d'inscription   Statut Membre Dernière intervention   479
       
      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
      0
    3. 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
      0
  4. JCB40 Messages postés 3069 Date d'inscription   Statut Membre Dernière intervention   479
     
    Essaie cela à mettre dans un module

    Private Sub TextBoxes_Change()
    TextBoxes = UCase(TextBoxes)
    End Sub
    0
    1. 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
      0

Discussions similaires

tout en majuscules (excel)
txiki -
Avatar -

35 réponses
Excel - Transformer minuscule en majuscule
Robocopp -
christophe -

16 réponses
Comment fait-on des majuscules accentuées dans Excel?
rakatamouche -
rakatamouche -

10 réponses
E majuscules avec un accent aigu ou grave
Nono -
Pierr10 -

6 réponses
mettre en majuscule automatiquement une saisie excel
afarni -
cs_Le Pivert -

8 réponses