L
LNHDVFR
Guest
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
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