Textbox en majuscule

[apdf1]

Bonjour

Je suis à la recherche d'un code VBA pour mettre 14 textbox en Nom propre sauf deux.

Merci d'avance

Max

 

[DL_13]

Re : Textbox en majuscule

Bonjour,

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

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

 

[apdf1]

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

 

[JNP]

Re : Textbox en majuscule

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

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 😎

 

[apdf1]

Re : Textbox en majuscule

Bonjour JNP

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

Bonne journée @+

Max