Inverser tableau suivant nombre de lignes

Bonjour le forum,

Est il possible d'inverser les lignes d'un tableau à partir de H11?

Exemple, si le tableau à 10 lignes "H11:H20", donc:

H20 devienne H11

H19 devienne H12

H11 devienne H20

Remarque: le nombre de ligne change!

Merci

Bonsoir

Dans les mêmes cellules, c'est peut-être faisable en VBA (?)

Dans une autre plage de cellules, avec formules, voir fichier.

Cordialement

57inversion.xls (19.00 Ko)

Bonjour forum,

Merci beaucoup Amadéus,

C'est exactement ce que que je cherche, entre temps j'ai trouver des solutations par macro pour pour les 2 cas, reclassement cellules sur colonne H ou bien reclassement lignes sur plage A:H

a tester,

Crdt,

Sub cellule()
    Application.ScreenUpdating = False
    Sheets(1).Select
    k = Range("h65536").End(xlUp).Row
    j = k
    For i = 11 To j
        Cells(j, 9).Value = Cells(i, 8).Value
        j = j - 1
    Next

    For i = 11 To k
        Cells(i, 8).Value = Cells(i, 9).Value
        Cells(i, 9).Value = ""
    Next
    Application.ScreenUpdating = True
End Sub
Sub lignes()
Dim T As Variant, T2(), x As Long, i As Long, k As Long
  On Error Resume Next
   Application.ScreenUpdating = False
     T = Range("a11:h" & Range("a65536").End(xlUp).Row)
       x = 1
         For i = UBound(T) To 0 Step -1
                 ReDim Preserve T2(1 To 23, 1 To x)
               For k = 1 To 23
        T2(k, x) = T(i, k)
     Next k: x = x + 1:  Next i
   Range("a11:h" & Range("a65536").End(xlUp).Row).ClearContents
  Range("a11").Resize(UBound(T2, 2), UBound(T2, 1)) = Application.Transpose(T2)
Erase T, T2
End Sub
Rechercher des sujets similaires à "inverser tableau suivant nombre lignes"