Recherche syntaxe pour simplifier le code de mon formulaire ?

Le
Thierry
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry
Le #20290291
Ok, j'ai trouver,

With Ecran1
For f=1 to 12
.Controls("Frame" & f ).Left'6
Next f
End With



Cordialement,
Thierry

"Thierry"
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
Le #20290681
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" news:
Ok, j'ai trouver,

With Ecran1
For f=1 to 12
.Controls("Frame" & f ).Left'6
Next f
End With



Cordialement,
Thierry

"Thierry"
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








Publicité
Poster une réponse
Anonyme