Discussion :

[gaston64]

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