Ucase pour 40 textbox et plus

Fermé

CLAVERELI Messages postés 52 Date d'inscription lundi 8 octobre 2012 Statut Membre Dernière intervention 24 mai 2014 - 29 janv. 2014 à 17:11
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 29 janv. 2014 à 18:30

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

A voir également:

Ucase pour 40 textbox et plus
Chanson modifiée pour anniversaire 40 ans - Forum Musique / Radio / Clip
40 go internet équivalent en heure - Forum Réseaux sociaux
40 ans de ma fille - Forum Musique / Radio / Clip
Erreur 40 ff freebox - Forum Freebox
A combien d'heures correspond un 40% de 35h ✓ - Forum Bureautique

3 réponses

Réponse 1 / 3

foo
29 janv. 2014 à 17:46

Bonjour

il manque le = ses For i = 10 to 50

A+
Maurice

Réponse 2 / 3

CLAVERELI
29 janv. 2014 à 18:17

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.

Réponse 3 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
Modifié par ccm81 le 29/01/2014 à 18:30

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

Discussions similaires

anniversaire pour les 40 ans d'une amie

[VBA] format de date dans textbox

Quel est l'équivalent 40 GO d'internet en heures ?

Info Free: Votre encours sur le service internet est supérieur à

Info Free: Votre encours sur le service internet est supérieur à 10 €.