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

R1-

XLDnaute Junior
Bonjour,

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

VB:
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.
 

ChTi160

XLDnaute Barbatruc
Bonjour R1-
En passant par une boucle!
Un truc du genre !
VB:
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 !
 
Dernière édition:

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG