Dim Txt(1 To 12) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 12: Set Txt(b).GrSaisie = Me("textbox" & b): Next b
End Sub
Private Sub B_efface_Click()
temp = Me.B_efface.Tag
Me(temp) = ""
Me(temp).SetFocus
End Sub
Module de classe
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
temp = GrSaisie.Name
UserForm1.B_efface.Top = UserForm1(temp).Top
UserForm1.B_efface.Tag = temp
End Sub