Private Parent As ControlsAssociés, WithEvents TBx As MSForms.TextBox, Index As Long, Colonne As Long, Format As String, UsMode
Private Sub CAsso_Init(ByVal Lui As ControlsAssociés, ByVal Ctl As MSForms.IControl, ByVal Idx As Long, _
ByVal Col As Long, ByVal Fmt As String, ByVal Mode As Variant)
Set Parent = Lui: Set TBx = Ctl: Colonne = Col: Format = Fmt: UsMode = Mode
End Sub
———————————————————————————————————
Private Sub TBx_Change()
Parent.CAsso_Change Me
End Sub