VBA transposition de tableau

[arnaud75017]

Bonjour à tous,

J'ai un tableau en mémoire (tabres), que je souhaite coller. Non pas en ("A1"), car j'ai déjà un tableau que j'ai collé sur cette page, mais à la suite de ce tableau.

Le code initial est le suivant pour mon premier tableau est le suivant:

Sheets("resultat").Range("A1").Resize(UBound(tabres, 2), UBound(tabres, 1)) = Application.Transpose(tabres)

J'ai donc voulu tester ce code pour mon second tableau, mais ca ne marche pas :

Sheets("resultat").Range("A1").End(xldown).Resize(UBound(tabres, 2), UBound(tabres, 1)) = Application.Transpose(tabres)

Merci par avance pour vos réponses !

 

[pierrejean]

Re : VBA transposition de tableau

Bonjour arnaud

A tester:

Range("A1").Resize(UBound(tabres, 2), UBound(tabres, 1)) = Application.Transpose(tabres)
Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1).Resize(UBound(tabres, 2), UBound(tabres, 1)) = Application.Transpose(tabres)

 

[arnaud75017]

Re : VBA transposition de tableau

Merci beaucoup Pierre Jean, toujours aussi rapide et efficace!

 

[arnaud75017]

Re : VBA transposition de tableau

Merci beaucoup Pierre Jean, toujours aussi rapide et efficace!