rendre dynamique l'appel au nom d'un control dans un userform

[tophe90]

bonjour a tous.

cela fait quelques jours que j'arpente les forums comme une âme en peine a la recherche d'une chose bien particulière.

je cherche à rendre "dynamique" ( je devrais plutot dire modifiable ) l'accès au propriete de control ( dans mon cas des textbox ) au sein d'une fonction

en illustrant mon propos cela donne cela :

titre_nom1.Visible = True
titre_prenom1.Visible = True
titre_ne1.Visible = True
titre_sexe1.Visible = True
titre_parents1.Visible = True
titre_nom1.Enabled = True
titre_prenom1.Enabled = True
titre_ne1.Enabled = True
titre_sexe1.Enabled = True
titre_parents1.Enabled = True [...]

et je fais appel a 20boutons qui appellent 20 fonctions qui on pour seule différence le nom du control ( titre_nom1, titre_nom2, titre_nom3 )

intuitivement j'ai fais appel à un fonction du style

dim zolifonction ( i as integer ) ' i transfert donc mon numéro de controle
dim chaine as string
chaine = "titre_nom" & i

' et naivement j'ai fait

chaine.visible = true


End sub

vous comprendrez bien mon desaroi devant le joli message d'erreur

PS: bien entendu si je declare chaine as control ... cela ne marche pas mieux...

si quelqu'un aurait une piste je suis preneur

Bonne journée et merci d'avance.

Tophe

 

[joss56]

Re : rendre dynamique l'appel au nom d'un control dans un userform

Bonsoir,

Regarde le fichier joint pour un début de réponse peut-être
Bonne soirée.

 

[tophe90]

Re : rendre dynamique l'appel au nom d'un control dans un userform

nickel en effet!

par hasard j'ai trouve une solution presque identique dans un post fait ce jour même par une autre personne !!

merci du coup de main rapide !