Macro ajouter des colonnes

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

Bonjour,

Pas très bien compris tout ce que tu veux faire mais voici un début de code

Sub macro()
Dim col
col = Selection.Columns.Address
Columns(col).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
......
End sub

Amicalement

ça marche pas avec mon code t'as formule. En faite, j'ai un planning avec lundi , mardi, etc... je veux créer un bouton qui copie et colle les equipes et les engins utiliser chaque jour de la semaine donc je copie les colonnes engins et equipes dans ma colonne.

Il y a les colonnes de A à E avec lequel j'ai fait des saisie automatique codé en vba bon celle que vous avez un extrait donc vous trouverez pas le code donc dès que j'ai fait mon saisie automatique pour le lundi et je copie-colle je fais le saisie automatique pour le mardi et je copie-colle, etc...

En faite par rapport à la colonne que je sélectionne je veux qui me le recopie.

Il y a une personne qui peut m'aider s'il vous plait!

Bonjour

Pour t'aider il faudrait comprendre ce que tu veux faire

Tu présentes une feuille vide et on doit deviner ce qu'il faut faire

Tu dis que tu veux copier des colonnes A à E (5 colonnes) vers un jour de la semaine, mais chaque jour ne représente que deux colonnes et en plus fusionnées

Donc c'est peut-être B et D à copier ?

Prépares un fichier avec des exemples

a te lire

Bonjour

A vérifier

Merci toujours aussi efficace Banzai64! Merci a toi aussi de ton aide Dan! bonne soirée!