utilisation UCASE sur plusieurs textbox via boucle

[LNHDVFR]

Bonjour,
Je cherche à mettre plusieurs textbox en majuscule sans ecrire à chque fois textbox1, textbox2 ect....
Je trouve des solutions sur le Forum pour 1 seule textbox mais pas sur 18...
J'ai donc essayé une boucle :

Private Sub majuscule()
Dim i As Integer

For i = 1 To 18

Me.Controls("TextBox" & i).Text = UCase("TextBox" & i).Text

ou :

Me.Controls("TextBox" & i) = UCase("TextBox" & i)
Next i


End Sub

Mais ça ne fonctionne pas...quelqu'un saurait corriger mon code ?
Merci par avance

 

[Dranreb]

Re : utilisation UCASE sur plusieurs textbox via boucle

Bonjour.

With Me.Controls("TextBox" & i): .Text = UCase(.Text): End With

Salut Hulk

 

[Hulk]

Re : utilisation UCASE sur plusieurs textbox via boucle

Hello,

Comme ceci...

Me.Controls("TextBox" & i).Text = UCase(Me.Controls("TextBox" & i))

Fallait aussi mettre le Me.Controls() dans le Ucase() et enlever le .Text à la fin.

Oups Slt Dranreb...

 

[LNHDVFR]

Re : utilisation UCASE sur plusieurs textbox via boucle

ça fonctionne !!!

Merci à tous les 2 pour la réponse 🙂