Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 24/03/2005, 21h49   #1 (permalink)
IFFIC
Guest
 
Messages: n/a
Par défaut .("CommandButton" & X)" Le “X” en variable?

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

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 12h40.


(C) 2006 Excel Downloads