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
'______________________________________________
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
'______________________________________________
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 '______________________________________________
