For f=1 to 12 .Controls("Frame" & f ).Left'6 Next f End With
Cordialement, Thierry
"Thierry" a écrit dans le message de news:
Bonsoir, pour positionner des Frames ds un formulaire, j'utilise le code suivant:
With Ecran1 .Frame1.Left'6 .Frame2.Left'6 .Frame3.Left'6 .Frame4.Left'6 etc ... End With
Comment simplifier ce code? Du style..
With Ecran1 For f=1 to 12 .Frame(f)'6 Next f End With
Cordialement, Thierry
Philippe.R
Merci du retour Ca peut servir -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/web/mpfe News://news.microsoft.com/microsoft.public.fr.excel "Thierry" a écrit dans le message de news:
Ok, j'ai trouver,
With Ecran1
For f=1 to 12 .Controls("Frame" & f ).Left'6 Next f End With
Cordialement, Thierry
"Thierry" a écrit dans le message de news:
Bonsoir, pour positionner des Frames ds un formulaire, j'utilise le code suivant:
With Ecran1 .Frame1.Left'6 .Frame2.Left'6 .Frame3.Left'6 .Frame4.Left'6 etc ... End With
Comment simplifier ce code? Du style..
With Ecran1 For f=1 to 12 .Frame(f)'6 Next f End With
Cordialement, Thierry
Merci du retour
Ca peut servir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Thierry" <admin.tr@free.fr> a écrit dans le message de
news:O5V95KTRKHA.4020@TK2MSFTNGP05.phx.gbl...
Ok, j'ai trouver,
With Ecran1
For f=1 to 12
.Controls("Frame" & f ).Left'6
Next f
End With
Cordialement,
Thierry
"Thierry" <admin.tr@free.fr> a écrit dans le message de news:
eOgDD1SRKHA.352@TK2MSFTNGP02.phx.gbl...
Bonsoir,
pour positionner des Frames ds un formulaire, j'utilise le code suivant:
With Ecran1
.Frame1.Left'6
.Frame2.Left'6
.Frame3.Left'6
.Frame4.Left'6
etc ...
End With
Comment simplifier ce code?
Du style..
With Ecran1
For f=1 to 12
.Frame(f)'6
Next f
End With
Merci du retour Ca peut servir -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/web/mpfe News://news.microsoft.com/microsoft.public.fr.excel "Thierry" a écrit dans le message de news:
Ok, j'ai trouver,
With Ecran1
For f=1 to 12 .Controls("Frame" & f ).Left'6 Next f End With
Cordialement, Thierry
"Thierry" a écrit dans le message de news:
Bonsoir, pour positionner des Frames ds un formulaire, j'utilise le code suivant:
With Ecran1 .Frame1.Left'6 .Frame2.Left'6 .Frame3.Left'6 .Frame4.Left'6 etc ... End With
Comment simplifier ce code? Du style..
With Ecran1 For f=1 to 12 .Frame(f)'6 Next f End With