![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
Coucou et bonsoir à tous
Je tente de faire une boucle sur la feuille « ADHERENTS » Pour créer dans un USF les boutons correspondants… Je me heurte à la fichue obligation de : « CommandButton.1 » N’ayant pas envie de me farcir : Bt1, Bt2, Bt3… et ... Bt..j’en ai marre Si une bonne âme charitable passait par là pour me filer un tuyau, …. Je coince !!! Je lui serais fort reconnaissant…. Comme je le suis déjà depuis un grand morceau de temps pour bien d’aides dans ce forum. -------------------------------------------------------------------- Dim T As Integer Dim X As Integer Private Sub UserForm_Initialize() T = 1 X = 1 UserForm1.Controls.Add "Forms.CommandButton.1" ' Je cherche en fait, et en VAIN, un truc du genre: 'UserForm1.Controls.Add "Forms.("CommandButton" & X)" 'Pour le reste, cela fonctionne... With UserForm1.Controls(T) For i = 1 To 3 .Caption = Worksheets("ADHERENTS").Cells(i, 1) .Top = 26 .Left = 32 '. Et c. Next i On Error Resume Next End With End Sub Bonne soirée, et merci d’avance. IFFIC |
| ANNONCES | |
| Liens sociaux |
| Outils de la discussion | |
|
|