XL 2019 Afficher contenu 2 emeligne tableau sur feuille

[Hoareau]

Bonjour

Je voudrais récupérer le contenu de la ligne 2 de mon tableau et le transférer, 2 colonnes plus loin après l'affichage de la première ligne du tableau ,sur la même ligne de la feuille
feuille 20 colonnes (ligne1 du tableau) espacement 2 colonnes puis 20 colonnes (ligne2 du tableau)

je réussi à faire afficher, la première ligne avec count if
mais pas la deuxième avec large, puisque rank ne pase pas avec les tableaux

le but classer le nombre de sorties, du plus grand au plus petit sur la ligne 2 du tableau, pour affichage sur la feuille

J'ai trouvé un syntaxe avec index, mais ne réussi pa à la faire fonctionner

'[A1].Resize(UBound(a, 2)) = Application.Transpose(Application.Index(a, 2))

j'ai aussi essayé Cells(i, j) = Tab_Num_Sorties(2, j), d'une lenteur et ne donne pas le résultat escompté

merci
"""""""""""""""""""""""""""

Set Plage = Range(Cells(i, 5).Offset(-1, 0), Cells(i, 5).Offset(-10, 0))

For k = 1 To 2
For j = 1 To 20

Tab_Num_Sorties(1, j) = Application.WorksheetFunction.CountIf(Plage, j)
Tab_Num_Sorties(2, j) = Application.WorksheetFunction.Large(Tab_Num_Sorties, j)

Cells(i, j) = Tab_Num_Sorties(2, j)

'Cells(i, 207).Resize(UBound(Tab_Num_Sorties, 2)) = Application.Index(Tab_Num_Sorties, 2)

'Cells(i, 207).Resize(UBound(Tab_Num_Sorties, 1), UBound(Tab_Num_Sorties, 2)) = Tab_Num_Sorties ' -------------- ok

Next
Next

 

[Hoareau]

j'ai fini par trouver

 

[Hoareau]

Je ne pensais pas avoir envoyé ce message " j'ai fini par trouver " sans la solution

Comme d'autres personnes semblent intéressées, trouvé deux solutions


1 ère solution
possibilité de choix des colonnes du tableau

varTemp = Application.Index(Tab_Num_Sorties, 2, (Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)))

Cells(i, 207).Offset(0, 21).Resize(, UBound(Tab_Num_Sorties, 2)) = varTemp

2 ème solution :
Toute la ligne du tableau

'Rajouter +1 "(Tab_Num_Sorties, 2)+1)" si tableau commence à 0
'Cells(i, 207).Offset(0, 21).Resize(1, UBound(Tab_Num_Sorties, 2)) = Application.Index(Tab_Num_Sorties, 2)