agir sur des textbox créées à la volée

D

daniel

Guest
Bonjour le forum,

J'ai le code suivant (merci le spros du forum !), qui me permet d'afficher dans des textbox créées à la volée des chaînes de caractère (séparées par des ';') à partir du contenu d'une cellule.



Dim Tableau() As String
Dim I As Integer, T As Integer, L As Byte
Dim TextBoxing As Variant

cell = ActiveCell.Address

Tableau = Split(Range(cell), ';')
For I = 0 To UBound(Tableau)

Set TextBoxing = Me.Controls.Add('Forms.textbox.1')

Select Case I
Case 0: T = 10
End Select
With TextBoxing
L = 15

.SpecialEffect = fmSpecialEffectEtched
.WordWrap = False
.Left = L: .Top = T: .Width = 100: .Height = 18
.Value = Tableau(I)
End With
T = T + 20
Next I
Set TextBoxing = Nothing


Comment puis je faire pour pouvoir 'agir' ensuite sur ces textbox ? Je voudrais leur associer un évènement 'click', mais le problème est qu'elles n'existent qu'à partir du moment où elles sont générées.

Merci pour vos conseils

Bon appétit...

Daniel
:p :p
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_