Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Afficher contenu 2 emeligne tableau sur feuille

Hoareau

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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)
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…