utilisation UCASE sur plusieurs textbox via boucle

LNHDVFR

XLDnaute Nouveau
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
 

Hulk

XLDnaute Barbatruc
Re : utilisation UCASE sur plusieurs textbox via boucle

Hello,

Comme ceci...
Code:
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...
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof