Ucase pour 40 textbox et plus
Bonjour à tous
j'ai écrit la petite merveille ci-après pour saisir uniquement des majuscules dans une quarantaine de textbox et aussi pour alléger mon code:
"Private Sub Majuscules ()
"For i 10 to 50
"Controls ("TextBox" & i) = UCase(Controls("TextBox" & i))
"Next i
"End Sub
Cela à autant d'effet que de souffler dans un violon!!
Quelqu'un pourra me dire pourquoi?
Merci d'avance
j'ai écrit la petite merveille ci-après pour saisir uniquement des majuscules dans une quarantaine de textbox et aussi pour alléger mon code:
"Private Sub Majuscules ()
"For i 10 to 50
"Controls ("TextBox" & i) = UCase(Controls("TextBox" & i))
"Next i
"End Sub
Cela à autant d'effet que de souffler dans un violon!!
Quelqu'un pourra me dire pourquoi?
Merci d'avance
3 réponses
-
Bonjour
il manque le = ses For i = 10 to 50
A+
Maurice -
Re Bonjour et merci Maurice
Non il ne manque pas le "=" dans mon code d'origine.
C'est juste que j'ai oublié de le taper dans ma question.
Merci quand même. -
Bonjour
Essaies ceci
Dim k As Long For k = 1 To 3 With ActiveSheet.OLEObjects("textbox" & k).Object .Value = UCase(.Value) End With Next k
Cdlmnt
