I
IFFIC
Guest
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’aide 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.
(Fichier joint)
IFFIC
[file name=CREATION-BOUTON_20050324215755.zip size=10540]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CREATION-BOUTON_20050324215755.zip[/file]
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’aide 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.
(Fichier joint)
IFFIC
[file name=CREATION-BOUTON_20050324215755.zip size=10540]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CREATION-BOUTON_20050324215755.zip[/file]