Bug macro decalage copier coller

Bonjour à tous,

J'ai une macro toute bête qui me permet, en cliquant sur un bouton (BOUTON COPIER / COLLER dans onglet MISE A JOUR), de copier coller une ligne présent dans un onglet ("ONGLET 1" vers un autre onglet ("ONGLET 2") tout en insérant une ligne. (voir fichier en PJ : "COPIER COLLER AVANT MODIF").

Aujourd'hui, je souhaite modifier mon fichier et ajouter quelques fonctionnalités dans l'ONGLET 2. Pour se faire, je dois insérer 2 lignes et 2 colonnes (respectivement en ligne 1 & 2 et Colonne A & B; voir PJ "COPIER COLLER AVEC LIGNE INSEREE. Les cellules en Jaunes doivent rester vides).

Quand je modifie la macro en décalant des cellules renseignées; je n'arrive pas au résultat espéré.

Ci-après la macro originale :

Sub CopierColler()

'copier coller tarifs + ouvertures fermetures dans onglet sales chart : réinitialisation changements

    Sheets("ONGLET 1").Activate

    Range("D32:BMD45").Select
    Selection.Copy

    Range("D62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Application.CutCopyMode = False

'copier coller cales dans onglet changements de cales

    Range("C32").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy

    Sheets("ONGLET 2").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown

    Range("A4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=TODAY()"

    Range("A4").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Rows("5:5").Select
    Selection.Copy
    Rows("4:4").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    Sheets("ONGLET 1").Select

    Calculate

End Sub

en ajoutant les 2 lignes et les 2 colonnes, ci-après la nouvelle macro (celle qui ne marche plus... et ne décale pas comme espéré :

Sub CopierColler()

'copier coller tarifs + ouvertures fermetures dans onglet sales chart : réinitialisation changements

    Sheets("ONGLET 1").Activate

    Range("D32:BMD45").Select
    Selection.Copy

    Range("D62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Application.CutCopyMode = False

'copier coller cales dans onglet changements de cales

    Range("C32").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy

    Sheets("ONGLET 2").Select
    Rows("[color=#FF0000][b]6:6[/b][/color]").Select
    Selection.Insert Shift:=xlDown

    Range("[color=#FF0000][b]C6[/b][/color]").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=TODAY()"

    Range("[color=#FF0000][b]C6[/b][/color]").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Rows("[color=#FF0000][b]7:7[/b][/color]").Select
    Selection.Copy
    Rows("[color=#FF0000][b]6:6[/b][/color]").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    Sheets("ONGLET 1").Select

    Calculate

End Sub

A votre disposition pour toute information supplémentaire et merci par avance pour votre aide,

YGGY

Rechercher des sujets similaires à "bug macro decalage copier coller"