Discussion :

[SkyCorp]

Bonjour à tous,

Je cherche des contrôles sur différentes zones de mon formulaire (plus précisément l'entête et le pied).
Pour ça j'utilise une boucle For each.
Je sais le faire sur chaque zone séparément. Dans le cas de l'entête :

Code :

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

1
2
3
4
5
Dim ctrl As Control
Dim oForm As Form
For Each ctrl In oForm.Section(acHeader).Controls
...
Next

Par contre, je ne sais pas comment faire une seule boucle associant les 2 zones.

Merci d'avance à ceux qui m'aideront à trouver la solution

[ClaudeLELOUP]

Bonjour,

Par contre, je ne sais pas comment faire une seule boucle associant les 2 zones.

Je ne crois pas que cela soit possible.

Mais en quoi cela te gêne-t-il d'enchaîner les deux boucles

Code :

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

1
2
3
4
5
6
7
8
9
  Dim ctrl As Control
 
  For Each ctrl In Me.Section(acHeader).Controls
...
  Next 
 
  For Each ctrl In Me.Section(acFooter).Controls
...
  Next

[el_slapper]

(.../...)
Je ne crois pas que cela soit possible.
(../...)

C'est certainement possible en faisant une seule collection contenant les éléments des deux collections que tu énumères, mais est-ce pertinent? Je trouve ta solution bien plus simple. Si en plus à l'interieur du for each tu invoques une procédure(ou une fonction) qui est la même dans les deux, tu as factorisé ton code fonctionnel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  For Each ctrl In Me.Section(acHeader).Controls
    Call MonTraitement(ctrl)
  Next 
 
  For Each ctrl In Me.Section(acFooter).Controls
    Call MonTraitement(ctrl)
  Next
 
Sub MonTraitement(ctrl As Control)
  ...
End Sub

Alors qu'un immonde :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim maCollection as New Collection
Dim ctrl As Control
For Each ctrl In Me.Section(acHeader).Controls
  maCollection additem:= ctrl
Next
For Each ctrl In Me.Section(acFooter).Controls
  maCollection.Add Item:= ctrl
Next
 
 
For Each ctrl In maCollection
  ...
Next

certes répond plus précisément à la question posée, mais c'est vraiment se faire mal pour pas grand chose. Je préfère vraiment ta solution, dans ce cas précis.

[ClaudeLELOUP]

Chouette, ta signature !

[SkyCorp]

Merci à vous 2 pour vos réponses.
En effet, le 2ème code de el_slapper n'est pas très sympathique.
J'avais espéré quelque chose du style For Each ctrl In (oForm.Section(acHeader).Controls Or oForm.Section(acFooter).Controls)
Bon, ben je pars sur 2 boucles dans ce cas
Bonne soirée à vous