VBA plage nommée décalage

Question

Je suis en train d'écrire du code VBA qui sélectionnera une plage nommée, copiez et collez-le pour un certain nombre de lignes. Ce que je dois savoir comment choisir la plage de cellules correspondant à celles ci-dessus.

par exemple. I ont une gamme "myRange" qui se réfère à: "= $ A $ 1: D $ 1, $ F $ 1, $ K $ 1". Je veux copier cela et le coller dans. "= $ A $ 2: D $ 2 $, $ F $ 2, $ K $ 2" en se référant à "myRange" au lieu de la chaîne de références de cellule

Toute aide?

Answer 1

Quelque chose comme ça?

Sub Test()

    Dim oRange As Range
    Set oRange = ActiveSheet.Range("A1:D1") ' Change this to point at the range to be copied

    Dim i As Integer
    For i = 1 To 10
        oRange.Copy
        oRange.Offset(i, 0).PasteSpecial xlPasteAll
    Next i

End Sub

---

EDIT : OK, quelque chose comme ça alors (pour faire face à des plages disjoints):

Sub Test()

    Dim oRange As Range
    Set oRange = ActiveSheet.Range("A1,C1:D1") ' Change this to point at the range to be copied

    Dim i As Integer
    For i = 1 To 10
        Dim oArea As Range
        For Each oArea In oRange.Areas
            oArea.Copy
            oArea.Offset(i, 0).PasteSpecial xlPasteAll
        Next oArea
    Next i

End Sub