Macro ajouter des colonnes

[willoj47]

Bonjour à tous,
Je suis débutant en excel.
J'ai une macro je ne voudrais pas avoir des colonnes prédéfinis. Je voudrais que les colonnes soient défini par une variable.

/*Range("F1:J170").Select
Selection.Copy*/

à ne changer pas

Exemple: Quand on cible, par exemple on selectionne la colonne K, on affecte la colonne K à la variable.
Donc quand on veut selectionner un plage de "K:O" donc notre variable egal à la colonne K en ce moment, disons qu'on le fait avec Columns("..:..").Select ça pourrait donner Columns(Variable:Variable+4).Select .

Voilà, j'ai l'exemple de ma macro.

j'espère avoir été clair! Merci d'avance !

Sub Macro1()
'
' Macro1 Macro
'

'

    
    Columns("K:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F1:J170").Select
    Selection.Copy

    Columns("K:K").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Columns("P:U").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft

End Sub

 

[willoj47]

Re : Macro ajouter des colonnes

J'attend une réponse merci!