remplacer dans module inscructions classiques par boucle for each ?

[néné06]

Bonjour le forum

j'aimerais ,si cela est possible, remplacer les lignes d'instructions du module 1 par une boucle For....Each afin de centrer sur l'écran mes controles.


Merci pour votre aide.

 

[Habitude]

Re : remplacer dans module inscructions classiques par boucle for each ?

Dans ton code

   Dim ctl As MSForms.Control
         For Each ctl In Me.Controls
                 ctl.Left = (Application.Width - ctl.Width) / 2
         Next

Me étant le module
Ca ne marchera pas.

essaie ceci
Met USF à la place

   Dim ctl As MSForms.Control
         For Each ctl In [COLOR="Red"]USF[/COLOR].Controls
                 ctl.Left = (Application.Width - ctl.Width) / 2
         Next

 

[néné06]

Re : remplacer dans module inscructions classiques par boucle for each ?

Bonjour Habitude
Merci pour ta réponse

le programme fonctionne à merveille
A+