Textbox en majuscule

DL_13

XLDnaute Occasionnel

• 13 Juin 2011

• #2

Re : Textbox en majuscule

Bonjour,

Peut-être comme cela la Validation de l'USF

Code:

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 14
    If i <> 3 And i <> 13 Then Controls("Textbox" & i) = UCase(Controls("Textbox" & i)) ' A modifier 3 et 13
Next i
End Sub

EDIT: Pas vu Nom Propre remplacer Ucase par Application.Proper

Bonne Journée

 

Pièces jointes

• apdf1 textbox.zip

  11 KB · Affichages: 33

Dernière édition: 13 Juin 2011

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 13 Juin 2011

• #3

Re : Textbox en majuscule

bonjour DL_13,

merci beaucoup mis ce code et d'avoir répondu. Et il pas possible avec le même USF de le mettre en direct sans passer par le command boutton ?

Merci encore et bonne journée

Max

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Juin 2011

• #4

Re : Textbox en majuscule

Bonjour le fil 🙂,
Une solution en passant par un module de classe 😛...
C'est la ligne

Code:

If TypeOf Ctl Is MSForms.TextBox And Ctl.Name <> "TextBox2" And Ctl.Name <> "TextBox5" Then

qui permet de ne pas traiter TextBox2 et TextBox5 par exemple 🙄...
Bon lundi 😎

 

Pièces jointes

• Module classe Proper.xls

  51 KB · Affichages: 45

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 13 Juin 2011

• #5

Re : Textbox en majuscule

Bonjour JNP

Je te remercie beaucoup sa me conviens trés biens.

Bonne journée @+

Max

 

Vote positif 0 Vote négatif