Discussion :

[FanTasTik]

Bonjour à tous,

Voilà mon problème :
Je charge un tableau excel à 2D dans un array 2D (vous m'avez compris ^^)
Donc j'ai l'array sous cette forme : Tblo(i,j) où i est la ligne (donc l'objet) et j la colonne (donc un critère).

Je fais du tri etc sur ce tableau et ensuite je veux le redimensionner car il comporte moins d'élèment qu'avant, hors avec redim preserve on ne peux modifier que la derniere dimension hors c'est la premiere (nombre d'élèment) que je veux modifier.

Que faire ?

Merci d'avance

[Daniel.C]

Bonjour,

Tu peux faire une boucle pour recopier dans un tableau intermédiaire ou coller le tableau sur une plage de cellules, vider le tableau et récupérer les données dans le tableau.

[mercatog]

Inverse le tableau initial par Application.Transpose, la première dimension deviendra la seconde

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Tb, Res
 
Tb = Range("A1:B20")   '20x2
Res = Application.Transpose(Tb)
ReDim Preserve Res(1 To 2, 1 To 8)
Tb = Application.Transpose(Res) '8x2
 
Range("D1").Resize(UBound(Tb, 1), UBound(Tb, 2)) = Tb

[FanTasTik]

Bonjour,

Tu peux faire une boucle pour recopier dans un tableau intermédiaire ou coller le tableau sur une plage de cellules, vider le tableau et récupérer les données dans le tableau.

Oui mais je passes par des tableaux pour être très rapide donc cette solution n'est pas possible

Inverse le tableau initial par Application.Transpose, la première dimension deviendra la seconde

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim Tb, Res
 
Tb = Range("A1:B20")   '20x2
Res = Application.Transpose(Tb)
ReDim Preserve Res(1 To 2, 1 To 8)
Tb = Application.Transpose(Res) '8x2
 
Range("D1").Resize(UBound(Tb, 1), UBound(Tb, 2)) = Tb

J'avais essayé transpose mais je n'arrivais pas à l'utiliser, bon je vais faire des tests pour voir si c'est rentable

Pour l'instant j'ai définit une variable DernLigne qui correspond au dernier indice de la boucle quand elle s'arrête, cette indice peut varier.

Du coup j'utilise plus Ubound mais ma variable à la place, c'est pas joli mais ça diminue pas les perfs. A voir comment transpose x2 est gourmand.

Merci