module de class pour groupe TextBox

Le
isabelle
bonjour à tous,

je ne trouve pas l'erreur dans ce code, la class Tbx n'est pas
instensié, elle n'apparait pas dans la case sous "Général"

dans le module de class "MesTbx"
'______________________________________________
Public WithEvents Tbx As TextBox

Private Sub Tbx_Change()
MsgBox Tbx.Name
End Sub
'______________________________________________

sur la page code du UserForm
'______________________________________________
Dim GrTbx() As New MesTbx

Private Sub UserForm_Initialize()
Dim c As Control, i As Integer
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
ReDim Preserve GrTbx(i)
Set GrTbx(i).Tbx = Me.Controls(c.Name)
i = i + 1
End If
Next
End Sub
'______________________________________________

merci pour votre aide,
isabelle
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23098991
ne chercher plus j'ai trouvé l'erreur,
il faut définir la variable comme ceci
Public WithEvents Tbx As MSForms.TextBox

isabelle



Le 2011-02-07 13:33, isabelle a écrit :
bonjour à tous,

je ne trouve pas l'erreur dans ce code, la class Tbx n'est pas
instensié, elle n'apparait pas dans la case sous "Général"

dans le module de class "MesTbx"
'______________________________________________
Public WithEvents Tbx As TextBox

Private Sub Tbx_Change()
MsgBox Tbx.Name
End Sub
'______________________________________________

sur la page code du UserForm
'______________________________________________
Dim GrTbx() As New MesTbx

Private Sub UserForm_Initialize()
Dim c As Control, i As Integer
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
ReDim Preserve GrTbx(i)
Set GrTbx(i).Tbx = Me.Controls(c.Name)
i = i + 1
End If
Next
End Sub
'______________________________________________

merci pour votre aide,
isabelle
Publicité
Poster une réponse
Anonyme