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