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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager