Bonjour,
Je n'ignore pas qu'il est possible de filtrer les tableaux structurés au moyen de filtres élaborés. Cependant dans le cas d'espèce cette méthode n'est pas envisageable : Je dois exporter les données filtrées en explorant chaque ligne dans un Array pour récupérer ligne par ligne la colonne 2, la colonne 22,23...
En résumé on ne doit pas transférer un bloc (redimensionné ou non) on ne peut que passer par une boucle sur chaque ligne visible.
C'est là que j'ai un problème de syntaxe :
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
21
22
23
24
25
Sub MajCible()
Dim i&, LR As ListRow
Dim TData As ListObject, Arr, ArrS(6)
Dim plage As Range, k%
Set TData = Range("TBut").ListObject
   On Error Resume Next 'Réinitialise le tableau 'TBut"
      Range("TBut").ListObject.DataBodyRange.Delete
   On Error GoTo 0
          For Each plage In Range("TSrc").SpecialCells(xlCellTypeVisible).Areas 'ligne Problématique ???
            k = k + 1
            Arr = plage.Value
            If k = 1 Then
               Set LR = TData.ListRows(1)
            Else
               Set LR = TData.ListRows.Add
            End If
                ArrS(0) = Arr(i, 2)
                ArrS(1) = Arr(i, 21)
                ArrS(2) = Arr(i, 22)
                ArrS(3) = Arr(i, 23)
                ArrS(4) = Arr(i, 24)
                ArrS(5) = Arr(i, 25)
                LR.Range.Value = ArrS
         Next
End Sub
La ligne problématique passe mais la plage est vide...
Le problème à été posé ailleurs mais dès qu'on parle de Tableaux structurés...
Merci.