Retourner un tableau

Bonjour à tous,

Dans le fichier excel suivant, le nombre de colonne varie d'une ligne a l'autre.
Je voudrais connaitre la dernière colonne utilisé afin de pouvoir inverser le tableau (en miroir) que la premiere colonne devienne la derniere et ainsi de suite pour les autre.

Voici le code que j'ai utilisé,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Sub Essai() Dim Tbl Dim Lig As Integer Dim Col As Integer Dim DerLigne As Integer Dim DerColonne As Integer   DerLigne = Cells(Rows.Count, 1).End(xlUp).Row DerColonne = Worksheets("Feuil3").UsedRange.Columns.Count   Tbl = Range(Cells(1, 1), Cells(DerLigne, DerColonne)): Application.ScreenUpdating = 0   For Lig = 1 To DerLigne For Col = 1 To DerColonne Cells(Lig, (DerColonne + 1) - Col) = Tbl(Lig, Col) Next Col Next Lig   End Sub

---

cela fonctionne sur en gros mais ma variable

Code:

---

DerColonne = Worksheets("Feuil3").UsedRange.Columns.Count

---

ne me renvoie pas le bon resultat.

Une idée de l'erreur?

Merci

Bonjour,

Si ton « tableau » ne comporte pas de ligne vide (comme tout tableau qui se respecte !) utilises .CurrentRegion
et plutôt que d'écrire cellule par cellule, utilises un second tableau VBA (tu pourras te passer de ScreenUpdating = 0).

EDIT : par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Sub Test() Dim Tb1 As Variant Dim Tb2 As Variant Dim x As Long Dim y As Long Dim c As Range Tb1 = Worksheets("Feuil3").Range("A1").CurrentRegion.Value ReDim Tb2(1 To UBound(Tb1), 1 To UBound(Tb1, 2)) For x = 1 To UBound(Tb1) For y = UBound(Tb1, 2) To 1 Step -1 Tb2(x, y) = Tb1(x, UBound(Tb1, 2) - y + 1) Next y Next x Set c = Worksheets("Feuil2").Range("A1") ' destination c.Resize(UBound(Tb2), UBound(Tb2, 2)).Value = Tb2 End Sub

---

Si tu veux avoir une valeur DerColonne différente pour chaque ligne, il faut le calculer après avoir choisi la ligne donc après le premier For To.
La syntaxe est la même que pour déterminer la dernière ligne excepté qu'on part de la dernière colonne (Columns.Count au lieu de Rows.Count) et qu'on va vers la gauche au lieu d'aller vers le haut (xlToLeft au lieu de xlUp).

Code:

---

1 2 3

For Lig = 1 To DerLigne DerColonne = Worksheets("Feuil3").Cells(Lig, Columns.Count).End(xltoLeft).Column For Col = 1 To DerColonne

---

hello,
le souci avec que la copie des valeurs c'est que le formatage des cellules ne suit pas .
Voici une autre façon de procéder en utilisant un tri de colonne :
1 - On rajoute une ligne temporaire avec un indice correspondant au numéro de colonne.
2 - On trie les colonnes en fonction de cette nouvelle ligne en inversant l'ordre.
3 - On efface la ligne ajoutée.

Le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub EssaiJP() Dim r Dim indices() Dim numCols, i As Integer   Set r = Worksheets("Feuil3").UsedRange ' on ajoute une première ligne avec un indice de numéro de colonne r.Rows(1).Insert xlShiftDown numCols = r.Columns.Count ReDim indices(numCols) For i = 0 To numCols indices(i) = i Next r.Rows(0).NumberFormat = "General" r.Rows(0).Value = indices ' tri en fonction de la première ligne ajoutée Set r = Worksheets("Feuil3").UsedRange r.Sort r.Rows(1), xlDescending, , , , , , xlNo, , , xlSortRows ' on supprime la ligne rajoutée r.Rows(1).Delete shift:=xlUp End Sub

---

Je ne sais pas si c'est cela que tu veux faire. Voici le résultat (le début des nouvelles dernières colonnes) :

Pièce jointe 538482

Ami calmant, J.P