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