Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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:
Réactions: R1-
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
945
Réponses
7
Affichages
829
Réponses
2
Affichages
6 K
I
Réponses
1
Affichages
774
I
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…