Fonction Eval de VBA
Zic0
-
Coun05 -
Coun05 -
Sous Access 97, j'ai un formulaire dans lequel se trouve des controles qui ont des nom du style NomTypeControl0, NomTypeControl1 , NomTypeControl2 ...
Je voudrais trouver un moyen de les parcourir dynamiquement avec un truc du genre :
For I
Eval("NomTypeControl" & I)
Comment faire ?
Je voudrais trouver un moyen de les parcourir dynamiquement avec un truc du genre :
For I
Eval("NomTypeControl" & I)
Comment faire ?
A voir également:
- Fonction Eval de VBA
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Fonction remplacer sur word - Guide
3 réponses
Bonjour,
Merci beaucoup MaisOui, tu as répondu à une question dont je cherchais depuis longtemps la reponse. J'ai cherché du coté de la fonction eval ou evaluate pour interpréter une chaine de caractères comme une instruction (sans succes pour mon cas : VBA pour CATIA V5).
Meme problème à la base, je voulais choisir une image parmis 10 images affichées dans ma userform.
Mes images s'appellent toutes "Img01", "Img02", ... Je cherchais donc quelque chose pour remplacer les :
MyUserform.MyPict.Picture = UserformListImages.Img01.Picture
MyUserform.MyPict.Picture = UserformListImages.Img02.Picture
...
solution donc :
MyVar="01"
MyUserform.MyPict.Picture = UserformListImages("Img" & MyVar).Picture
;)
Coun05
Merci beaucoup MaisOui, tu as répondu à une question dont je cherchais depuis longtemps la reponse. J'ai cherché du coté de la fonction eval ou evaluate pour interpréter une chaine de caractères comme une instruction (sans succes pour mon cas : VBA pour CATIA V5).
Meme problème à la base, je voulais choisir une image parmis 10 images affichées dans ma userform.
Mes images s'appellent toutes "Img01", "Img02", ... Je cherchais donc quelque chose pour remplacer les :
MyUserform.MyPict.Picture = UserformListImages.Img01.Picture
MyUserform.MyPict.Picture = UserformListImages.Img02.Picture
...
solution donc :
MyVar="01"
MyUserform.MyPict.Picture = UserformListImages("Img" & MyVar).Picture
;)
Coun05
