Pb avec 'Controls'

[Eric D]

Bonsoir le forum

J'ai un soucis avec 'Controls':

Controls('TextBox' & Range('IU' & i).Value).BackColor = Range('B' & i).Interior.Color

A cette ligne j'ai une erreur; j'ai 'Controls' qui est surligné en bleu et un message au debogage me disant 'Sub' ou fonction non définie.
Avez vous une idée?
Merci pour votre aide.
Eric D

 

[Charly2]

Bonjour Eric D,

Si tu travailles dans un UserForm, essaie ainsi :

Me.Controls(...)

Tiens-nous au courant

A+ 😉

 

[Eric D]

Bonjour Charly2, le forum,

Merci pour ta réponse Charly2 mais mes Textbox sont sur une feuille, donc que faire?
Bonne journée.
Eric D

 

[MichelXld]

bonjour Eric , bonjour cher Charly

tu peux tester une synthaxe de ce type

Dim numIndex As Integer
numIndex = 1
Sheets('Feuil1').OLEObjects('Textbox' & numIndex).Object.BackColor = Range('B1').Interior.Color



bonne journée
MichelXld

 

[Charly2]

re bonjour Eric, bonjour mon ami Michel,

Je venais juste de trouver la syntaxe correcte pour les OLEObjects mais comme tu l'as déjà donnée, plus besoin de poster.

Quand je ne peux répondre directement à une question, j'aime bien effectuer des recherches directement dans l'aide d'XL, ça m'aide à mémoriser.

A+ 😉

 

[Eric D]

Bonsoir MichelXld, Charly2, le forum,

Merci pour vos reponses, je vais tester, sans grandes craintes. je vous remercie encore très sincèrement.
Bonne soirée et +
Eric D