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

[daniel]

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
😛 😛

 

[MichelXld]

bonjour Daniel

j'espere que ces liens pourront t'aider

Lien supprimé

Lien supprimé


bon apres midi
MichelXld

 

[daniel]

merci Michel, pour ces liens, je pense pouvoir trouver mon bonheur...

bon après midi

Daniel