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