VBA déplacer gamme sélectionnée haut/bas (avec décalage?)

Question

Je construis un outil où le contenu des cellules sélectionnées par l'utilisateur est déplacé avec des formes de flèche.

Le code ci-dessous fonctionne très bien pour déplacer un ou plusieurs groupes de cellules adjacentes vers le bas. Cependant, inverser le code semble difficile (+1 en décalage ne fonctionne pas: -?)

Une idée? Merci, Augustin

Sub Move_Up() 
    Selection.Cut 
    Selection.Offset(-1, 0).Select 
    Selection.Insert Shift:=xlDown 
End Sub 

Answer 1

Si vous souhaitez déplacer un bloc Selected de cellules jusqu'à par une ligne puis:

Sub ShiftBlockUp() 
    Dim r As Range 
    Set r = Selection 
    Intersect(r(1).EntireRow, r).Offset(-1, 0).Delete Shift:=xlUp 
End Sub 

Si vous souhaitez déplacer un bloc Selected de cellules vers le bas par une rangée puis:

Sub ShiftBlockDown() 
    Dim r As Range 
    Set r = Selection 
    Intersect(r(1).EntireRow, r).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
End Sub 

Answer 2

cellules en supposant doivent être déplacés ceux autour et écrasés sont simplement décalés où les fois ont été déplacés, le code pourrait être la suivante:

Sub MoveUp() 
    Selection.Rows(Selection.Rows.count + 1).Insert Shift:=xlDown 
    Selection.Rows(1).Offset(-1).Cut Selection.Rows(Selection.Rows.count + 1) 
    Selection.Rows(1).Offset(-1).Delete Shift:=xlUp 
    Selection.Offset(-1).Select 
End Sub 

Sub MoveDown() 
    Selection.Rows(1).Insert Shift:=xlDown 
    Selection.Rows(Selection.Rows.count).Offset(2).Cut Selection.Rows(1) 
    Selection.Rows(Selection.Rows.count).Offset(2).Delete Shift:=xlUp 
    Selection.Offset(1).Select 
End Sub