Tableau public dans Userform
Bonjour à tous,
Je cherche à savoir s'il est possible de déclarer un tableau public dans un Userform ? afin que je puisse le réutiliser dans les modules ?
J'ai bien essayé avec Public tableau(10) as single mais cela mais met en erreur
Voila mon code ci dessous :
Code:
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
|
Public tab_contracts(1 To 20) As Single
Private Sub ComboBox2_Change()
ListBox1.Clear
Dim i As Integer
nb_points = 0
a = 0
With Feuil3
.Range("T1:T20").ClearContents
For i = 2 To .Range("C1000").End(xlUp).Row
If ComboBox2.Value = .Cells(i, 2) Then
ListBox1.AddItem .Cells(i, 3)
nb_points = nb_points + 1
Erase tab_points
a = a + 1
tab_points(a) = "*" & .Cells(i, 3) & "*"
.Cells(a, 20) = tab_contracts(a)
End If
Next i
End With
End Sub |
Merci !
