ucase pour 40 textbox et plus

Question

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

foo · Answer

Bonjour

il manque le = ses For i = 10 to 50

A+
Maurice

CLAVERELI · Answer

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.

ccm81 · Answer

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

Ucase pour 40 textbox et plus

3 réponses

Discussions similaires

Newsletters