Bonjour à tous,
Jusqu'à présent, pour transférer des données, j'avais testé ces 2 solutions:
- le filtre avancé+ copié/coller des données filtrées
En parcourant le forum, j'observe que les membres les plus expérimentés, utilisent régulièrement des tableaux, aussi je souhaiterai en comprendre le fonctionnement.
Voici un exemple en feuille 1 ("test"):
- Export des données et écriture à partir de L2
Sub transfert()
Dim tablo(), tabloR()
With Sheets("test")
.Range("L2:U300").ClearContents
tablo = Range("A1:J30")
k = 0
For i = 1 To UBound(tablo, 1)
If tablo(i, 1) = Range("L1") Then
ReDim Preserve tabloR(1 To 10, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 1)
tabloR(2, k + 1) = tablo(i, 2)
tabloR(3, k + 1) = tablo(i, 3)
tabloR(4, k + 1) = tablo(i, 4)
tabloR(5, k + 1) = tablo(i, 5)
tabloR(6, k + 1) = tablo(i, 6)
tabloR(7, k + 1) = tablo(i, 7)
tabloR(8, k + 1) = tablo(i, 8)
tabloR(9, k + 1) = tablo(i, 9)
tabloR(10, k + 1) = tablo(i, 10)
k = k + 1
End If
Next i
On Error Resume Next
Range("L2").Resize(UBound(tabloR, 2), 10) = Application.Transpose(tabloR)
Erase tabloR
End With
End Sub
Sur la feuille 2 ("TB"), même principe mais avec données sous forme de tableaux structurés.
Sur la feuille 3 (" Date et TB"), tableaux structurés et critère date.
Je peine à comprendre:
ReDim Preserve tabloR(1 To 10, 1 To k + 1)
.Resize(UBound(tabloR, 2), 10) = Application.Transpose(tabloR)
Merci à tous ceux qui prendront la peine de m'éclairer voir d'optimiser (où corriger) mes codes,
Cordialement,