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 !
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 !
Code:
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