Remplir un tableau de variables
Bonjour
je souhaite alimenter un tableau de variables à partir de données figurants sur un feuille excel. je souhaite faire figurer dans le tableau uniquement les données filtrées.
voici mon code (il ne fonctionne pas):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub tableau()
Dim tboall() As Variant
l = 0
For I = 2 To 20
l = l + 1
K = 0
For J = 2 To 6
If Cells(I, J).EntireRow.Hidden = False Then
If J <> 3 Then
K = K + 1
tboall(l, K) = Cells(I, J)
End If
End If
ReDim Preserve tboall(I)
Next J
Next I
end sub |
