XL 2016 Copier coller valeur et insérer colonne

[MASSJIPE]

Bonjour le forum
Comment faire pour
Insérer une colonne entre I et J
Copier la plage M3 M7 et venir la coller (en valeur) en J3et ainsi de suite
Merci

 

[job75]

Bonjour MASSJIPE,

Pourquoi du VBA pour une chose aussi simple ?

Mais si vous en voulez faites tourner l'enregistreur de macro pendant l'opération manuelle.

A+

 

[MASSJIPE]

Bonjour
simple manuellement mais cela sur plusieurs fichier c'est long
Avec l'enregistreur mais il met pas à la suite

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("J:J").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("N3:N7").Select
    Selection.Copy
    Range("J3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[MASSJIPE]

Re j'ai réussi à faire ceci
est ce la bonne solution

Sub Macro10()
'
' Macro10 Macro
'

    Selection.EntireColumn.insert
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Sheets("Feuil2").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub