XL 2016 Renommer Bouton commande sur Userform

KTM · 28 Février 2020

Bonjour chers tous
J'ai 50 boutons commande sur mon userform b1;b2;b3.............b50
Je voudrais leur attribuer leurs "Caption" selon les noms indiqués dans ma feuille "Sites"
j'ai l'intention de procéder comme suit:

Private Sub UserForm_Initialize()

b1.Caption = Sheets("Sites").Range("B3").Value
b2.Caption = Sheets("Sites").Range("B4").Value
b3.Caption = Sheets("Sites").Range("B5").Value
....
....
b50.caption=Sheets("Sites").Range("B52").Value
end sub

Ce qui sera long et fastidieux. Pouvez vous m'aider à abréger mes souffrances !!!! Merci

Dranreb · 28 Février 2020

Bonjour.

VB:

Private Sub UserForm_Initialize()
   Dim TCapts(), L As Long
   TCapts = Sheets("Sites").[B3].Resize(50).Value
   For L = 1 To 50
      Me("b" & L).Caption = TCapts(L, 1)
      Next L
   End Sub

Remarque: j'aurais certainement conçu l'UserForm différemment, de façon à ne pas avoir 50 boutons !
Par exemple avec une ListBox en mettant LBxSites.List = Sheets("Sites").[B3].Resize(50).Value et une Sub LBxSites_Click pour traiter la sélection.

KTM · 28 Février 2020

Dranreb à dit:
Bonjour.

VB:

Private Sub UserForm_Initialize() Dim TCapts(), L As Long TCapts = Sheets("Sites").[B3].Resize(50).Value For L = 1 To 50 Me("b" & L).Caption = TCapts(L, 1) Next L End Sub

Remarque: j'aurais certainement conçu l'UserForm différemment, de façon à ne pas avoir 50 boutons !
Par exemple avec une ListBox en mettant LBxSites.List = Sheets("Sites").[B3].Resize(50).Value et une Sub LBxSites_Click pour traiter la sélection.

Merci Abondamment!!!!!!!

XL 2016 Renommer Bouton commande sur Userform

KTM

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires