VBA optimisation code (basic)

Hello,

Voilà, je débute en VBA (depuis quelques semaines), et j'ai donc pas forcément les bons réflexes.. je lis pas mal de tuto, mais il y a beaucoup d'infos et je ne sais pas trop ou chercher, et quoi chercher pour trouver mon besoin.

Voici un code que j'utilise.

Code:

---

1 2 3

sub verouiller() Me![sousform1].Form![champs_1].Locked = True end sub

---

Et je souhaiterai appliquer ce code à plusieurs champs, et formulaires:

Code:

---

1 2 3 4 5

sub verouiller() Me![sousform1].Form![champs_1].Locked = True Me![sousform1].Form![champs_2].Locked = True Me![sousform2].Form![champs_1].Locked = True end sub

---

Je me dis qu'il y a probablement moyen d'optimiser cela en déclarant des variables?

MErci d'avance.

Bonjour.

Une façon de faire cela :

Code:

---

1 2 3 4 5 6

dim tNomControl as variant:tNomControl=array("Champ1", "Champ2", "Champ3") 'crée un tableau de noms de contrôle   dim iNomControl as long:for iNomControl=lbound(tNomControl) to ubound(tNomControl) 'Pour tous les contrôles du tableau Me![sousform1].Form.controls(tNomControl(iNomControl)).Locked = True 'Verrouille le contrôle next iNomControl

---

Comme tu peux le voir, avec seulement 3 contrôles ce n'est pas vraiment une simplification.
Cela devient vraiment rentable si tu as beaucoup de contrôles ou tu prévois d'en avoir beaucoup, ou si ta liste de contrôles est variable.