Discussion :

[jmv33]

Bonjour à tous,

J'ai une fonction VBA qui fait un certain nombre d'opération sur un Control de formulaire.

J'appelle cette fonction en passant le nom du control en paramètre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call mafonction(forms!monform!moncontrol1)

... et j'ai la même fonction a appeler pour les 80 controls de mon formulaire (moncontrol1, moncontrol2 ...)

Au lieu de faire 80 copier-coller de l'appel de fonction en modifiant le nom du control, j'aurai souhaité faire une boucle de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i = 1 to 80 
    Call mafonction(forms!monform!moncontrol & i)
next i

Bien entendu, la concaténation ne fonctionne pas.

Si vous avez une idée...

Merci à tous

JM

[Invité]

Bonjour,
Si tu appels ta fonction à partir de ton formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 me.controls("moncontrol" & i)

Si non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms("MonForm").controls("moncontrol" & i)