XL 2016 Gérer ensemble plusieurs contrôle d'un Userform

[R1-]

Bonjour,

J'ai un Userform dans lequel je dois gérer de nombreux contrôles comme ci-après :

Private Sub Bouton1_Click()

pos1 = 18 - Image1.Left

Image1.Left = Image1.Left + pos1
Image2.Left = Image2.Left + pos1
Image3.Left = Image3.Left + pos1
Image4.Left = Image4.Left + pos1
Image5.Left = Image5.Left + pos1
Image6.Left = Image6.Left + pos1
Image7.Left = Image8.Left + pos1
Image9.Left = Image9.Left + pos1
Image10.Left = Image10.Left + pos1
Image11.Left = Image11.Left + pos1
Image12.Left = Image12.Left + pos1
Image13.Left = Image13.Left + pos1

Label1.Left = Label1.Left + pos1
Label2.Left = Label2.Left + pos1
Label3.Left = Label3.Left + pos1
Label4.Left = Label4.Left + pos1
Label5.Left = Label5.Left + pos1
Label6.Left = Label6.Left + pos1
Label7.Left = Label7.Left + pos1
Label8.Left = Label8.Left + pos1
Label9.Left = Label9.Left + pos1



End Sub

C'est donc extrêmement long et répétitif, connaissez vous un moyen plus rapide ou plus optimiser pour gérer de telles situations.

 

[vgendron]

bonjour

avec un truc du genre

for i=1 to 13
  me.controls("Image" &i).left=me.controls("Image" &i).left+pos1
next i
for i=1 to 9
  me.controls("Label" &i).left=me.controls("Label" &i).left+pos1
next i

 

[ChTi160]

Bonjour R1-
En passant par une boucle!
Un truc du genre !

For i=1 to 9
With Contrôls("Image" &i)
        .Left = .Left+post1
End With
Next

Idem pour les Label!
Jean marie
Oupsss ,j'avais pas vu vgendron !

 

[R1-]

Merci beaucoup à vous deux, j'avais en fait un gros problème de syntaxe dans les boucles que j'essayais de créer. Encore merci et bonne journée.