Discussion :

[zkunk]

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 :

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

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 :

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

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.

[marot_r]

Bonjour.

Une façon de faire cela :

Code :

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

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.