XL 2016 Renommer Bouton commande sur Userform

KTM

XLDnaute Impliqué
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

XLDnaute Barbatruc
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.
 
Dernière édition:

KTM

XLDnaute Impliqué
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!!!!!!!
 

Discussions similaires

Réponses
4
Affichages
711

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla