Décalage sans casser mise en forme

Bonjour à tous,

Voilà j'aimerais pouvoir décaler des colonnes dans mon tableur Excel sans casser la mise en forme de base.

J'ai créer un tableau contenant plusieurs valeurs et une maccro servant à décaler sur la gauche ces valeurs, seulement voilà avec la syntaxe " .Cut " suivi d'un " .Offset " je décale l'ensemble de mon tableau ainsi que sa mise en forme.. J'aimerais seulement décaler les valeurs de ce tableau en conservant ma mise en forme (couleurs, colonnes etc..)

Ci-dessous mon code test :

Sub decalage()

        With Sheets("Feuil1").Range("G8", "L21")
            .Cut
            .Offset(0, -1).Select
        End With

ActiveSheet.Paste

End Sub

Et ci-joint mon fichier test.

Merci à vous

Bonjour

Essaie ce code, il supprime l'encadrement :

Sub decalage()
Dim i As Integer, c As Range

        With Sheets("Feuil1").Range("G8", "L21")
                .Cut Destination:=.Offset(0, -1)
                For i = 7 To 12
                    .Borders(i).LineStyle = xlNone
                Next i
        End With
End Sub

Bye !

Bonjour gmb,

J'ai du mal m'exprimer, j'aimerais que seul les valeurs se décale à gauche, donc l’encadrement ainsi que les couleurs doivent rester sur place.

Merci

Alors, essaie ça :

Sub decalage()
Dim i As Integer

        With Sheets("Feuil1").Range("G8", "L21")
            .Copy
            .Offset(0, -1).PasteSpecial xlPasteValues
            .Offset(0, 5).Resize(.Rows.Count, 1).ClearContents
        End With
End Sub

Bye !

C'est nickel !

Merci à toi gmb