Liste d'objets

[stt]

Bonsoir à tous,

j'ai une question toute simple, y a t il une variable qui contiendrait l"ensemble des objets (textbox,combobox,...) d'un Userform.
Sinon, comment la créer et cela afin de pouvoir balayer l'ensemble de mes objets dans une boucle unique.

A+

 

[Ti]

oui, c'est la collection Controls

pour la balayer tu fais :

dim Crl as Control

for each Ctrl in Me.controls
'ici tes actions
next Ctrl

 

[@Christophe@]

Bonsoir forum

Merci Ti

Si j'ai bien compris en supposons que dans un userform j'ai plusieur textbox et combobox et que je voudrais toute les mettre en .value = Null

Comment transformé ton code

Merci Ti

@Christophe@

 

[stt]

Merci pour l'info, par contre peut-on tester le type de control avant d'executer une action.

Merci d'avance

 

[Ti]

on ne peut pas effectuer les mêmes actions sur tous les controles. Il est possible de tester leur type et de réagir en conséquence, mais il est peut-être plus simple d'utiliser une propriété for pratique : la propriété .tag, qui est une zone de texte dans laquelle on met ce qu'on veut. Ainsi, dans la boucle ci-dessus, on teste la valeur du tag et on réagit en conséquence.

for each Ctrl in Me.controls
if Ctrl.Tag = "Combo" then Ctrl.Value = ""
next Ctrl

bien sûr, cette propriété Tag est à initialiser directement dans l'éditeur VBA.

 

[stt]

Merci pour ces infos.
Je vais essayer de les mettre en pratique.