1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
Dim Tbl() 'Pour le test, ici déclaré public
Private Sub CommandButton1_Click()
Dim J As Integer
Dim Total As Double
'pour le test, indique le résultat du total des valeurs entrées
For J = 1 To UBound(Tbl)
Total = Total + Tbl(J)
Next J
MsgBox Total
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Static I As Integer 'garde en mémoire durant le temps d'affichage de la Form
I = I + 1
'annule tant que le compte n'est pas bon ou remet à 0 sitôt celui-ci atteint
'stocke les différentes valeurs dans le tableau, vide le TextBox et empêche la sortie
If I < TextBox1.Value Then
Tbl(I) = TextBox2.Text
TextBox2.Text = ""
Cancel = True
Else
I = 0
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'défini la dimension du tableau
Erase Tbl
ReDim Tbl(1 To TextBox1.Text)
End Sub |
Partager