Public WithEvents txtb As msforms.TextBox
Dim cl(1 To 4) As New textNUM
Public freres
Public TXTresultat As Object
Function init(uf)
Dim tous(1 To 4) As Object
'je le fait sans boucle c'est plus simple a comprendre
'********************************
Set cl(1).txtb = uf.Controls("t1") 'instance1 pour le textbox "T1"
Set cl(1).TXTresultat = uf.Controls("TextBox5") 'on inclu le textbox5 qui dans l instance1 de classe sera surnommé "resultat"
Set tous(1) = uf.Controls("t1") '********************************************************
'********************************
Set cl(2).txtb = uf.Controls("t2") 'instance2 pour le textbox "T2"
Set cl(2).TXTresultat = uf.Controls("TextBox5") 'on inclu le textbox5 qui dans l instance2 de classe sera surnommé "resultat"
Set tous(2) = uf.Controls("t2") '********************************************************
'********************************
Set cl(3).txtb = uf.Controls("t3") 'instance3 pour le textbox "T3"
Set cl(3).TXTresultat = uf.Controls("TextBox5") 'on inclu le textbox5 qui dans l instance3 de classe sera surnommé "resultat"
Set tous(3) = uf.Controls("t3") 'on met dans chaque item de la variable tous un textbox
'********************************
Set cl(4).txtb = uf.Controls("t4") 'instance4 pour le textbox "T4"
Set cl(4).TXTresultat = uf.Controls("TextBox5") 'on inclu le textbox5 qui dans l instance4 de classe sera surnommé "resultat"
Set tous(4) = uf.Controls("t4") 'on met dans chaque item de la variable tous un textbox
'********************************************************
'maintenant pour le calcul il faut que dans chanque instance les 4 soient reconnus
'et bien la variable freres devient la variable tous dans chaque instances
For Z = 1 To 4: cl(Z).freres = tous: Next 'et maintenant le tableau provisoire(tous) je le réintègre dans chaque instance de classse des textboxdans la variable freres
End Function
'l'event unique tout les textbox
Private Sub txtb_Change()
'ici donc dans cet event unique qui est déclenché par t1,t2,t3,t4 dans le userform
'et bien on peut donc soit comuniquer l'un avec l'autre puisque l'instance contient les 4 textboxs
'donc dans chaque declenchement de l'event par l'un aou lautre on peu faire un calcul avec les 4 textboxs
'comme ci dessous
For i = 1 To UBound(freres)
If IsNumeric(freres(i).Value) Then x = x + CDbl(freres(i).Value)
Next
TXTresultat = x
End Sub
