remplacer dans module inscructions classiques par boucle for each ?

néné06 · 22 Juillet 2010

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 · 22 Juillet 2010

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

Dans ton code

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

Code:

   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 · 22 Juillet 2010

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

Bonjour Habitude
Merci pour ta réponse

le programme fonctionne à merveille
A+

remplacer dans module inscructions classiques par boucle for each ?

néné06

XLDnaute Accro

Habitude

XLDnaute Accro

néné06

XLDnaute Accro

Discussions similaires

remplacer dans module inscructions classiques par boucle for each ?

néné06

XLDnaute Accro

Habitude

XLDnaute Accro

néné06

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency