Inversion d'un tableau (pas de transposition)

Je préfère généralement résoudre les problèmes sans macros, mais je n'ai pas trouvé de solution facile sans elles.

La macro ci-dessous inverse la matrice sélectionnée et l'écrit à l'emplacement d'origine ou sur une nouvelle feuille de calcul.

Pour exécuter la macro :

• Appuyez sur Alt+F11 pour ouvrir l'éditeur Visual Basic
• coller le code dans un module (insert - module)
  • note : après avoir ajouté un code, vous devrez enregistrer votre classeur en tant que classeur activé par la macro si vous souhaitez conserver la macro (si vous n'en avez pas besoin à l'avenir, vous pouvez également le conserver en tant que .xlsx).
• conserver l'option dont vous avez besoin (écraser les données d'origine ou créer une nouvelle feuille) et supprimer les autres options.
• sélectionner l'ensemble du tableau à inverser
• allez dans "view" - "macros" - "view macros" - sélectionnez la macro (InvertTable) et appuyez sur run

Option Explicit

Sub InvertTable()
    Dim originalData As Variant
    Dim nRows As Integer
    Dim nColumns As Integer
    Dim newData As Variant
    Dim x As Integer
    Dim y As Integer

    originalData = Selection
    nRows = UBound(originalData, 1)
    nColumns = UBound(originalData, 2)
    newData = originalData

    For x = 1 To CInt(nColumns / 2)
        For y = 1 To CInt(nRows / 2)
            newData(y, x) = originalData(nRows - y + 1, nColumns - x + 1)
            newData(nRows - y + 1, nColumns - x + 1) = originalData(y, x)
            newData(y, nColumns - x + 1) = originalData(nRows - y + 1, x)
            newData(nRows - y + 1, x) = originalData(y, nColumns - x + 1)
        Next y
    Next x

    ' --- option 1: overwrite data ---
    Selection = newData
    ' --- end of option 1 ---

    ' --- option 1: insert new sheet ---
    Dim newSheet As Worksheet

    Set newSheet = Selection.Parent.Parent.Worksheets.Add
    newSheet.Range(Cells(1, 1), Cells(nRows, nColumns)) = newData
    ' --- end of option 1 ---
End Sub