V
valou
Guest
Bonjour,
Jusqu'a maintenant, j'ajoute des controles (optionbutton, textbox) dynamiquement dans mes formulaires et je leur affecte des evenement via un module de classe. et jusque la ca marche bien.
Maintenant, je veut que mon evenement se declenche sur l'evenement Exit d'un text box mais rien ne se passe (pas d'evenement, pas de message d'erreur....) alors que l'evenement change marche très bien.
Ai-je commis une erreur ou bien certains evenement ne sont pas accessible sur des controles dynamiques.
je vous indique juste le code que j'ai fait :
Dans une classe : Classe_TxtListe
Public WithEvents TxtListe As MSForms.TextBox
Private Sub TxtListe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "evenement"
End Sub
j'ai declaré une variable publique comme ca :
Public obj_txtliste() As Classe_TxtListe
je l'utilise de la facon suivante :
ReDim obj_txtliste(Me.TxtNb.Value)
'boucle sur le nombre indiqué
For nb_tab = 1 To Me.TxtNb.Value
Set obj_txtliste(nb_tab) = New Classe_TxtListe
Set obj_txtliste(nb_tab).TxtListe = Me("Txt" & nb_tab)
Next nb_tab
Merci d'avance.
Jusqu'a maintenant, j'ajoute des controles (optionbutton, textbox) dynamiquement dans mes formulaires et je leur affecte des evenement via un module de classe. et jusque la ca marche bien.
Maintenant, je veut que mon evenement se declenche sur l'evenement Exit d'un text box mais rien ne se passe (pas d'evenement, pas de message d'erreur....) alors que l'evenement change marche très bien.
Ai-je commis une erreur ou bien certains evenement ne sont pas accessible sur des controles dynamiques.
je vous indique juste le code que j'ai fait :
Dans une classe : Classe_TxtListe
Public WithEvents TxtListe As MSForms.TextBox
Private Sub TxtListe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "evenement"
End Sub
j'ai declaré une variable publique comme ca :
Public obj_txtliste() As Classe_TxtListe
je l'utilise de la facon suivante :
ReDim obj_txtliste(Me.TxtNb.Value)
'boucle sur le nombre indiqué
For nb_tab = 1 To Me.TxtNb.Value
Set obj_txtliste(nb_tab) = New Classe_TxtListe
Set obj_txtliste(nb_tab).TxtListe = Me("Txt" & nb_tab)
Next nb_tab
Merci d'avance.